Извлечение адреса из документа Word в Excel или CSV

Question

У меня есть файл Word с около 8000 стандартных букв, которые начинаются со стандартной даты открытия:

26 March 2013 
XXXfew lines addressXXX 

Dear Name

paragraphs.

Мне нравится извлекать адрес в формате CSV или Excel. Есть идеи как? Я не хорош в макросах. Можем ли мы сделать это в макросе?

Логика может быть такой: получить что-нибудь между "Дата 26 марта 2013 года" и словом "Дорогой".

Я использую Word 2013.

score 0 · Answer 1 · 2011-03-09T19:38:42

Скопируйте и вставьте буквы в столбец B электронной таблицы. Выполните следующие шаги:

В ячейку A2 вставьте формулу =A1+1 и скопируйте и вставьте эту формулу до последней ячейки столбца A, где вы найдете данные в столбце B
Отфильтруйте столбец B и выберите только "26 марта 2013". Скопируйте и вставьте эту дату во все ячейки столбца A (без удаления фильтра), соответствующие дате в столбце A.
Фильтр ColumnB с «Текст> Начинается с>" Дорогой ". Введите "1" и скопируйте в соответствующие ячейки столбца А.
Если вы удалите все фильтры в столбце A, вы найдете адресные строки, которые вы ищете, начиная с дат 27 марта 2013 года и выше. Остальная часть текста из "Уважаемого имени" с 1 января 1900 года и выше. Теперь отфильтруйте столбец A с датами от 27 марта 2013 года, и у вас есть данные.
Скопируйте и вставьте отфильтрованные данные на другой лист, на котором извлечены ваши адреса.

Вы пытались скопировать данные, как указано выше в процедуре копирования? Вам просто нужно скопировать и вставить 8000 букв (я так понимаю, это огромные данные, разбросанные по тысячам строк), которые у вас есть в одном документе слова, в столбец B листа Excel, начиная с первой ячейки B1. Excel назначит их отдельным строкам на основе клавиш "Return" или "Enter", которые вы использовали в документе word.
Вы попросили извлечь адреса в формате CSV или Excel, поэтому ответ дан для листа Excel. Неважно, если ваши данные в текстовом документе. Результат, который вам нужен, находится в листе Excel. Пожалуйста, попробуйте вышеуказанную процедуру.

1 ответ1