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

Anonym
2011-11-26T18:22:07+00:00

Ich nehme ein Dokument als Vorlage für ein anderes und ändere den Dateinamen. In der Fußzeile hatte ich "Schnellbausteine > Feld > FileName" eingefügt. Im umbenannten Dokument erscheint allerdings noch der FileName der alten Dokuments, was recht unbrauchbar ist. Gibt es da eine Lösung?

Vielen Dank im voraus.

Christl M.

Microsoft 365 und Office | Word | Für Zuhause | Windows

Gesperrte Frage. Diese Frage wurde aus der Microsoft-Support-Community migriert. Sie können darüber abstimmen, ob sie hilfreich ist, aber Sie können keine Kommentare oder Antworten hinzufügen oder der Frage folgen.

0 Kommentare
Antwort, die vom Frageautor angenommen wurde
Anonym
2011-12-28T21:16:26+00:00

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

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

War diese Antwort hilfreich?

0 Kommentare
Antwort, die vom Frageautor angenommen wurde
Lisa Wilke-Thissen 90,800 Zuverlässigkeitspunkte Volunteer Moderator
2011-11-27T07:54:15+00:00

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

War diese Antwort hilfreich?

0 Kommentare

29 zusätzliche Antworten

Sortieren nach: Am hilfreichsten
Am hilfreichsten Neueste Älteste
  1. Anonym
    2011-12-30T10:47:58+00:00

    Guten Morgen Christl

    Na dann mal los. Ist ja nichts grosses

    • Word starten und in den Visual Basic-Editor wechseln (Alt+F11)
    • Projekt-Explorer öffnen via Ansicht/Projekt-Explorer
    • im Baum das Projekt "Normal" markieren
    • ein Modul einfügen via Einfügen/Modul
    • den kompletten Code von meiner Antwort von vorgestern (.inkl die '----) in die Zwischenablage nehmen und dann hier einfügen
    • speichern

    Jetzt ist das Makro in der Normal.dotm drin und stht dir zur Verfügung. Jetzt hast du verschiedene Möglichkeiten.

    1.) du kannst das Makro der Symolleiste für den Schnellzugriff hinzufügen. Ich nehme mal an, dass du weisst wie das geht.

    2.) du kannst das Makro in das Menüband aufnehmen. Ich nehme mal an, dass du weisst wie das geht.

    3.) du kannst haben, dass das Makro ausgeführt wird, sobald ein Dokument geöffnet wird. Dazu musst du das Makro einfach umbenennen. Im eingefügten Code die Zeile

       Sub AlleFelderAktuialisieren()

    auf

       Sub AutoOpen()

    ändern und erneut speichern. Mehr ist nicht nötig.

    Und wenn du die bereits erwähnte Option aktiviert hast, dann sind deine Felder wirklich fast immer automatisch aktuell.

    Falls du lieber einen anderen Moment hättest, wo deine Felder aktualisiert werden sollten, dann beschreibe diesen und ich liefere dir die benötigten Zeilen.

    Gruss

    Thomas

    War diese Antwort hilfreich?

    0 Kommentare
  2. Anonym
    2011-12-30T06:05:17+00:00

    Hallo Thomas --

    Das ist echt nett von dir, dass du mir helfen willst. Ich hab aber noch nie Makros in Word verwendet. Wenn du mir eine kurze Beschreibung (Link oder so was) geben kannst, dann kann ich's ja mal versuchen.

    Danke jedenfalls und einen frohen Silvesterabend!

    Christl M.

    War diese Antwort hilfreich?

    0 Kommentare
  3. Anonym
    2011-12-29T17:35:06+00:00

    hallo Christl

    He den Code nicht aufheben. Einbauen und Nutzen ist angesagt. Wie gesagt, wann soll das Ding gestartet werden? Dann bringe ich dir den Rest auch noch.

    Und falls du nicht weisst wie einbauen, dann ist das ebenfalls schnell beschrieben.

    Tschüss

    Thomas

    War diese Antwort hilfreich?

    0 Kommentare