| Вопрос: Помогите разобраться!!! Суть проблемы в теле!!!! | Добавлено: 28.12.07 18:03 |
Автор вопроса:  Лев | ICQ: 307716051 |
|
Вообщем суть такова, что сделать надо следующее в ворде пользователь выбирает группу объектов таких как линии и text box, необходимо линии оставить а все элементы text box удалить!!!
Подскажите пожалуюста как это сделать??? Или хотя бы как сделать выборку из всего выделения??? |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  el-paso Вопросов: 3 Ответов: 164 |
Профиль | | #1 | Добавлено: 29.12.07 00:04 |
|
Dim SelectedShapes As Shapes Dim Shape For Each Shape in SelectedShapes If Shape.TextFrame.HasText Then Shape.Delete Next |
||
|
Номер ответа: 2 Автор ответа: Лев ICQ: 307716051 Вопросов: 3 Ответов: 13 |
Профиль | | #2 | Добавлено: 02.01.08 17:25 |
| а как сделать так что бы все компоненты word art удалялись из документа? | ||
|
Номер ответа: 3 Автор ответа: ЛевICQ: 307716051 Вопросов: 3 Ответов: 13 |
Профиль | | #3 | Добавлено: 02.01.08 17:25 |
| ну соответственно внутри них тоже цифры | ||
|
Номер ответа: 4 Автор ответа: ЛевICQ: 307716051 Вопросов: 3 Ответов: 13 |
Профиль | | #4 | Добавлено: 02.01.08 17:25 |
| ну соответственно внутри них тоже цифры | ||
|
Номер ответа: 5 Автор ответа: el-pasoВопросов: 3 Ответов: 164 |
Профиль | | #5 | Добавлено: 02.01.08 18:03 |
|
Мда.. Формулировать надо подробнее.
Предположим, что внутри объектов WordArt только цифры: Dim SelectedShapes As Shapes
Dim Shape For Each Shape in SelectedShapes If Shape.Type = msoTextEffect And IsNumeric(Shape.AlternativeText) Then Shape.Delete Next |
||
|
Номер ответа: 6 Автор ответа: ЛевICQ: 307716051 Вопросов: 3 Ответов: 13 |
Профиль | | #6 | Добавлено: 02.01.08 18:31 |
|
el-paso
СПАСИБО!!!! Может у тебя книжка какая нибудь умная есть по VBA в MS Office? Если да, то скинь на мыло ПЛЗ!!! sr_lexx@mail.ru |
||
|
Номер ответа: 7 Автор ответа: el-pasoВопросов: 3 Ответов: 164 |
Профиль | | #7 | Добавлено: 02.01.08 19:06 |
Неа. Честно говоря, нету у меня умной книжки по VBA. Просто, поскольку хорошо владею английским, легко читаю MSDN в Интернете - имхо, это кладезь программерской мудрости. 
Кстати, какая-то часть материалов доступна и на русском. |
||
|
Номер ответа: 8 Автор ответа: ЛевICQ: 307716051 Вопросов: 3 Ответов: 13 |
Профиль | | #8 | Добавлено: 02.01.08 19:50 |
|
to el-paso:
А где посмотреть можно???(хоть на английском хоть на русском)Я вообще справку по VBA пытался читать в ворде но из за не очень хорошего знания английского мало что понятно! Или все здесь на vbnet.ru ? |
||
|
Номер ответа: 9 Автор ответа: el-pasoВопросов: 3 Ответов: 164 |
Профиль | | #9 | Добавлено: 02.01.08 20:02 |
|
Попытайся тут:
http://msdn2.microsoft.com/ru-ru/default.aspx |
||
|
Номер ответа: 10 Автор ответа: ЛевICQ: 307716051 Вопросов: 3 Ответов: 13 |
Профиль | | #10 | Добавлено: 09.01.08 19:52 |
|
to el-paso
чёт я не могу там нати где че посмотреть можно... Напиши ПЛЗ... что и где и как? |
||
Страница: 1 |