Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Samyrro
0 / 0 / 0
Регистрация: 13.10.2014
Сообщений: 26
1

Подсветить слово в документе Word из Excel

10.10.2019, 17:37. Просмотров 150. Ответов 2

Задача: найти текст в документе word, который соответствует значениям выделенных ячеек в excel и подсветить их жёлтым цветом (именно заливка фона). Помогите найти причину, по которой текст не подсвечивается.

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
26
27
28
29
30
Dim Number, x As Variant
Dim objWrdApp As Object, objWrdDoc As Object
Dim avFiles
    avFiles = Application.GetOpenFilename _
    ("Word files(*.doc*),*.doc*", 1, "Выбрать файлы", , True)
    If VarType(avFiles) = vbBoolean Then
        Exit Sub
    End If
    
For Each x In avFiles
        Set objWrdApp = CreateObject("Word.Application")
        objWrdApp.Visible = True
        
        Set objWrdDoc = objWrdApp.Documents.Open(x)
        For Each Number In Selection
        With objWrdDoc.Content.Find
       .Text = Number.Value
       .Replacement.Text = ""
        .Replacement.Highlight = True
        .Replacement.HighlightColorIndex = vbYellow
       .Replacement.Font.Bold = True
       .Execute Replace:=2
        End If
        End With
        Next
     objWrdDoc.Close True
     objWrdApp.Quit
     Set objWrdDoc = Nothing: Set objWrdApp = Nothing
Next
End Sub
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2019, 17:37
Ответы с готовыми решениями:

Таблица Excel в документе Word
Добрый день, подскажите пожалуйста. Имеется документ Word, в него вставлена таблица Excel, как из...

Замена меток в документе WORD данными из EXCEL
Доброго времени суток. Возникла необходимость на работе в создании данного макроса, а правильно...

Определения наличия закладки в документе WORD из скрипта Excel
Доброе время суток уважаемый All, Пишу тут для ОК скриптик который будет в шаблонных документах...

Найти слово в документе MS Word
Ребята помогите, надо написать прогу которая ищет слово в word и надо знать на каких страницах это...

Как найти слово в документе Word
Народ Подскажите плиз как можно в документе Word отыскать слово и скажем заменить его другим или...

2
Samyrro
0 / 0 / 0
Регистрация: 13.10.2014
Сообщений: 26
10.10.2019, 17:49  [ТС] 2
Файлы прилагаются.
0
Вложения
Тип файла: docx Книга1.docx (12.3 Кб, 1 просмотров)
Тип файла: xlsx Книга1.xlsx (8.7 Кб, 1 просмотров)
Samyrro
0 / 0 / 0
Регистрация: 13.10.2014
Сообщений: 26
13.10.2019, 11:06  [ТС] 3
Так работает:

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
For Each x In avFiles
        Set objWrdApp = CreateObject("Word.Application")
        objWrdApp.Visible = True
        Set objWrdDoc = objWrdApp.Documents.Open(x)
        Word.Application.Options.DefaultHighlightColorIndex = wdYellow
        For Each Number In Selection
        With objWrdDoc.Content.Find
        If Len(Trim(CStr(Number.Value))) <> 0 Then
        .Highlight = True
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = Trim(CStr(Number.Value))
        .Replacement.Text = ""
        .Format = False
        .Replacement.Highlight = True
        .Replacement.Font.Bold = True
        .Execute Replace:=2
        
        End If
        End With
        Next
     objWrdDoc.Close True
     objWrdApp.Quit
     Set objWrdDoc = Nothing: Set objWrdApp = Nothing
Next
Надо было просто подключить библиотеку Microsoft Word Object Library и добавить строку:
Word.Application.Options.DefaultHighlightColorIndex = wdYellow
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.10.2019, 11:06

Найти слово в документе MS Word и выделить его
Всем хай =) возникла такая проблема , нужно программно выделить слово в office word , чтоб вы...

Microsoft Word найти слово в документе и заменить его
Добрый день! Помогите с решением: Microsoft Word найти слово в документе и заменить его. К примеру...

Заполнение полей в документе word данными из документа excel
Имеется типовой документ word, назовем его АКТ, в котором вся информация остается неизменной, за...


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

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

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