Как изменить конструкцию предложения с помощью Word VBA? - PullRequest
0 голосов
/ 11 июня 2011

У меня более ста текстовых файлов, и мне нужно изменить структуру нескольких предложений, используя определенный формат.Я не очень знаком или знаком с Word VBA, но надеюсь, что смогу получить некоторые идеи, которые помогут мне начать работу.У меня ниже первоначальный абзац и его желаемый вывод.В основном мне нужно поместить значения (например, 40-120 частей) после каждого элемента (например, изолейцин) и заключить их в "(" и ")".

Оригинал: Комбинация кислотыдля повышения иммунитета, включающий следующее весовое сырье: 40-120 частей изолейцина, 45-135 частей лейцина, 76,5-229,5 частей гидрохлорида лизина, 21,5-64,5 частей метионина, 35-105 частей фенилаланина, 40-120 частей валина, 30-90 частей треонина, 39-117 частей аргинина, 23-69 частей гистидина, 37,5-112,5 частей глицина, 50-150 частей аспартата, 900-2700 частей высушенного гриба, 750-2250 частей мушмулы и 250-750 частей солодки.

Желаемый выход: Кислотная комбинация для повышения иммунитета включает (мас.ч.): изолейцин (40-120), лейцин (45-135), гидрохлорид лизина (76,5-229,5), метионин (21,5-64,5), фенилаланин (35-105), валин (40-120), треонин (30-90), аргинин (39-117), гистидин (23-69), глицин (37,5-112,5), аспартат (50-150),сушеные грибы (900-2700), мушмула (750-2250) и солодка (250-750).

1 Ответ

0 голосов
/ 28 июня 2011

Возможно, вы могли бы попробовать следующую последовательность:

  • Найдите деталь, которую вы хотите изменить (числа, разделенные - и части) с помощью функции Find (другая ссылка ) и правильно сформированное регулярное выражение (что означает подстановочные знаки для Word)
  • Установите скобки в начале и в конце соответствующего элемента (используйте объект диапазона )
  • Удалить последнее слово («часть») - или все, что вы хотите сделать
  • Перебрать все результаты, чтобы сделать то же самое (см. Примерциклически просматривая функцию поиска здесь )

Не забудьте записать макрос, если вы ищете некоторые подсказки или конкретные объекты (даже если полученный код менее полон, чемпроизводства Excel vba).

Пожалуйста, не стесняйтесь размещать код, если вам нужна дополнительная помощь,

С уважением,

Макс

...