| Вопрос: VBA Word Тривиальная задача, помогите | Добавлено: 26.10.07 12:42 |
Автор вопроса:  nitem
|
|
Господа, подскажите
какова функция определения длины строки? как присвоить строковой переменной всю строку с заданным номером и с учетом знаков параграфа в ней? Задача целиком такова: В тексте нужно найти ситуации когда конечным символом является знак параграфа, при этом, если вдруг след строка состоит только из одного знака параграфа, то пройти мимо, если нет, то заменить знак параграфа на знак пробела. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Visual Basic .NET 2005 Пиратская версия Вопросов: 38 Ответов: 190 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 26.10.07 14:54 |
| Функция определения длины любого String - Lenght(String) As Integer | ||
|
Номер ответа: 2 Автор ответа: bi-lyaВопросов: 1 Ответов: 125 |
Профиль | Цитата | #2 | Добавлено: 26.10.07 16:17 |
|
Наверное, типа подобного изврата? With ActiveDocument
Но мне кажется, в вашем условии должно быть дополнение, что "если СТРОКА В КОТОРОЙ конечным символом является знак параграфа состоит ТОЛЬКО из символа параграфа, то она пропускается" 8-|
f = .Paragraphs.Count - 1 For p = 1 To f .Paragraphs(p).Range.Select If .Paragraphs(p + 1).Range.Characters.Count > 1 Then .Paragraphs(p).Range.Words(.Paragraphs(p).Range.Words.Count) = Chr(32) f = f - 1 If p > f Then Exit For End If Next End With Короче, тестируйте 
|
||
Страница: 1 |