Здравствуйте! Если есть поля в документе (например, оглавление), как его преобразовать в обычный текст? Приложу все-таки пример.
[вложение удалено администратором]
Поля, которые у вас в файле, называются "eq". Это можно так посмотреть. Щёлкните по полю правой мышью - Коды/значения полей.
Но поля "eq" не получается преобразовать в текст обычным способом: выделить поле - Ctrl+Shift+F9.
Могу предложить такой вариант. Просто выделите фрагмент с полями, скопируйте его и вставьте как обычный текст (вкладка "Главная" - стрелка кнопки "Вставить" - Сохранить только текст).
Что касается оглавления и других полей, то их можно преобразовать в текст так: выделите фрагмент с полями - Ctrl+Shift+F9.
Спасибо. Неудобно копировать с последующей вставкой только текста, ведь после такой вставки теряется форматирование.
А с помощью макроса можно убрать eq-поля?
Макрос для eq-полей.
Макрос
Sub Макрос()
Dim fld As Field, i As Long
'1. Скрытие кодов полей, если вдруг юзер их отобразил для каких-то своих целей.
ActiveWindow.View.ShowFieldCodes = False
For i = ActiveDocument.Fields.Count To 1 Step -1
'2. Присваивание программного имени полю.
Set fld = ActiveDocument.Fields(i)
' Если это eq-поле.
If fld.Type = wdFieldFormula Then
'3. Выделение поля (с помощью Range не получилось работать).
fld.Select
'4. Копирование поля.
Selection.Copy
'5. Вставка поля в виде текста.
Selection.PasteAndFormat (wdFormatPlainText)
End If
Next i
'5. Сообщение, чтобы юзер понял, что макрос закончил работу.
MsgBox "Готово.", vbInformation
End Sub
Какой счастливый финал у моей печальной истории.
Огромное спасибо!
Здравствуйте! Извините за подъем старой темы, но актуально стало сейчас попался документ надо его очистить от полей. Запускаю макрос а ошибка выходит ругается на Selection.PasteAndFormat (wdFormatPlainText). Подскажите что не так?
Сделайте скриншот сообщения, в котором ошибка.
вот ошибка. спасибо
После ошибки что в тексте выделено? Перед ошибкой макрос выделяет. Посмотрите, что выделено.
вот желтым потом выделяет строчку
Я имел ввиду в самом документе, в тексте документа, что выделено.
в тексте выделено слово с полем
Не знаю, почему ошибка, с ходу не могу сказать.
Значит нужно что-то придумывать.
Если файл не секретный, то выложите на форуме или вышлите мне на почту, методом тыка посмотрю, что такого особого в вашем поле.
Вот файл.
Какая у вас версия Офиса: 2007, 2010 и т.д.
Обновления ставили хотя бы раз после установки Офиса?
У меня макрос обработал без ошибки.
Вот какой