ParagraphCount1 = Split(Selection.Text, vbCrLf)
ParagraphCount2 = Split(Selection.Text, vbCr)
ParagraphCount3 = Split(Selection.Text, vbLf)
ParagraphCount4 = Split(Selection.Text, vbNewLine)
MsgBox UBound(ParagraphCount1)
MsgBox UBound(ParagraphCount2)
MsgBox UBound(ParagraphCount3)
MsgBox UBound(ParagraphCount4)
как измерить количество строк в абзаце
Простенький вопрос (сразу оговорюсь, что в хелпе по VBA лазил и не нашел). Итак. Как измерить кол-во строк в абзаце? А то я навешиваю доп. выделение на абзацы определенного стиля в качестве "шапки". Но только при условии, что в конце нет точки. (типа "интервью такого-то"). Но иногда в конце абзаца в самом интервью авторы не ставят точки, и ессно, такой абзац портится. А так бы я мог подставить проверочное условие числа строк, и если их больше 2, то абзац трогал бы.
Может кто-то навскидку помнит?
В "моем" языке есть команда getlinebreaks. В хелпе VBA по Breaks все другое.
Спасибо.
Может кто-то навскидку помнит?
В "моем" языке есть команда getlinebreaks. В хелпе VBA по Breaks все другое.
Спасибо.
так?
ParagraphCount = Split(selection.text,vbCrLf)
ParagraphCount = Split(selection.text,vbCrLf)
Цитата: SkyM@n
так?
ParagraphCount = Split(selection.text,vbCrLf)
ParagraphCount = Split(selection.text,vbCrLf)
Проверил на абзаце с несколькими строками так:
Код:
Получил всего лишь единичку для vbCR.
Т.е. перенос (перетекание) текста на новую строку вообще ничем не размечается?
Разве так может быть?
ну а чем тогда простой ВБА-шный метод не подходит?
PS. ;)
Код:
For cnt=1 To Selection.Paragraphs.Count
msgbox Selection.Paragraphs(cnt)
Next
msgbox Selection.Paragraphs(cnt)
Next
PS. ;)
Приведенная выше конструкция просто показывает содержимое каждого абзаца, попавшего в выделение. А хотелось бы измерить именно кол-во строк в одном абзаце.
Вроде как потребность не слишком экзотическая, но что-то не могу пока ничего придумать самостоятельно. :o
Вроде как потребность не слишком экзотическая, но что-то не могу пока ничего придумать самостоятельно. :o
Хм, вряд ли получится, ведь строка-то одна. То, что их видно несколько - то это всего лишь визуальный еффект.
Цитата: SkyM@n
Хм, вряд ли получится, ведь строка-то одна. То, что их видно несколько - то это всего лишь визуальный еффект.
Действительно, интересный факт. Как различать строки в пределах одно абзаца...
А вообще, чем-то кодируется перевод символов на др. строку, если строка не влезает в границы чего-нибудь (рабочего окна, например, или какого-то диалогового окна)?
Т.е. чем определяется то, что в Ворде мы видим правый край абзаца, а не тянем движок горизонтальной прокрутки до бесконечности вправо, чтобы дочитать... "Войну и Мир" до конца.
Чем достигается параметр "перенос по границе окна" (пунктик в настройках Ворда: сервис-параметры-вид)?
А ничем не кодируется. Перенес строки происходит на уровне компонента. Сам компонен сделан так, что паблик-свойства недоступны для юзера. Разве что АПИшками помучать его...
Цитата: SkyM@n
А ничем не кодируется. Перенес строки происходит на уровне компонента. Сам компонен сделан так, что паблик-свойства недоступны для юзера. Разве что АПИшками помучать его...
Но в моем языке верстальной программы есть запрос (как я уже упоминал) Getlinebreaks (с указанием типа разрыва строки и кучей всего еще).
Тогда такой вопрос (хотя может и не совсем по теме).
Если мне менять программу верстки с PageMaker (он работает только со своим языком PMScripting Language) на Adobe InDesigne (эта уже поддерживает язык VBS и JS), то в новой программе я не смогу, например, измерять кол-во строк в абзацах? Поскольку язык VBS - урезанная версия VBA?
Сможешь тогда, когда будешь использовать вместо обычного TextBox'а компонент RichEdit (или другие, похожие свойствами) - там есть такая фича как коллекция Lines.
Там можно например получить строку 2, используя Lines(2)
Ну и так далее, работаешь как с коллекцией: Lines.Item(c), Lines.Count, Lines.Add(s), Lines.Delete(c)....
ЗЫ. Кстати, VBS - это совсем не VBA. Считать так - ошибочно.
Там можно например получить строку 2, используя Lines(2)
Ну и так далее, работаешь как с коллекцией: Lines.Item(c), Lines.Count, Lines.Add(s), Lines.Delete(c)....
ЗЫ. Кстати, VBS - это совсем не VBA. Считать так - ошибочно.
Большое спасибо за пояснения. Порыщем и почитаем.
Цитата: Dmitry2064
Как измерить кол-во строк в абзаце?
Код:
Sub LineCount()
Dim StartLine, EndLine As Integer
With Selection.Paragraphs(1).Range
StartLine = .Characters(1).Information(wdFirstCharacterLineNumber)
EndLine = .Characters(.Characters.Count - 1).Information(wdFirstCharacterLineNumber)
End With
MsgBox EndLine - StartLine + 1
End Sub
Dim StartLine, EndLine As Integer
With Selection.Paragraphs(1).Range
StartLine = .Characters(1).Information(wdFirstCharacterLineNumber)
EndLine = .Characters(.Characters.Count - 1).Information(wdFirstCharacterLineNumber)
End With
MsgBox EndLine - StartLine + 1
End Sub
ВАЖНО! Относительно ".Characters.Count - 1":
Вычитать единицу необходимо для случая "внутри таблиц" (внутри ячейки), т.к. иначе (используя .Characters.Count) выделяется вся ячейка и EndLine будет всегда равно StartLine (если быть точным - то для ПОСЛЕДНЕГО параграфа в ячейке).