Fußzeile: Bei Änderung des Dokumentnamens wird filename in Fußzeile nicht geändert.

Und ich welchem Moment soll das Makro ausgeführt werden? (Beim öffnen, beim schliessen, manuell?

Und wer ist denn dieser jemand? Soll ich es am 15. mitnehmen?

Gruss

Thomas

...na dann hänge ich die Codezeilen doch hier an. So muss es manuell gestartet werden.

' ---------- ---------- ----------

Option Explicit

Sub AlleFelderAktuialisieren()

Dim rngStoryRange As Word.Range

Dim toc As Word.TableOfContents

Dim tof As Word.TableOfFigures

Dim toa As Word.TableOfAuthorities

'Alle Teile vom Dokument ansprechen

   For Each rngStoryRange In ActiveDocument.StoryRanges

      subFelderAktualiseren rng:=rngStoryRange

      Do While Not (rngStoryRange.NextStoryRange Is Nothing)

         Set rngStoryRange = rngStoryRange.NextStoryRange

         subFelderAktualiseren rng:=rngStoryRange

       Loop

   Next rngStoryRange

'Verzeichnisse aktualisieren

   With ActiveDocument

      For Each toc In .TablesOfContents

         toc.Update

      Next toc

      For Each tof In .TablesOfFigures

         tof.Update

      Next tof

      For Each toa In .TablesOfAuthorities

         toa.Update

      Next toa

   End With

End Sub

Private Sub subFelderAktualiseren( _

   rng As Word.Range)

   rng.Fields.Update

End Sub

' ---------- ---------- ----------

Guten Morgen Christl,

ist leider ein Problem seit mehreren Versionen. Du musst das Feld manuell (per F9) aktualisieren oder per Makro jeweils beim Speichern aktualisieren lassen.

Da das Aktualisieren eh recht unterschiedlich erfolgt (manche Felder werden direkt, andere erst beim Wechsel in die Druckvorschau, wieder andere erst beim Drucken aktualisiert), kann es eventuell sinnvoll sein, generell ein Makro zu nutzen, das sämtliche Felder auf einen Schlag aktualisiert.

Viele Grüße

Lisa