Если вы много работаете с документами, полученными от других людей, вам может потребоваться удалить текстовые поля в этих документах. Если в документе всего одно или два текстовых поля, их несложно выделить и удалить. А что, если текстовых полей 30, 40 или больше?
Удаление их по отдельности может стать утомительным занятием.
Одно из возможных решений — метод «грубой силы». Выполните следующие действия:
- В своем документе нажмите Ctrl + A. Выбирается весь документ.
- Нажмите Ctrl + C. Документ теперь находится в буфере обмена.
- Откройте новый пустой документ.
- Выберите «Специальная вставка» в меню «Правка». Word отображает диалоговое окно Специальная вставка. (См. Рис. 1.)
- В списке форматов выберите «Неформатированный текст».
- Щелкните ОК.
Текст документа без текстовых полей теперь находится в новом документе. Очевидный недостаток этого подхода заключается в том, что другое форматирование исходного документа также теряется, и вам необходимо переформатировать весь документ. (Я сказал вам, что это был метод грубой силы.)
Если вы хотите избавиться только от текстовых полей, самое быстрое решение — использовать макрос. Следующий макрос быстро удалит все текстовые поля в документе:
re>Sub RemoveTextBox1() Dim shp As Shape For Each shp In ActiveDocument.Shapes If shp.Type = msoTextBox Then shp.Delete Next shp End Sub
Вы должны понимать, что этот макрос удаляет все текстовые поля и их содержимое. Другими словами, если текстовое поле используется для размещения текста, то текст в этом текстовом поле удаляется вместе с самим текстовым полем.
Если вы предпочитаете переносить текст из текстовых полей в документ до удаления текстового поля, то небольшое изменение вышеуказанного макроса будет работать:
re>Sub RemoveTextBox2() Dim shp As Shape Dim oRngAnchor As Range Dim sString As String For Each shp In ActiveDocument.Shapes If shp.Type = msoTextBox Then ‘ copy text to string, without last paragraph mark sString = Left(shp.TextFrame.TextRange.Text, _ shp.TextFrame.TextRange.Characters.Count — 1) If Len(sString) > 0 Then ‘ set the range to insert the text Set oRngAnchor = shp.Anchor.Paragraphs(1).Range ‘ insert the textbox text before the range object oRngAnchor.InsertBefore _ "Textbox start > Textbox end" End If shp.delete End If Next shp End Sub
Когда этот макрос будет готов, вы можете выполнить поиск по запросу «Начало текстового поля», и вы окажетесь в начале текста, который раньше был в текстовых полях, которые теперь исчезли из вашего документа. Затем вы можете отредактировать текст, чтобы он выглядел так, как вы хотите.
Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.
link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера] .
WordTips — ваш источник экономичного обучения работе с Microsoft Word.
(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1690) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:
link: / wordribbon-Removing_All_Text_Boxes_In_a_Document [Удаление всех текстовых полей в документе] .
Как убрать в ворде поля для заполнения
Текстовые поля в документах Word полезны для выделения определенных разделов текста или для создания определенного макета. Однако может наступить момент, когда вам понадобится удалить все текстовые поля из документа, либо в целях переформатирования, либо для упрощения структуры документа. Удаление каждого текстового поля вручную может быть утомительным, особенно в длинных документах.
В этом уроке мы покажем вам эффективные методы удаления всех текстовых полей в Word, которые помогут вам упростить процесс редактирования документов.
Удаление текстовых полей вручную по одному
Если вам нужно удалить только одно или два текстовых поля, выполните следующие действия:
- Щелкните внутри текстового поля, нажмите Ctrl + C чтобы скопировать текст, щелкните за пределами текстового поля и нажмите Ctrl + V чтобы вставить текст в документ ( пропустите этот шаг, если вы не хотите сохранять текст).
- Щелкните границу текстового поля и нажмите Удалить , чтобы удалить его.
- Повторите шаги 1 и 2 для каждого текстового поля, которое вы хотите удалить.
Удалить границу текстового поля и сохранить текст
Если вы хотите удалить только границу текстового поля, не удаляя его, выполните следующие действия:
- Щелкните правой кнопкой мыши границу текстового поля, которое вы хотите удалить, и выберите Форма форматирования.
- В Форма форматирования панель, в линия выберите Нет линии возможность удалить границу.
Наконечник: Держать Ctrl и выберите несколько границ текстовых полей, чтобы удалить их одновременно.
Легко удаляйте все текстовые поля с возможностью сохранения текста с помощью Kutools for Word
Kutools for Word упрощает процесс удаления текстовых полей из документа. В отличие от ручных методов Word, Kutools позволяет вам удалить все текстовые поля, сохранив их содержимое, или эффективно удалить как текстовые поля, так и их содержимое.
Kutools for Word, оснащен ИИ , предлагает более 100 удобных функций для упрощения ваших задач.
- Пожалуйста, примените эту утилиту, нажав Кутулс >Удалить >Удалить все текстовые поля.
- " Удалить все текстовые поля появится диалог: >
- Если вы хотите удалить текстовые поля, но сохранить их содержимое, установите флажок Просто удалите текстовое поле и сохраните текст , затем нажмите OK.
- Если вы хотите удалить и текстовые поля, и их содержимое, снимите этот флажок и нажмите OK.
- Появится диалоговое окно подтверждения, в котором будет указано, сколько текстовых полей было удалено. Нажмите OK.
Kutools for Word — это идеальная надстройка Word, которая оптимизирует вашу работу и повышает ваши навыки обработки документов. Получи это сейчас!
Удалить все текстовые поля (текст сохранить нельзя) с помощью кода VBA
Если в вашем документе слишком много текстовых полей и вам не нужно сохранять текст внутри, использование кода VBA может быть очень эффективным. Выполните следующие действия, чтобы удалить все текстовые поля в вашем документе:
- Press Alt + F11 чтобы открыть окно VBA в Word.
- Нажмите Модули в Вставить вкладку и вставьте приведенный ниже код VBA в Модули окно. Код VBA для удаления всех текстовых полей без сохранения текста:
re>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 может только удалить текстовые поля чертежа.
Демонстрация: легкое удаление текстовых полей без удаления текста в Word
Откройте для себя Кутулс / Кутулс Плюс вкладка в этом видео из Kutools for Word. Наслаждайтесь более чем 100 функциями и бесплатными утилитами искусственного интеллекта на постоянной основе. Скачать сейчас!
Лучшие инструменты для офисной работы
Kutools for Word — Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Текстовые поля / Гиперссылки / Дополнительные инструменты для снятия см. Удалить группа.
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Несколько изображений / Узнайте больше в Вставить группа.
Хотите попробовать эти функции? Загрузите Kutools for Word прямо сейчас!
Бесплатная загрузка Купить Узнайте больше о Kutools для Word
