Cum se selectează toate notele de subsol într-un document Word?

În mod normal, când selectați întregul document Word cu Ctrl + A tastele, toate notele de subsol vor fi excluse din selecție. Dacă doriți doar să selectați toate notele de subsol din document, cum puteți face? Acest articol oferă trei metode pentru a rezolva această problemă.

Selectați toate notele de subsol dintr-un document cu Ctrl + A

Selectați toate notele de subsol dintr-un document cu funcția Selectare text cu formatare similară

Selectați toate notele de subsol dintr-un document cu cod VBA

Selectați toate notele de subsol dintr-un document cu Ctrl + A

Puteți utiliza tasta rapidă Ctrl + A pentru a selecta toate notele de subsol dintr-un document Word. Vă rugăm să faceți următoarele.

Faceți clic pentru a plasa cursorul la orice notă de subsol a documentului, apăsați simultan tastele Alt + A, apoi toate notele de subsol din documentul curent sunt selectate imediat.

Selectați toate notele de subsol dintr-un document cu funcția Selectare text cu formatare similară

Selectați Text cu formatare similară funcția poate ajuta la selectarea tuturor notelor de subsol dintr-un document.

1. Faceți clic pentru a plasa cursorul la orice notă de subsol a documentului.

2. În Acasa fila, faceți clic pe Selectați > Selectați tot textul cu formatare similară. Vedeți captura de ecran:

Apoi toate notele de subsol din documentul curent sunt selectate imediat.

Selectați toate notele de subsol dintr-un document cu cod VBA

Următorul cod VBA vă poate ajuta, de asemenea, să selectați toate notele de subsol dintr-un document în același timp. Vă rugăm să faceți următoarele.

1. În document veți selecta toate notele de subsol, apăsați tasta Alt + F11 tastele pentru a deschide Microsoft Visual basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Modul, apoi copiați mai jos codul VBA în fereastra Module. Vedeți captura de ecran:

Cod VBA: selectați toate notele de subsol dintr-un document Word

Sub SelectAllFootnoteTexts()
    Dim xDoc As Document
    Dim xRange As Range
    Set xDoc = ActiveDocument
    If xDoc.Footnotes.Count > 0 Then
        Set xRange = xDoc.Footnotes(1).Range
        xRange.WholeStory
        xRange.Select
    End If
End Sub

3. Apoi apăsați pe F5 tasta pentru a rula acest cod. Toate notele de subsol din documentul curent sunt selectate simultan.