В выделенном фрагменте преобразовать все поля типа eq в текст - VBA
Формулировка задачи:
Добрый вечер!
Срочно нужны макросы для Word. Суть работы макросов:
1. В выделенном фрагменте текста преобразовать каждое 2-е или 3-е слово текста в поле типа eq.
И обратный макрос нужен, чтобы
2. В выделенном фрагменте преобразовать все поля типа eq в текст.
образец того что нужно - Образец.doc
Если кто не помнит, вот команды работы с полями в Word:
Отображение полей в выделенном фрагменте - Shift-F9.
Создать из выделенного одного слова поле - Ctrl-F9, но поле создается неопределенного типа и приходится вручную писать после "{" слово "eq". Чтобы из {слово} превратить в {eq слово}.
Готов заплатить, если кто-то сообразит как это сделать.
В том то и дело, что поля серым подсвечиваются у меня, а в образце нет.
Решение задачи: «В выделенном фрагменте преобразовать все поля типа eq в текст»
textual
Листинг программы
Sub eq5() ' ' ' Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="eq " Selection.MoveRight Unit:=wdWord, Count:=3 Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="eq " Selection.MoveRight Unit:=wdWord, Count:=3 Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="eq " End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д