Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
GrigorMaklauds
1 / 1 / 0
Регистрация: 27.01.2017
Сообщений: 20
1

Поиск в Word через Excel vba

25.10.2017, 20:20. Просмотров 1462. Ответов 2

Здравствуйте форумчане.
Пишу скрипт, который должен находить совпадения между таблицей в Excel и Word документом ( Например: У меня есть в таблице слово "машина" , я должен сделать поиск в Word документе и посмотреть есть ли там это слово) . Остановился на том , что не могу осуществить поиск из Excel в Worde .
Часть скрипта:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
' Global variables
Dim STI As Excel.Workbook ' пока не задействована
Dim STPO As Object
Dim STPO1 As Object
 
Sub Find_and_replace()
Set STI = Workbooks(1)
Set STPO = CreateObject("Word.Application")
Set STPO1 = STPO.Documents.Open("D:\1.docx")
 
With STPO1.Content.Find
    .Text = "98"                           ' рандомное слово
    .Replacement.Text = ""
    .Replacement.Font.Bold = True
    .Format = True
    .Execute Replace:=wdReplaceAll
End With
 
    STPO1.Close True
    
    STPO.Quit
    
 Set STPO1 = Nothing: Set STPO = Nothing
 
End Sub
Пока сделал просто поиск рандомного слова и его выделение в Wordовксом документе. Если я скрипт вставляю в Word и оттуда запускаю, все норм. Но через Excel это не работает.
Может есть другие способы для решения этой задачи.
Если все получится скину все исходники.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.10.2017, 20:20
Ответы с готовыми решениями:

VBA EXCEL -WORD (поиск данных)
Есть файл Excel, в котором есть поля (их 4), к каждому полю приклеплен комментарий, у всех полей он...

Шаблон письма из Word в Outlook через Excel VBA
Здравствуйте! Подскажите, пожалуйста, можно ли решить следующую задачу и как? Есть файл Excel, в...

Словарь переводчика для Word, excel через VBA
Здравствуйте Уважаемые форумчане! Помогите если можно с решением или если хотя бы подскажите...

Поиск и ввод данных в таблицу Excel через форму VBA
Добрый день! По работе столкнулась с необходимостью заполнять большие таблицы, в которых сложно...

Как сделать через VBA поиск по полю "Дата" в Excel не полной даты?
Буду очень признателен за помощь, прошу прощения если это обсуждалось, но поиск не работает,...

2
Казанский
14909 / 6311 / 1720
Регистрация: 24.09.2011
Сообщений: 9,977
25.10.2017, 20:42 2
Лучший ответ Сообщение было отмечено GrigorMaklauds как решение

Решение

GrigorMaklauds, VBA Excel "не знает", что такое wdReplaceAll. Замените на значение этой константы 2 или используйте раннее связывание.
Из Access не открывается файл Excel
References и автоматическое подключение библиотек на поздних версиях MS Office
1
GrigorMaklauds
1 / 1 / 0
Регистрация: 27.01.2017
Сообщений: 20
25.10.2017, 20:57  [ТС] 3
Спасибо
Я не совсем понял). Но заменив .Execute Replace:=2 все заработало.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2017, 20:57

Word и Excel VBA
Доброе время суток! Подскажите, пожалуйста, у меня два вопроса: 1. Какой код в VBA необходимо...

VBA команды в Excel из Word
Доброго времени суток Кусочек кода: Set xlAPP = CreateObject("Excel.Application") Set xlBook =...

Перенос данных из Excel в Word с VBA
Есть некоторые данные в excel(на слайде 1 в ячейке a1(к примеру в ней написана фамилия человека)),...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.