ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не работает Find & Replace в Word
7 сообщений из 7, страница 1 из 1
Не работает Find & Replace в Word
    #35144139
karly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
karly
Гость
Нужно из макроса Excel изменить документ Word
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Set appWd = CreateObject("Word.Application")

With appWd
        
	.Documents.Open ("C:\Договор.doc")
        
        With .ActiveDocument.Content.Find
            .Replacement.ClearFormatting
            .ClearFormatting
            .Text = "НОМЕР_ДОГОВОРА"
            .Replacement.Text = "15/1 от 01.02.08"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceAll
       End With

End With

Замены не происходит. Тот же код, запущенный из Word (естественно, без создания объекта Word.Application) отрабатывает без проблем. Где подровнять?
...
Рейтинг: 0 / 0
20.02.2008, 13:04:31
| Ответить | Цитировать | Написать  
Не работает Find & Replace в Word
    #35144656
SBL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SBL
Участник
karlyНужно из макроса Excel изменить документ Word
Код: plaintext
1.
2.
3.
Set appWd = CreateObject("Word.Application")
        With .ActiveDocument.Content.Find

End With

Замены не происходит. Тот же код, запущенный из Word (естественно, без создания объекта Word.Application) отрабатывает без проблем. Где подровнять?

тупо навскидку - а что в данный момент является активным документом? Ворд или Эксель?
...
Рейтинг: 0 / 0
20.02.2008, 14:50:22
| Ответить | Цитировать | Написать  
Не работает Find & Replace в Word
    #35144742
karly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
karly
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Set appWd = CreateObject("Word.Application")

With appWd
      
        With .ActiveDocument.Content.Find
       End With

End With

Точка перед .ActiveDocument должна делать активным Word. Попробовал сделать так:

Код: plaintext
1.
2.
3.
4.
5.
Set appWd = CreateObject("Word.Application")
     
        With appWd.ActiveDocument.Content.Find
       End With

End With

Не помогло :(
...
Рейтинг: 0 / 0
20.02.2008, 15:08:47
| Ответить | Цитировать | Написать  
Не работает Find & Replace в Word
    #35144817
karly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
karly
Гость
В целом, задача - вставить текст в несколько мест. Если бы в одно - можно было обойтись закладкой.

Есть другие варианты, кроме Find & Replace ?
...
Рейтинг: 0 / 0
20.02.2008, 15:25:17
| Ответить | Цитировать | Написать  
Не работает Find & Replace в Word
    #35144907
Фотография Rampage
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rampage
Участник
Конечно жестоко... медленно..и не рационально...
но если нету других вариантов...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub test()

a = "один" 'что ищем в ворде
b = "два" 'на что заменяем

   AppActivate ("Document1 - Microsoft Word") 'как называется вордик.
   Application.Wait (Now + TimeValue("00:00:03"))
   SendKeys "^f"
   Application.Wait (Now + TimeValue("00:00:02"))
   SendKeys "{TAB 5}{RIGHT}"
   Application.Wait (Now + TimeValue("00:00:02"))
   SendKeys a & "{TAB}" & b
   Application.Wait (Now + TimeValue("00:00:03"))
   SendKeys "{TAB 4}"
   Application.Wait (Now + TimeValue("00:00:04"))
   SendKeys "{ENTER}"
   Application.Wait (Now + TimeValue("00:00:04"))
     SendKeys "{ENTER}"
End Sub
...
Рейтинг: 0 / 0
20.02.2008, 15:50:54
| Ответить | Цитировать | Написать  
Не работает Find & Replace в Word
    #35145281
karly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
karly
Гость
Разобрался
Код: plaintext
1.
2.
3.
4.
With .ActiveDocument.Content.Find
    .Wrap = wdFindContinue
    .Execute Replace:=wdReplaceAll
End With

Константы wdFindContinue и wdReplaceAll в Excel не определены, а в Word имеют значение 1 и 2 соответственно.
Поэтому в Word работало, а в Excel - нет
...
Рейтинг: 0 / 0
20.02.2008, 17:28:07
| Ответить | Цитировать | Написать  
Не работает Find & Replace в Word
    #35145455
Фотография Rampage
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rampage
Участник
даа..так попроще малец :)
...
Рейтинг: 0 / 0
20.02.2008, 18:07:18
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не работает Find & Replace в Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=243&tid=2181384]:
 0ms
get settings:
 7ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 54ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 235ms
total:  374ms
созд. / загр.: 374ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]