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

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

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

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

Visual Basic

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

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

Sub Procedure_1()
 
    Const lNumber As Long = 1
    
    MsgBox lNumber
 
End Sub

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

Visual Basic

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, Прямо нашёл ответ на свою проблему, целый час ломал голову. Огромное спасибо друг!

@AAP 56 / 0 / 1 Регистрация: 22.08.2012 Сообщений: 14
	17.09.2012, 15:23 [ТС]	16
	Сообщение от Busine2012 AAP, сделайте все пункты, которые есть в сообщении #2. Вы делаете не все пункты. вообще все пункты делал) помогла перезагрузка компа =) теперь все работает. спасибо! 0

@Busine2012 1301 / 403 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	17.09.2012, 10:12	5
	Сообщение от AAP всего то надо было еще библиотеку подрубить. что это значит? 0

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

@AAP 56 / 0 / 1 Регистрация: 22.08.2012 Сообщений: 14
	17.09.2012, 12:24 [ТС]	8
	Сообщение от Busine2012 AAP, есть 2 варианта: подключать библиотеку; не подключать библиотеку. Вам какой вариант нужен для работы? Чтоб работало =) а в будущем, лучше, чтоб не приходилось ничего подключать. а как можно обойтись без подключения библиотек? 0

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

@AAP 56 / 0 / 1 Регистрация: 22.08.2012 Сообщений: 14
	17.09.2012, 12:59 [ТС]	11
	Сообщение от Busine2012 AAP, отключите библиотеку программы Word и сделайте то, что написано в сообщении #2. Опишите, что не работает в этом коде. Текст выделяется только во время выполнения строки 15, а замены вообще не происходит. Никаких ошибок не выскакивает. Что касается библиотек, то подключены первые 5 в references, они подключаются, видимо, по умолчанию. Так было 2 часа назад. а сейчас - запарывается на 8 строчке и выдает ошибку Run-time error '4248' Application-defined or object-defined error. вроде и тогда и сейчас все делал согласно указаниям 0

@AAP 56 / 0 / 1 Регистрация: 22.08.2012 Сообщений: 14
	17.09.2012, 14:00 [ТС]	14
	Что то у меня не запускается этот код. Даже с библиотекой (и без нее также). запарывается на 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	15
	AAP, сделайте все пункты, которые есть в сообщении #2. Вы делаете не все пункты. 0

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

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

Решение