VPF::Word - Find.Execute из VB - Форум программистов

-Mikle-

Дата 3.9.2003, 02:00 (ссылка)

(нет голосов)

Загрузка ...

Невидимка Vingrad'а

Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59

Привет всем! Немогу понять в чем дело, стоит ОфисХР, использую Ворд из VB роекта. Все работает до строчки:

Код

Wrd.Selection.Find.Execute....

Выдает ошибку "Class does not support Automation or does not support expected interface", а когда встречает строчку

Код

wrd.Selection.Find.Replacement....

винды выдают окно (с кнопочками "отправить"/"не отправить" сведения об ошибке), что типа VB.exe совершил ее. В 2000 Офисе все работало без сбоев. А тут, как только идет обращение к объектам Find or Replacement, сбой. В чем дело? подскажите плиз. Немогу никак разобраться. Очень благодарен!
PS: В WordVBA все работает нормально.

--------------------

Если тебе плюют в спину, значит ты впереди...

kulibin

Дата 20.9.2007, 11:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 229
Регистрация: 9.5.2005
Где: Украина, Запорожь е

Репутация: 2
Всего: 3

люди! помогите пожалуйста!!! та же проблема. немного другие симптомы. у меня лаконичнее сообщение об ошибке: метод файнд фейлед - и привет. вот код:

Код


Public Function Replace(ByVal s_find As String, ByVal s_replace As String) As String
On Error Resume Next
Dim s As String
wrd_app.Visible = True
wrd_doc.Activate
wrd_doc.Content.Find.Execute FindText:=s_find, ReplaceWith:=s_replace, Replace:=wdReplaceAll
If Err.Number > 0 Then
    s = "error:" + vbNewLine + Err.Description
    Err.Clear
End If
wrd_doc.Save
Replace = s
End Function

что интересно - так и когда я уже тут убрал меседжбокс для сообщения об ошибке - то вылетать и падать перестало - просто не делает ничего полезного :(. а стока та - в которой по идее сообщение об ошибке должно быть - так ода блин пустая :(. полтергейст полный.

или подскажите - может другой способ есть? мне нужно чтобы в библиотечке на вб6 делался поиск и замена - при невидимом ворде. нуили фиг с ним - можно уже и при видимом. меня убивают тут уже практически - а я на отладке одной строчки застрял на сутки...

да - что интересно: на машине с ХР-офисом падало и вылетало в любом варианте. а вот сейчас на -м пробую из ехе вот так:

Код


Private Sub Command2_Click()
Dim wrd_app As Word.Application
Dim wrd_doc As Word.Document
Dim fnd As String, rpl As String
On Error Resume Next
Set wrd_app = GetObject(, "Word.Application")
If Err.Number <> 0 Then
    Set wrd_app = CreateObject("Word.Application")
    Err.Clear
End If
On Error GoTo 0
Set wrd_doc = wrd_app.Documents.Open(App.Path + "\test.doc")

wrd_app.Visible = True
wrd_app.Activate

fnd = InputBox("find:")
rpl = InputBox("replace:")

wrd_doc.Content.Find.Execute FindText:=fnd, ReplaceWith:=rpl, Replace:=wdReplaceAll

End Sub

так это блин работает. странно...
помогите плз разобраться с хренью этой.

Naghual

Дата 20.9.2007, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Попробуй последнюю строку заменить на приведенные ниже

Код


    wrd_app.Selection.Find.ClearFormatting
    wrd_app.Selection.Find.Replacement.ClearFormatting
    wrd_app.Selection.Find.Execute(fnd,0,0,0,0,0,-1,1,0,rpl,2)

Это сообщение отредактировал(а) Naghual - 20.9.2007, 13:21

--------------------

Я желаю всем Счастья!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »