Как да изберете всички бележки под линия в документ на Word?

Автор: Силувия Последна промяна: 2018-09-06

Обикновено, когато изберете целия документ на Word с Ctrl + A клавиши, всички бележки под линия ще бъдат изключени от избора. Ако просто искате да изберете всички бележки под линия в документа, как можете да го направите? Тази статия предоставя три метода за решаване на този проблем.

Изберете всички бележки под линия в документ с Ctrl + A

Изберете всички бележки под линия в документ с функцията за избор на текст с подобно форматиране

Изберете всички бележки под линия в документ с VBA код

Изберете всички бележки под линия в документ с Ctrl + A

Можете да използвате клавишната комбинация Ctrl + A за да изберете всички бележки под линия наведнъж в документ на Word. Моля, направете следното.

Щракнете, за да поставите курсора върху която и да е бележка под линия на вашия документ, натиснете едновременно клавишите Alt + A, след което всички бележки под линия в текущия документ се избират веднага.

Изберете всички бележки под линия в документ с функцията за избор на текст с подобно форматиране

- Изберете Текст с подобно форматиране може да ви помогне да изберете всички бележки под линия в документ.

1. Щракнете, за да поставите курсора върху която и да е бележка под линия на вашия документ.

2. В Начало кликнете върху Изберете > Изберете целия текст с подобно форматиране. Вижте екранна снимка:

Тогава всички бележки под линия в текущия документ се избират веднага.

Изберете всички бележки под линия в документ с VBA код

Следният VBA код също може да помогне за избиране на всички бележки под линия в документ едновременно. Моля, направете следното.

1. В документа, който ще изберете всички бележки под линия, натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модул, след това копирайте по-долу кода на VBA в прозореца на модула. Вижте екранна снимка:

VBA код: Изберете всички бележки под линия в документ на 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. След това натиснете F5 ключ за изпълнение на този код. Всички бележки под линия в текущия документ се избират наведнъж.