Microsoft Word VBA - IF & THEN Найти слово и распечатать на другом листе

Question

Я немного начинаю, когда речь заходит о VBA (в основном, переходите через код с помощью действий записи, а затем изменяете его в соответствии с тем, что мне нужно).

Моя текущая задача заключается в следующем:

Я собираюсь собрать сотни Docs слов, которые содержат адреса электронной почты от клиентов, что мне нужно. Чтобы сделать это как можно проще, я хотел бы иметь код, который находит их электронные письма. И дополнительную информацию, которая окружает адреса электронной почты (имя, местоположение, название должности и [возможно] номер телефона), а затем копирует и вставляет указанной информации в другой обозначенный документ. Документы и вышеупомянутая информация отформатированы как таковой:

FirstName LastName 
Location 
Job title @ Company 
email address - phone number 

Теперь, я считаю, что это будет включать в себя и IF/THEN заявление, поскольку не все клиенты имеют свои адреса электронной почты в документах.

Итак, ЕСЛИ есть адрес электронной почты, ТОГДА скопируйте его вместе с тремя строками выше и номером телефона, который разделен пробелом «-» «пробел» и вставьте его на другой лист. ЕСЛИ нет адреса электронной почты, а затем продолжайте движение.

Этот код запроса, вероятно, включает в себя FIND, который должен иметь «@» и «.com», прикрепленные к одной и той же строке. Это потребуется, поскольку в документе также содержится другой текст, который имеет «.com» и «@», но не вместе.

Это звучит сложнее, чем на самом деле, но опять же я новичок, поэтому не совсем уверен. Не стесняйтесь задавать дополнительные вопросы!

Answer 1

Это очень широкий вопрос, но я предлагаю вам сделать следующее:

• Используйте Scripting.FileSystemObject перебирать файлы в папке, ищет документы Word,
• Откройте документ с помощью автоматизации Word, объектная модель
  • Application объект
  • Application.Documents собственности и Documents коллекция
  • Documents.Add метода, а Document объекта, чтобы создать целевой документ
  • Documents.Open метода, чтобы открыть существующие документы
• Найти сообщения электронной почты в пределах документа (через Document.Content собственности и Range объекта)
  • Range.Find собственности и Find объект
• Если метод Find.Execute2007 возвращает истину, то:
  • Расширьте диапазон 3 предыдущих пунктов
    • Range.MoveStart метод
  • Скопируйте и вставьте диапазон целевого документа
    • Вы можете написать только текст в документ назначения — Range.Text Недвижимость, d в Range.Insert- * Методы
    • Или, вы можете использовать буфер обмена Range.Copy и Range.Paste
    • Или, вы можете экспортировать во внешний файл (Range.ExportFragment), а затем импорт из внешнего файла (Range.ImportFragment)