Метасимволы в ВордЕ

[Neech]

Доброго всем дня!
Не подскажет кто, есть ли метасимвол для вордовской графики (стрелочки, баблики, ленточки и пр. байда), как то для графики ^g, например.
С благодарностью, Алексей.

 

[Johan]

Ответ: Метасимволы в ВордЕ

Имеются ввиду т.н. "Автофигуры"? Дык, для них тоже ^g работает.

 

[Neech]

Ответ: Метасимволы в ВордЕ

Имеются ввиду т.н. "Автофигуры"? Дык, для них тоже ^g работает.

У меня не работает. Word 2000, Win98.

 

[Johan]

Ответ: Метасимволы в ВордЕ

Хм... "Положение" (обтекание) какое задано?

 

[Neech]

Ответ: Метасимволы в ВордЕ

Хм... "Положение" (обтекание) какое задано?

В первой найденной автофигуре Положение "над текстом".

 

[Johan]

Ответ: Метасимволы в ВордЕ

Найденной поиском??? Вообще, насколько я понимаю, поиском находятся что картинки, что автофигуры, находящиеся "в тексте".

 

[Neech]

Ответ: Метасимволы в ВордЕ

Найденной поиском??? Вообще, насколько я понимаю, поиском находятся что картинки, что автофигуры, находящиеся "в тексте".

Если бы поиском, то и вопрос такой не возник.

 

[Johan]

Ответ: Метасимволы в ВордЕ

Вы бы уточнили, для чего это понадобилось. Поиском можно найти только те картинки/автофигуры, которые находятся в тексте; для остальных - перебор по коллекции Shapes.

 

[Neech]

Ответ: Метасимволы в ВордЕ

Вы бы уточнили, для чего это понадобилось. Поиском можно найти только те картинки/автофигуры, которые находятся в тексте; для остальных - перебор по коллекции Shapes.

Понадобилось это для того, чтобы все разом убить.
А что такое "перебор по коллекции Shapes"?

 

[Johan]

Ответ: Метасимволы в ВордЕ

Это VBA. Если убить - то
ActiveDocument.Shapes.SelectAll
Selection.Delete

 

[Neech]

Ответ: Метасимволы в ВордЕ

Это VBA. Если убить - то
ActiveDocument.Shapes.SelectAll
Selection.Delete

Это то что нужно. Большое спасибо.