Таблица в Word

Программирование на Visual Basic for Applications
fob
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 70
Зарегистрирован: 19.06.2005 (Вс) 21:29

Таблица в Word

Сообщение fob » 27.09.2005 (Вт) 12:56

Есть вордовый шаблон. В нем есть некоторые метки.
Если вместо метки в шаблоне нужно вставить таблицу. Я ищу нужную мне метку
With wordDoc.Range.Find
.ClearFormatting()
.Replacement.ClearFormatting()
.Text = "#метка#"
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute()
wordSel = wordDoc.ActiveWindow.Selection
If (.Found = True) Then
Dim wTable As Word.Table
wTable = wordSel.tables.add(wordSel.Range, 1, 1)
End If
End With

Если метка найдена (.found=True) , то я пытаюсь на это место вставить таблицу, т.е. предполагаю, что WordSel (Это объект Selection) является той областью в документе, где метка. В макросе Word'а такая вещь проходит, а вот в ASP.NET выдает ошибку

Error : Свойство Reference не применимо к 'Range'. (System.Runtime.InteropServices.COMException (0x800A173A): Свойство Reference не применимо к 'Range'.
at Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateSet(Object o, Type& objType, String name, Object[] args, String[] paramnames, Boolean OptimisticSet, CallType UseCallType)
at Microsoft.VisualBasic.CompilerServices.LateBinding.LateSetComplex(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean OptimisticSet, Boolean RValueBase)

Помогите, плз!!

Впринципе проблема наверное сводится к тому, как получить Range найденного фрагмента текста и в это Range добавить таблицу

Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 109

    TopList