vba word: Gem variabler til txt fil

Kombiner

http://www.eksperten.dk/spm/100330 (læs/skriv til fil)

&

http://www.eksperten.dk/spm/245916 (loop gennem alle variabler)

Så er du der!

PS - der er MASSER af besvarede spørgsmål med hvordan man læser/skriver til en fil (søg fx. på "gem fil") - det link jeg har givet er bare et af dem

/Martin

Den er jeg med på. MEN ...
Variablerne indeholder jo ikke kun én oplysning, men to; name og value.
Name skal gemmes og sidenhen indlæses i combobox og value ligeså, blot til txtdata.txt.

Når jeg gemmer sker det som name og value i én streng ("Name Value"). Hvordan kan jeg gemme name og value i en *.txtfil og sidenhen indlæse name og value hver for sig???

Nu har jeg fundet ud af at skrive Name og Value på hver sin linie, under hinanden med
Open "I:\TESTFILE.txt" For Input As #1
Do While Not EOF(1)
    antalposter = antalposter + 1
    Input #1, PostID(antalposter)
    Input #1, PostData(antalposter)
Loop
Close #1

Men når jeg skal indlæse dem med nedenstående kode, får jeg fejlmedd. "Input past end of file".

Hvad gør jeg, eksperter???

Open "I:\TESTFILE.txt" For Output As #1
    Write #1, Format(Date, dd, vbMonday, vbFirstFullWeek)
For Each avar In ActiveDocument.Variables
    Write #1, avar.Name '& " Value:" & avar.Value
    Write #1, avar.Value
Next
Close #1    ' Close file.


Koden øverst er selvfølgelig til "gem" og denne til "indlæs"

Mth. Input past end of file:

Jeg vil tro, at den fejl opstår, fordi du indlæser 2 (ikke 1) linier i hvert loop, og loopet stopper først ved EOF. Således forsøger du at læse netop en linie mere end der er i filen.

Enten kan du lave lidt om på dit indlæsnings-loop, eller smide en ekstra linie ind når du skriver til filen, f.eks:

  For Each avar In ActiveDocument.Variables
    Write #1, avar.Name '& " Value:" & avar.Value
    Write #1, avar.Value
  Next
  Write #1, "Dummy-linie" 'Linie der forhindrer "Input past end of file"
  Close #1   

/Martin