Поиск и замена текста Word из ячейки Excel

@AAP · Регистрация: 22.08.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Стоит такая задача:
Требуется создать папку с именем из ячейки эксель, копировать туда вордовский файл, открыть его, найти в нем слова "nomer" и заменить их на число из ячейки эксель. сохранить изменения и закрыть документ. Для простоты, решил сначала заменить на число, заданное в самом макросе, но это пока тоже не удалось: выделяет текст, но не заменяет его.

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
Sub MDir()
Dim pathh As String, i As Integer
pathh = "С:\новая папка"
Dim pathhi As String
Dim WA As Object, WD As Object
Set WA = CreateObject("Word.Application")
 
 
For Each oCell In Range([B3], [B6])
    pathhi = pathh & "\" & oCell
    If Not IsEmpty(oCell) Then MkDir pathhi
    FileCopy pathh & "\doc_1.doc", pathhi & "\doc_1.doc"
    With WA
        .Visible = True
        .Documents.Open pathhi & "\doc_1.doc"
        .Selection.Find.ClearFormatting
        .Selection.Find.Replacement.ClearFormatting
        .Selection.Find.Text = "nomer"
        .Selection.Find.Replacement.Text = "НОМЕР"
        .Selection.Find.Execute Replace:=wdReplaceAll
    End With
Next
End Sub

Please help) Заранее спасибо за помощь!

@Busine2012 · 14.09.2012, 17:34

AAP,

откройте программу Word и новый документ;
введите в документ текст: nomer
поставьте курсор в начало документа;

из Excel запустите вот этот код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Procedure_1()
    
    Dim oWord As Object
    Dim oDocument As Object
 
    Set oWord = GetObject(Class:="Word.Application")
    
    Set oDocument = oWord.ActiveDocument
    
    With oWord.Selection
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
        .Find.Text = "nomer"
        .Find.Replacement.Text = "НОМЕР"
        .Find.Execute Replace:=wdReplaceAll
    End With
 
End Sub

Работает у вас код?

@Казанский · 14.09.2012, 19:14

Может, открыть ДОК один раз, а потом сохранять в одну, другую, третью папку (SaveAs)?
Удобно не искать слово "nomer", а сделать в ДОКе закладку с этим именем и просто вписывать туда текст:

Visual Basic
1
oDocument.Bookmarks("nomer").Range.Text = oCell.Value

@AAP · 17.09.2012, 10:00 **[ТС]**

работает) спасибо. всего то надо было еще библиотеку подрубить. только программно почему-то не получилось, только в tools->references. ща буду свою прогу пытать =)

Добавлено через 4 минуты

Сообщение от Казанский

Может, открыть ДОК один раз, а потом сохранять в одну, другую, третью папку (SaveAs)?
Удобно не искать слово "nomer", а сделать в ДОКе закладку с этим именем и просто вписывать туда текст:

Visual Basic
1
oDocument.Bookmarks("nomer").Range.Text = oCell.Value

можно, конечно, но в документе это слово не один раз встречается, придется много закладок делать, хотелось бы все-таки через поиск.

@Busine2012 · 17.09.2012, 10:12

Сообщение от AAP

всего то надо было еще библиотеку подрубить.

что это значит?

@AAP · 17.09.2012, 10:45 **[ТС]**

Сообщение от Busine2012

что это значит?

в экселе подключил вордовскую библиотеку MSWORD.OLB. может возникнуть вопрос почему я это раньше не сделал. отвечаю. до этого я ее пытался подключить программно, но не получилось, выдавал ошибку. в references я давно еще когда-то подключил, но помимо нее еще всяких наподключал - и тоже код не работал. сейчас я ее не нашел в том списке, но догадался воспользовался кнопкой browse =) подключил только её и всё заработало =)

Добавлено через 18 минут
Программно пытался сделать это так:

Visual Basic
1
ThisWorkbook.VBProject.References.AddFromFile Application.Path & Application.PathSeparator & "MSWORD.OLB"

Выскакивала такая ошибка: Application-defined or object-defined error

@Busine2012 · 17.09.2012, 11:35

AAP, есть 2 варианта:

подключать библиотеку;
не подключать библиотеку.

Вам какой вариант нужен для работы?

@AAP · 17.09.2012, 12:24 **[ТС]**

Сообщение от Busine2012

AAP, есть 2 варианта:

подключать библиотеку;
не подключать библиотеку.

Вам какой вариант нужен для работы?

Чтоб работало =) а в будущем, лучше, чтоб не приходилось ничего подключать. а как можно обойтись без подключения библиотек?

@Busine2012 · 17.09.2012, 12:41

AAP, отключите библиотеку программы Word и сделайте то, что написано в сообщении #2.
Опишите, что не работает в этом коде.

@Казанский · 17.09.2012, 12:45

Сообщение от AAP

в документе это слово не один раз встречается, придется много закладок делать, хотелось бы все-таки через поиск

Да на здоровье!

Хотя можно еще повставлять в ДОК поля с кодом DOCVARIABLE MyVar (т.е. вставка переменной документа), и присвоить значение этой переменной:

Visual Basic
1
2
oDocument.Variables("MyVar") = oCell.Value
oDocument.Fields.Update

Значение переменной сохраняется в документе.

Про References почитайте: References и автоматическое подключение библиотек на поздних версиях MS Office

@AAP · 17.09.2012, 12:59 **[ТС]**

Сообщение от Busine2012

AAP, отключите библиотеку программы Word и сделайте то, что написано в сообщении #2.
Опишите, что не работает в этом коде.

Текст выделяется только во время выполнения строки 15, а замены вообще не происходит. Никаких ошибок не выскакивает. Что касается библиотек, то подключены первые 5 в references, они подключаются, видимо, по умолчанию.
Так было 2 часа назад. а сейчас - запарывается на 8 строчке и выдает ошибку Run-time error '4248' Application-defined or object-defined error. вроде и тогда и сейчас все делал согласно указаниям

@Busine2012 · 17.09.2012, 13:25

Сообщение от AAP

Текст выделяется только во время выполнения строки 15

дело в строке 15. В этой строке есть константа wdReplaceAll. Из-за этой константы код и работает неправильно.

Причина, почему происходит ошибка

Чтобы лучше понимать, приведу аналогию. Вы тоже можете создать константу для каких-либо своих нужд, например:

Visual Basic
1
2
3
4
5
6
7
Sub Procedure_1()
 
    Const lNumber As Long = 1
    
    MsgBox lNumber
 
End Sub

Наподобие этого же создана и константа wdReplaceAll, но эта константа находится в библиотеке Microsoft Word Object Library. Я точно не знаю, как в этой библиотеке находится эта константа, но напишу для понимания, как это может быть:

Visual Basic
1
2
3
4
5
6
7
Sub Procedure_1()
 
    Const wdReplaceAll As Long = 1
    
    MsgBox wdReplaceAll
 
End Sub

Из этого получается, что вы в коде указываете то, что компилятор не воспринимает так, как бы вам хотелось. Компилятор воспринимает константу wdReplaceAll как переменную, которая создана вами, а не программистами из организации Microsoft.

Чтобы код заработал, вам нужно посмотреть, какое число содержит константа wdReplaceAll. Для этого вам надо сделать следующее:

подключите библиотеку Microsoft Word Object Library (потом её отключите);
View - Object Browser;
в верхнем поле выберите библиотеку Word;
в следующее поле вставьте этот текст: wdReplaceAll - нажмите Search;
щёлкните внизу по wdReplaceAll и прочитайте внизу число, которое оно содержит;
это число подставляйте в код вместо константы wdReplaceAll.

@Казанский · 17.09.2012, 13:44

Немного дополню. Неопределенные константы - еще одна причина использовать

Option Explicit !!!

Сэкономите кучу времени и нервов.

Добавлено через 1 минуту

Сообщение от Busine2012

Чтобы код заработал, вам нужно посмотреть, какое число содержит константа wdReplaceAll. Для этого вам надо сделать следующее...

Или открыть VBE Word и в окне Immediate ввести

Visual Basic
1
?wdReplaceAll

@AAP · 17.09.2012, 14:00 **[ТС]**

Что то у меня не запускается этот код. Даже с библиотекой (и без нее также). запарывается на 8 строчке и выдает ошибку Run-time error '4248' Application-defined or object-defined error.

@Busine2012 · 17.09.2012, 14:28

AAP, сделайте все пункты, которые есть в сообщении #2. Вы делаете не все пункты.

@AAP · 17.09.2012, 15:23 **[ТС]**

Сообщение от Busine2012

AAP, сделайте все пункты, которые есть в сообщении #2. Вы делаете не все пункты.

вообще все пункты делал) помогла перезагрузка компа =) теперь все работает. спасибо!

@Ajlow · 25.01.2018, 13:46

Busine2012, Прямо нашёл ответ на свою проблему, целый час ломал голову. Огромное спасибо друг!

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Busine2012 1301 / 403 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	17.09.2012, 11:35
	AAP, есть 2 варианта: подключать библиотеку; не подключать библиотеку. Вам какой вариант нужен для работы? 1

@Busine2012 1301 / 403 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	17.09.2012, 12:41
	AAP, отключите библиотеку программы Word и сделайте то, что написано в сообщении #2. Опишите, что не работает в этом коде. 0

@AAP 56 / 0 / 1 Регистрация: 22.08.2012 Сообщений: 14
	17.09.2012, 14:00 [ТС]
	Что то у меня не запускается этот код. Даже с библиотекой (и без нее также). запарывается на 8 строчке и выдает ошибку Run-time error '4248' Application-defined or object-defined error. 0

@Busine2012 1301 / 403 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	17.09.2012, 14:28
	AAP, сделайте все пункты, которые есть в сообщении #2. Вы делаете не все пункты. 0

@Ajlow 0 / 0 / 0 Регистрация: 25.01.2018 Сообщений: 1
	25.01.2018, 13:46
	Busine2012, Прямо нашёл ответ на свою проблему, целый час ломал голову. Огромное спасибо друг! 0

Поиск и замена текста Word из ячейки Excel

Решение