Gemme ændringer sket runtime

Hejsa

Hvis du i knappens click_event bruger den kommando der hedder

application.ActiveDocument.SaveAs

eller

application.ActiveDocument.Save

Så vil du kunne opnå den ønskede effekt.

Mvh Kedde

Den forslåede kode, fungerer jo kun ved at gemme ændringerne for dokumentet. Den gemmer ikke ændringerne fortaget på en Userform - runtime.
( Den tilføjede kontrol - tekstboks )

Nicolaus

Så tror jeg nok at jeg har misforstået spørgsmålet.
Hvad er det helt præcist du er ved at opbygge, og hvad er det du vil gemme.

Mvh Kedde

ved at putte oplysninger af knappen i en \"INI\" fil.

ikke knappen men tekstboxen... UPS

Jobbet:

- En VBA applikation lavet i Word(vba). Der er en Userform1, en knap og intet andet.

Ved kørsel af programmet:

- Ved tryk på Command1, fremkommer en ny kontrol på Userform1 - Textbox1.

Ved afslutning af programmet:

- Ved tryk på enten \"x\'et\" øverst i højre hjørne af formen, eller ved tryk på en anden knap ( f.eks. Command2_GemOgAfslut), skal formen gemmes INKL. den nye textbox. Dvs. brugeren kan Runtime tilføje et kontrolelement og ved afslutning gemmes ændringerne.

>vbghost:

- Hvordan mener du den skal gemmes i en INI fil? ( Jeg er lettere Newbie :-)

Jeg har ikke lavet denne her kode! men det var vist... en anden fra eksperten.dk (ok)

I moduelen
Husk at opgive:
                 
Public Declare Function GetPrivateProfileString Lib \"Kernel32\" Alias \"GetPrivateProfileStringA\" (ByVal sSection As String, ByVal sKey As String, ByVal sDefault As String, ByVal sReturn As String, ByVal lReturnSize As Long, ByVal sFilename As String) As Long
Public Declare Function WritePrivateProfileString Lib \"Kernel32\" Alias \"WritePrivateProfileStringA\" (ByVal sSection As String, ByVal sKey As String, ByVal sSetting As String, ByVal sFilename As String) As Long



Function HentIni(txtSection As String, txtKey As String, txtPath As String) As String
  Dim sValue As String
  Dim lSize As Long
  Dim lTemp As Long
  Dim sDefault As String
  sValue = String(256, \" \")
  lSize = Len(sValue)
  lTemp = GetPrivateProfileString(txtSection, txtKey, sDefault, sValue, lSize, txtPath)
  If lTemp <> 0 Then
    HentIni = sValue
  Else
    HentIni = sDefault
  End If
End Function


!I formen


For at læse fra en Ini fil:skal der være forskellige ting: 

--Alloha.ini--
[General]
WinMEstinker=ja
IE55stinker=ja

[mh]
bla=12

---

ok for at læse:
output=HentIn(\"General\", \"WinMEstinker\", \"C:\\Alloha.ini\")

for at skrive i ini:
Call WritePrivateProfileString(\"General\", \"Erjeggud\", Textbox1.Text, \"C:\\Alloha.ini\"))

OK det var så lidt...

???
Det forstår jeg ikke en dyt af!!!

Behøver jeg virkelig skrive denne kode for at gemme ændringerne?

Jeg forstår simpelthen ikke koden!

Ja...

du kan også vælge at skrive til en fil... men det er jo ikke smart... når du kan lave et ini fil?

...