| Вопрос: Многострочный текст в ячкйке таблицы | Добавлено: 01.09.08 12:31 |
Автор вопроса:  DarkN | ICQ: 26798955 |
|
Привет всем!
Подскажите плиз как последовательно выделить каждую строку многострочного текста в ячейке таблицы. Имеется ввиду что текст в ячейке длинный и переносится на несколько строк автоматически, в том числе текст может содержать абзацы. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 02.09.08 09:46 |
|
А ты бы как сам это сделал руками? Я бы нажал кнопки в такой последовательности:
1. Home 2. Shift+End 3. DownArrow 4. Переход к п 1. Запиши макрос и посмотри как это будет выглядеть. |
||
|
Номер ответа: 2 Автор ответа: DarkN ICQ: 26798955 Вопросов: 3 Ответов: 3 |
Профиль | | #2 | Добавлено: 02.09.08 11:18 |
|
Сорри что сразу кода не привел. Виноват, не полностью осветил проблему....
Ничего лучшего я не придумал кроме этого... Dim R As Row
Dim C As Cell For Each R In ThisDocument.Tables(1).Rows For Each C In R.Cells C.Select Selection.StartOf Unit:=wdCell, Extend:=wdMove While Selection.End <> C.Range.End Selection.Expand Unit:=wdLine MsgBox Selection.Text Selection.MoveRight Unit:=wdCharacter, Count:=1 Wend Next Next Но есть проблема.... При попытке выделить последний кусок текста, происходит выделение всего текста ячейки.... И возможно ли написать подобное используя Range? |
||
|
Номер ответа: 3 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #3 | Добавлено: 04.09.08 14:32 |
|
Кхе-кхе! А мы с каким приложением работаем?! Нельзя сразу было написать? Тут форум по VBA, но по умолчанию для всех это Excel! Люди париться будут, а потом выясняется...
Ну в твоем случае (не проверял) может каждую строчку выделять наоборот: справа налево? Это то-то даст? |
||
|
Номер ответа: 4 Автор ответа: DarkNICQ: 26798955 Вопросов: 3 Ответов: 3 |
Профиль | | #4 | Добавлено: 05.09.08 17:11 |
to mc-black. Критику принял  Надо было сразу написать что речь про Word. И Большое спасибо за идею! И как я сам до этого не додумался
а есть ли возможность написать подобное с помощью Range? |
||
Страница: 1 |