удалить все optionbutton - Microsoft Office Word

alyam · 29.03.2013, 20:25

есть документ ms word. в нем бесчисленное множество элементов управления (переключателей Optionbutton).
удалять вручную займет много времени. Есть способ удалить их из документа?

Ципихович Эндрю · 29.03.2013, 20:29

Обратиться к Контролу на фрейме

Код:

Frame1.Controls("OptionButton1").Value = True

по аналогии делит

alyam · 29.03.2013, 20:39

может remove?
можно ли удалить элементы управления, созданные не программно?
все равно туплю. не соображу как сделать. сори

Ципихович Эндрю · 29.03.2013, 20:57

можно ли удалить элементы управления, созданные не программно? - да!
может remove? - может, пробуйте, для начала выделить

Код:

Frame1.Controls("OptionButton1").Селект-ион

Нет ворда под рукой

alyam · 29.03.2013, 21:07

почему frame1? причем тут frame? это же рамка?
нужно же использовать activedocument?

Ципихович Эндрю · 29.03.2013, 21:12

activedocument - да!!!!!!! сказал же по аналогии

Ципихович Эндрю · 29.03.2013, 21:13

самое печальное, что без цикла никак!!

alyam · 29.03.2013, 21:15

у activedocument нет свойства controls )
цикл не сложный ) главное для меня понять как обратиться к optionbutton )

Ципихович Эндрю · 29.03.2013, 21:20

тогда кидаем один OptionButton и спрашиваем сколько в документе полей, если ответ одно, узнаём его тип, ОК??

Ципихович Эндрю · 29.03.2013, 21:24

87

Код:

Dim Где As String
    Где = ActiveDocument.Fields.Count
    
    Где = ActiveDocument.Fields(1).Type
ActiveDocument.Fields(1).Delete

29.03.2013, 20:25	#1
alyam Пользователь Регистрация: 19.04.2011 Сообщений: 13	удалить все optionbutton есть документ ms word. в нем бесчисленное множество элементов управления (переключателей Optionbutton). удалять вручную займет много времени. Есть способ удалить их из документа?

29.03.2013, 20:29	#2
Ципихович Эндрю Старожил Регистрация: 24.01.2011 Сообщений: 3,167	Обратиться к Контролу на фрейме Код: `Frame1.Controls("OptionButton1").Value = True` по аналогии делит

29.03.2013, 20:39	#3
alyam Пользователь Регистрация: 19.04.2011 Сообщений: 13	может remove? можно ли удалить элементы управления, созданные не программно? все равно туплю. не соображу как сделать. сори Последний раз редактировалось alyam; 29.03.2013 в 20:45.

29.03.2013, 20:57	#4
Ципихович Эндрю Старожил Регистрация: 24.01.2011 Сообщений: 3,167	можно ли удалить элементы управления, созданные не программно? - да! может remove? - может, пробуйте, для начала выделить Код: `Frame1.Controls("OptionButton1").Селект-ион` Нет ворда под рукой

29.03.2013, 21:15	#8
alyam Пользователь Регистрация: 19.04.2011 Сообщений: 13	у activedocument нет свойства controls ) цикл не сложный ) главное для меня понять как обратиться к optionbutton ) Последний раз редактировалось alyam; 29.03.2013 в 21:18.

29.03.2013, 21:07	#5
alyam Пользователь Регистрация: 19.04.2011 Сообщений: 13	почему frame1? причем тут frame? это же рамка? нужно же использовать activedocument?

29.03.2013, 21:12	#6
Ципихович Эндрю Старожил Регистрация: 24.01.2011 Сообщений: 3,167	activedocument - да!!!!!!! сказал же по аналогии

29.03.2013, 21:13	#7
Ципихович Эндрю Старожил Регистрация: 24.01.2011 Сообщений: 3,167	самое печальное, что без цикла никак!!

29.03.2013, 21:20	#9
Ципихович Эндрю Старожил Регистрация: 24.01.2011 Сообщений: 3,167	тогда кидаем один OptionButton и спрашиваем сколько в документе полей, если ответ одно, узнаём его тип, ОК??

29.03.2013, 21:24	#10
Ципихович Эндрю Старожил Регистрация: 24.01.2011 Сообщений: 3,167	87 Код: `Dim Где As String Где = ActiveDocument.Fields.Count Где = ActiveDocument.Fields(1).Type ActiveDocument.Fields(1).Delete`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как удалить все энтеры	Julila	Microsoft Office Word	6	06.05.2011 17:29
удалить все тэги	serres	PHP	4	29.03.2011 22:33
Удалить все данные из StringGrid-a	postaveche	Компоненты Delphi	7	14.01.2011 13:20
Из строки удалить все цифры.	Shnurik_sh	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	1	24.11.2010 01:17
Удалить все таблицы в документе	Balexander	Microsoft Office Word	1	18.11.2010 09:47