Когда вы работаете с документами, особенно длинными документами, созданными кем-то другим, вам может потребоваться удалить все поля в документе. Ответ на вопрос, как это сделать, почти полностью зависит от того, что вы подразумеваете под «удалением» поля.

Если вы имеете в виду, что хотите избавиться от полей и заменить их простым текстом, который представляет результат поля, то самый простой способ — выделить весь документ (Ctrl + A), а затем нажать Ctrl + Shift + F9, чтобы «отвязать» поля. Везде, где было поле, поле удаляется и заменяется результатом поля.

Если вы просто хотите избавиться от всех полей и не заботитесь о том, чтобы они были заменены чем-либо, вы можете использовать возможности поиска и замены Word. Выполните следующие действия:

  1. Нажмите Alt + F9. Это делает видимыми все коды полей в вашем документе, а не результаты этих полей.

  2. Нажмите Ctrl + H. Word отображает вкладку «Заменить» диалогового окна «Найти и заменить». (См. Рис. 1.)

  3. В поле «Найти» введите ^ d в качестве искомого объекта (убедитесь, что вы используете букву d в нижнем регистре). Это код, который Word понимает как «любое поле».

  4. Убедитесь, что поле «Заменить на» пусто.

  5. Нажмите «Заменить все».

Все поля в вашем документе должны исчезнуть. Если вам приходится избавляться от полей таким способом довольно часто, имеет смысл создать макрос, который будет выполнять эту задачу за вас. Ниже приводится простой короткий макрос, который просматривает все части вашего документа и удаляет все поля.

Sub DeleteFields()

Dim rng As Range

For Each rng In ActiveDocument.StoryRanges         With rng.Fields             While .Count > 0                 .Item(1).Delete             Wend         End With     Next End Sub

Вы, конечно, можете назначить макрос «link: / wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [Панель быстрого доступа]» или сочетанию клавиш, чтобы его можно было вызвать в действие как можно быстрее.

Следует отметить, что если в вашем документе несколько текстовых полей, этот макрос удалит поля только из основного документа и первого текстового поля. (Не спрашивайте почему; это кажется странным в Word.) Если у вас есть поля не только в первом текстовом поле, то вам понадобится другой подход к макросам:

Sub DeleteAllFields()

Dim rng As Range     Dim shp As Shape     Dim TxtFrame As TextFrame

For Each rng In ActiveDocument.StoryRanges         With rng.Fields             While .Count > 0                 .Item(1).Delete             Wend         End With

For Each shp In rng.ShapeRange             Set TxtFrame = shp.TextFrame             If Not TxtFrame Is Nothing Then                 If TxtFrame.HasText Then                     With TxtFrame.TextRange.Fields                         While .Count > 0                             .Item(1).Delete                         Wend                     End With                 End If             End If         Next shp     Next rng End Sub

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (10818) применим к Microsoft Word 2007, 2010, 2013 и 2016. Вы можете найти версию этого совета для старого интерфейса меню Word здесь: link: / word-Deleting_All_Fields [Удаление всех полей].