Автор Тема: Word: Убрать поля оглавления, eq и другие  (Прочитано 7541 раз)

Anton

  • Гость
Здравствуйте! Если есть поля в документе (например, оглавление), как его преобразовать в обычный текст? Приложу все-таки пример.

[вложение удалено администратором]

Оффлайн Администратор

  • Administrator
  • Сообщений: 2066
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #1 : 30 Январь 2017, 11:20 »
Поля, которые у вас в файле, называются "eq". Это можно так посмотреть. Щёлкните по полю правой мышью - Коды/значения полей.
Но поля "eq" не получается преобразовать в текст обычным способом: выделить поле - Ctrl+Shift+Enter.
Могу предложить такой вариант. Просто выделите фрагмент с полями, скопируйте его и вставьте как обычный текст (вкладка "Главная" - стрелка кнопки "Вставить" - Сохранить только текст).

Что касается оглавления и других полей, то их можно преобразовать в текст так: выделите фрагмент с полями - Ctrl+Shift+Enter.

Anton

  • Гость
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #2 : 30 Январь 2017, 12:34 »
Спасибо. Неудобно копировать с последующей вставкой только текста, ведь после такой вставки теряется форматирование.
А с помощью макроса можно убрать eq-поля?

Оффлайн Администратор

  • Administrator
  • Сообщений: 2066
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #3 : 30 Январь 2017, 14:02 »
Макрос для 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

Anton

  • Гость
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #4 : 30 Январь 2017, 14:24 »
Какой счастливый финал у моей печальной истории.
Огромное спасибо!

Оффлайн Посетитель 14.07.2022

  • Посетитель форума
  • Сообщений: 9
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #5 : 14 Июль 2022, 18:13 »
Здравствуйте! Извините за подъем старой темы, но актуально стало сейчас попался документ надо его очистить от полей. Запускаю макрос а ошибка выходит ругается на   Selection.PasteAndFormat (wdFormatPlainText). Подскажите что не так?

Оффлайн Администратор

  • Administrator
  • Сообщений: 2066
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #6 : 14 Июль 2022, 18:49 »
Сделайте скриншот сообщения, в котором ошибка.

Оффлайн Посетитель 14.07.2022

  • Посетитель форума
  • Сообщений: 9
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #7 : 14 Июль 2022, 19:41 »
вот ошибка. спасибо

Оффлайн Администратор

  • Administrator
  • Сообщений: 2066
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #8 : 14 Июль 2022, 19:43 »
После ошибки что в тексте выделено? Перед ошибкой макрос выделяет. Посмотрите, что выделено.

Оффлайн Посетитель 14.07.2022

  • Посетитель форума
  • Сообщений: 9
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #9 : 14 Июль 2022, 19:45 »
вот желтым потом выделяет строчку

Оффлайн Администратор

  • Administrator
  • Сообщений: 2066
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #10 : 14 Июль 2022, 19:47 »
Я имел ввиду в самом документе, в тексте документа, что выделено.

Оффлайн Посетитель 14.07.2022

  • Посетитель форума
  • Сообщений: 9
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #11 : 14 Июль 2022, 19:48 »
в тексте выделено слово с полем

Оффлайн Администратор

  • Administrator
  • Сообщений: 2066
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #12 : 14 Июль 2022, 19:55 »
Не знаю, почему ошибка, с ходу не могу сказать.
Значит нужно что-то придумывать.
Если файл не секретный, то выложите на форуме или вышлите мне на почту, методом тыка посмотрю, что такого особого в вашем поле.

Оффлайн Посетитель 14.07.2022

  • Посетитель форума
  • Сообщений: 9
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #13 : 14 Июль 2022, 19:58 »
Вот файл.

Оффлайн Администратор

  • Administrator
  • Сообщений: 2066
Re: Word: Убрать поля оглавления, eq и другие
« Ответ #14 : 14 Июль 2022, 20:00 »
Какая у вас версия Офиса: 2007, 2010 и т.д.
Обновления ставили хотя бы раз после установки Офиса?
У меня макрос обработал без ошибки.