Automatisk opdatering af "felt"

Du kan lave en lille makro, som opdaterer alle felter, når dit dokument åbner.

Kan man ligge macroer ind i selve dokumentet?

Det er en "skabelon" som skal bruges af flere personer, derfor skal feltet opdaterer, da txt filen ligger på deres U drev som er deres personlige drev.

f.eks.

For n = 1 To ActiveDocument.Fields.Count
ActiveDocument.Fields.Item(n).Update
Next

skal det bare sættes ind i VB under default?

Jep - hvis det er en .dot fil skal du bruge føleden kode inde i VBA miljøet(ALT+F11) i Word

I vba miljøet skal du vælge ThisDocument og indsætte denne kode:

Private Sub Document_New()
For n = 1 To ActiveDocument.Fields.Count
  ActiveDocument.Fields.Item(n).Update
Next
End Sub

Måske kan du markere alt (Ctrl+A) og trykke F9. Skal det bruges i en makro, kan du jo bare indspille det.

Det ser ikke helt ud til det virker, teksten der står er stadig det som da man gemte .txt filen, men ikke det som står i den nu

peter.erikse i CRTL + A tager den ikke sidefod med

Nej det tror jeg i øvrigt ikke den gør - ellers skal du gøre det samme når du har åbnet sidefod/hoved

peter.erikse: yep, men det er den løsning jeg helst skal ungå :), en anden grund til jeg har fravalgt den måde er at den laver et linie skift efter mit felt med includeText der inkludere txt filen.

Nedenstående makro opdaterer alle felter i hele det aktive dokument. Et dokumnent består i VBA-sammenhæng af et antal "stories" (main document, headers, footers, footnotes, endnotes, ...). De skal alle opdateres:

Sub UpdateAllFields()
   
    'Update all fields in all stories in the active document
    'Includes headers/footers etc.
   
    Dim oStory As Range
    For Each oStory In ActiveDocument.StoryRanges
        oStory.Fields.Update
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                oStory.Fields.Update
            Wend
        End If
    Next oStory
   
    'Clean up
    Set oStory = Nothing
End Sub

Jeg tilslutter mig lenes kode :-)

Og så kunne min kode modificeres således:

Private Sub Document_New()
Call  UpdateAllFields
End Sub

mange tak, smider du et svar?

Jeg ved ikke, om du er rvm eller mig - men du kan jo dele. Her er et svar fra mig.

Her er også et svar :-)