Как да премахнете всички текстови полета в Word?

Автор: Аманда Ли Последна промяна: 2020-05-27

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

Ръчно премахнете всички текстови полета едно по едно
Премахнете всички текстови полета с VBA код
Премахнете лесно всички текстови полета, без да премахвате текст с Kutools за Word

Ръчно премахнете всички текстови полета едно по едно

Ако има само едно или две текстови полета, които искате да премахнете, можете да направите следното:

Стъпка 1: Щракнете вътре в текстовото поле и натиснете Ctrl + C за да копирате текста (пропуснете тази стъпка, ако не искате да запазите текста).

Стъпка 2: Щракнете върху границата на текстовото поле, натиснете Изтрий.

Стъпка 3: Повторете стъпка 1 и стъпка 2, докато не бъдат премахнати всички нежелани текстови полета.

Премахнете всички текстови полета с VBA код

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

1. Натиснете Alt + F11 за отваряне на прозореца на VBA в Word;

2. кликване Модули in Поставете и вмъкнете кода на VBA Модули прозорец;

3. кликване бягане бутон за прилагане на VBA кода (или натиснете F5);

Кодът на VBA за премахване на всички текстови полета без запазване на текст:

Sub Test()
Dim oShp As Word.Shape
Dim i As Long
For i = ActiveDocument.Shapes.Count To 1 Step -1
Set oShp = ActiveDocument.Shapes(i)
If oShp.Type = msoTextBox Then
oShp.Delete
End If
Next i
End Sub

Забележка: Този VBA код може да премахне само текстовите полета на чертежа.

Премахнете лесно всички текстови полета с Kutools за Word

Можете да премахнете всички текстови полета, но да запазите съдържанието им, или да премахнете както текстовите полета, така и тяхното съдържание в документа с Kutools за Word.

Kutools за Word : С повече от 100 удобни добавки на Word, безплатно за изпробване без ограничение за 60 дни.

1. Моля, приложете тази помощна програма, като щракнете Kutools > Премахване > Премахнете всички текстови полета. Вижте екранна снимка:

2. Ако просто искате да премахнете текстовите полета и да запазите текста, моля, проверете Просто премахнете текста кутия и запазете текста опция в Премахнете всички текстови полета диалогов прозорец, след което щракнете OK. Ако искате да премахнете и текстовото поле, и текста, моля, махнете отметката.

3. След това се появява диалогов прозорец, за да ви каже колко текстови полета са премахнати успешно, моля, щракнете върху OK бутон.

След това можете да видите, че всички текстови полета със или без съдържание са премахнати от документа. Вижте екранни снимки:

тип: След премахване на текстови полета от документа може да се покажат празни редове. Тогава Премахнете знаците за празни абзаци полезност на Kutools за Word може да ви помогне да премахнете всички празни редове от документа едновременно. Моля щракнете Kutools > Празни параграфи > Премахнете знаците за празни абзаци. Вижте екранна снимка:

След това всички празни редове се премахват автоматично от текущия документ по едно и също време:

Ако искате да имате безплатна пробна версия на тази помощна програма, моля, отидете на безплатно изтегляне на софтуера първо и след това преминете към прилагане на операцията според горните стъпки.