Ich habe ein großes Word-Dokument mit zahlreichen Querverweisen auf Abbildungen, Tabellen usw.
Wie kann ich diesen Referenzen eine Seitenzahl hinzufügen?
So würde beispielsweise aus „Siehe Tabelle 2“ „Siehe Tabelle 2 (S. 123)“.
Ist das möglich? Vielleicht mit einem Makro oder VB-Skript?
Antwort1
Ich kenne keine Möglichkeit, einen einzigen, einheitlichen Querverweis zu erstellen, der sowohl eine Bezeichnung als auch eine Nummer enthält (z. B. TabelleN, FigurNoder GleichungN) und auch eine Seitenzahl – Sie können dies aber auch mit zwei separaten Querverweisen auf dasselbe Element/dieselbe Überschrift tun:
Ich habe fünf Minuten damit verbracht, ein Makro aufzuzeichnen, um eine „AbbildungN” Referenz und hinzufügen “ (SeiteNummer)”:
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" (page "
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.TypeText Text:=")"
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.MoveLeft Unit:=wdCharacter, Count:=4
Selection.MoveRight Unit:=wdCharacter, Count:=8
Selection.MoveLeft Unit:=wdCharacter, Count:=3
Selection.TypeText Text:="PAGE"
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.Fields.Update
Fügen Sie einfach Ihre „AbbildungN” Querverweis und führen Sie die oben. Es
- kopiert die soeben erstellte Referenz,
- fügt „
(page
“ ein - fügt den Querverweis ein,
- fügt „
)
“ ein - bewegt sich zurück (nach links) und wählt den Querverweis aus.
- bearbeitet den Querverweis und ändert
REF
ihn inPAGEREF
.
Ich gehe davon aus, dass dies gleichermaßen mit Tabellen und Gleichungen und (möglicherweise mit einigen Änderungen) mit Abschnittsüberschriften funktioniert.