Início / computer / Perguntas / 1839604
Accepted
Andrew Ryan
Asked: 2024-04-19 11:39:38 +0800 CST

MS Word - Convertendo uma nota de rodapé personalizada em uma lista de notas de rodapé numeradas contínuas

  • 772

Tenho algumas notas de rodapé que estou editando (em um Mac), que possuem referências cruzadas à nota de rodapé (portanto, copiar e colar o texto da nota de rodapé em uma nota de rodapé recém-inserida não é realmente uma opção).

Como eu converteria uma marca de nota de rodapé personalizada em uma lista numerada continuamente (veja a imagem abaixo)

Exemplo de lista de notas de rodapé com 8a, 9, 9a, 9b, 10, 10a, 11, 12

Eu gostaria de poder converter 8a, 9a, 9b e 10a em suas notas de rodapé numeradas correspondentes (sem letras), de modo que as notas de rodapé acima fossem numeradas apenas de 9 a 16:

8a --> 9
9a --> 11
9b --> 12
10a --> 14

Ouvi dizer que é possível converter as notas de rodapé sem copiar e colar seguindo estas etapas:

  1. Coloque o cursor no final do conteúdo da nota de rodapé 8a.
  2. Clique com o botão direito no número de referência da nota de rodapé (neste caso, 8a) na parte inferior da página.
  3. Selecione "Editar campo" no menu de contexto.
  4. Na caixa de diálogo Campo, altere o "Tipo de referência" para "Nota de rodapé" e defina as "Propriedades do campo" para o número da nota de rodapé desejado (neste caso, 9).
  5. Clique em OK para aplicar as alterações.

Porém, não consigo confirmar (pelo menos no PC). Para Mac, não há opção edit fielde meu entendimento da caixa de diálogo da nota de rodapé (ao clicar com o botão direito) é limitado e foi inútil alterar a nota de rodapé de volta para uma lista contínua.

O que eu teria que fazer no Mac para alterar a marca da nota de rodapé de volta para uma lista contínua?

microsoft-word

1 respostas

  1. Best Answer

    Tentei as etapas listadas no Mac e depois no Windows. Mas também não recebo "Editar campo", provavelmente porque nem a referência da nota de rodapé "na parte inferior da página" nem a referência da nota de rodapé no corpo do texto são um código de campo. AFAICS, o único código de campo que você poderá selecionar seria uma referência adicional à nota, ou seja, um NOTEREF ou talvez um campo FTNREF antigo. Você conseguiu fazer este procedimento funcionar no Windows?

    Pessoalmente, provavelmente presumo que seja necessário um pouco de VBA. Provavelmente já foi feito por alguém, mas aqui está o que eu criei como ponto de partida - teste cuidadosamente antes de usá-lo de verdade. Isso passou por alguns testes rudimentares no Mac Word, mas nenhum no Windows Word, onde é possível que o comportamento seja diferente.

    Deixo vocês pesquisar como instalar e usar macros VBA no Mac Word.

    Sub modifyfootnote()
' Click in a footnote and run this macro to replace a custom-numbered footnote
' by an auto-numbered footnote.

' When you have modified your footnotes, you will need to update any footnote cross-references
' that reference the modified footnotes,. at least if those cross-references are showing the footnote number.

' The easy way to do that would be to select the entire document at the end and update all
' the fields. But I suppose I would do that a little bit more often to reassure myself that the references
' were updating correctly.

' A Footnote.Range is the footnote text.
' A Footnote.Reference is the Range of the reference in the main text body (not the reference in the footnote)
Dim newfootnote As Word.Footnote
Dim oldrange As Word.Range
Dim referencerange As Word.Range
With Selection
  Select Case .Footnotes.Count
  Case 0:
     MsgBox "Please click in the body of a footnote."
  Case 1
    ' NB, if you triedto use a variable "oldfootnote" to point to the existing footnote,
    ' you will find that on insertion of the new one, the selection changes and in fact
    ' oldfootnote and newfootnote will point to the same footnote. Which isn't helpful.
    
    ' So instead we point oldrange to the range of the old footnote
    Set oldrange = Selection.Range.Footnotes(1).Range
    Set referencerange = Selection.Footnotes(1).Reference
    
    ' Inserting a new footnote immediately before the old footnote's reference appears to preserve the _Ref
    ' bookmark used for any cross-references to this bookmark
    referencerange.Collapse WdCollapseDirection.wdCollapseStart
    
    ' *all* auto-numbered footnotes will change to use whatever format you specify here.
    referencerange.FootnoteOptions.NumberStyle = wdNoteNumberStyleArabic
    Set newfootnote = referencerange.Footnotes.Add(referencerange, , "temptext")
    newfootnote.Range.FormattedText = oldrange.FormattedText
    oldrange.Footnotes(1).Delete
  Case Else
    MsgBox "You have selected more than one footnote. Please click in *just one* footnote."
  End Select
End With
End Sub
    • 1

relate perguntas