В выделенном фрагменте преобразовать все поля типа eq в текст - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый вечер! Срочно нужны макросы для Word. Суть работы макросов: 1. В выделенном фрагменте текста преобразовать каждое 2-е или 3-е слово текста в поле типа eq. И обратный макрос нужен, чтобы 2. В выделенном фрагменте преобразовать все поля типа eq в текст. образец того что нужно - Образец.doc Если кто не помнит, вот команды работы с полями в Word: Отображение полей в выделенном фрагменте - Shift-F9. Создать из выделенного одного слова поле - Ctrl-F9, но поле создается неопределенного типа и приходится вручную писать после "{" слово "eq". Чтобы из {слово} превратить в {eq слово}. Готов заплатить, если кто-то сообразит как это сделать.
В том то и дело, что поля серым подсвечиваются у меня, а в образце нет.

Решение задачи: «В выделенном фрагменте преобразовать все поля типа eq в текст»

textual
Листинг программы
  1. Sub eq5()
  2. '
  3.  
  4. '
  5. '
  6.    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
  7.     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
  8.         PreserveFormatting:=False
  9.     Selection.TypeText Text:="eq "
  10.     Selection.MoveRight Unit:=wdWord, Count:=3
  11.     Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
  12.     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
  13.         PreserveFormatting:=False
  14.     Selection.TypeText Text:="eq "
  15.     Selection.MoveRight Unit:=wdWord, Count:=3
  16.     Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
  17.     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
  18.         PreserveFormatting:=False
  19.     Selection.TypeText Text:="eq "
  20. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы