Высокие статистические технологии

Форум сайта семьи Орловых

Текущее время: Чт мар 28, 2024 12:33 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: VBA, WORD: процедура присвоения перем-ой объекту Range
СообщениеДобавлено: Пн мар 03, 2008 5:05 pm 
Не в сети

Зарегистрирован: Пт фев 01, 2008 9:58 am
Сообщений: 7
Необходимо упростить работу с объектами Range (Надо в отдельные яйчейки таблицы вставить Текстовые поля формы), для этого я решил создать процедуру (шаблон работы), упрощающую работу с ними

Не могу понять что неправильно, выдает след.-ую ошибку

"Оbject variable or With variable not set"


Sub TbFFields( a As Object, b, c, d As Integer)
Set a = ActiveDocument.Tables(b).Cell(c, d).Range
a.FormFields.Add(Range:=a, Type:=wdFieldFormTextInput) = ""
End Sub

Private Sub ToggleButton1_Click()
if ToggleButton1.Value = True Then
...
Call TbFFields (Ran85, 5,8,5)
...
end if
end sub


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт мар 04, 2008 9:37 am 
Не в сети

Зарегистрирован: Пт фев 01, 2008 9:58 am
Сообщений: 7
Я понял в чем дело: неправильно описан код вставки текстового поля
a.FormFields.Add(Range:=a, Type:=wdFieldFormTextInput) = ""


надо так:
a.FormFields.Add Range:=a, Type:=wdFieldFormTextInput


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

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


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB