VBNet - Форум - Как исправить ошибку в коде

Вопрос: Как исправить ошибку в коде Добавлено: 20.08.08 11:13

Автор вопроса: User

Всем добрый день! Есть код VB6 с помощью которого открывается документ MSWord2003 затем там выделяется таблица и преобразовывается в текст с разделителем ";"
Разделитель заменяется на пробел.Все. Проблема возникает при выполнении этой строки:".Selection.Tables(1).Select" программа ругается на то что семейство отсутствует. Можно ли как то решить проблему? (Использовать макрос и править очень хорошо но нужно выполнить указанные операции именно в данном коде)

Private Sub Command1_Click()
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("путь к моему документу")
With objWord
    .Visible = True
         .Selection.Tables(1).Select
         .Selection.Rows.ConvertToText Separator:=wdSeparateByCommas, NestedTables:=True
         .Selection.Find
         .ClearFormatting
         .Replacement.ClearFormatting
         .Text = ";"
         .Replacement.Text = " "
         .MatchCase = 0
         .MatchWholeWord = 0
         .MatchWildcards = 1
         .MatchSoundsLike = 0
         .MatchAllWordForms = 0
         .Forward = 1
         .Wrap = 1
         .Format = 0
         .Execute , , , , , , , , , , wdReplaceAll
    End With
objDoc.SaveAs "путь и имя сохраняемого файла", wdFormatText
objWord.Quit
End Sub
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #1	Добавлено: 20.08.08 12:27
	А таблица то выделена? Если нет, то правильно ругается. Попробуй так: Set objWord = CreateObject("Word.Application" Set objDoc = objWord.Documents.Open("путь к моему документу" objDoc.tables(1).select With............ Ответить

Страница: 1 |