MS Word - adiciona número de página a várias referências cruzadas

Question

Eu tenho um grande documento do Word com várias referências cruzadas para figuras, tabelas, etc.

Como posso adicionar um número de página a essas referências?

Assim, por exemplo, "Veja a Tabela 2" se tornaria "Veja a Tabela 2 (p. 123)".

Isso é possível? Talvez com um script Macro ou VB?

    

Answer 1

Não conheço nenhuma maneira de fazer uma referência cruzada única e unificada que inclui um rótulo e um número (por exemplo, Tabela n , Figura n , ou Equação n ) e também um número de página - mas você certamente pode fazer isso com duas referências cruzadas separadas para o mesmo item / legenda:

Passeicincominutosgravandoumamacroparaobterumareferência"Figura n " e adicione “(page num )”:

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

Basta inserir sua referência cruzada "Figura n " e executar as etapas acima.

• copia a referência que você acabou de criar,
• insere "  (page  ",
• cola a referência cruzada,
• insere " ) ",
• se move para trás (à esquerda) e seleciona a referência cruzada e
• edita a referência cruzada, alterando REF para PAGEREF .

Espero que isso funcione igualmente com tabelas e equações, e (possivelmente com algumas modificações) com cabeçalhos de seção.