☰

Базовый макрос Libreoffice: перейти к следующему абзацу, тест на наличие заглавных букв

tag-icon • tag-icon macros libreoffice basic
Базовый макрос Libreoffice: перейти к следующему абзацу, тест на наличие заглавных букв

Я пытаюсь написать макрос, и мне нужно перейти к следующему абзацу, где я проверю первую букву на заглавную. Я потратил часы и нашел только неточную или сложную для понимания документацию для чего-то, что, по моему мнению, должно быть простым. Буду признателен за любые указания. Пока что я:

SUB FIND_PARAGRAPHS

Dim vDescriptor
dim Doc as object
dim Replace as object 
dim oCursor 
dim Proceed as Boolean
dim CapTest as String

vDescriptor = ThisComponent.createSearchDescriptor()
doc = ThisComponent
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

' test para begin; if capital test previous end 

oCursor = Doc.Text.createTextCursor()
Do 
    oCursor.gotoNextParagraph(false) 'NW
    CapTest = oCursor.goRight(1, true) 'NW
    if CapTest = ucase(CapTest) Then goto TestPreviousEnd
Loop While CapTest

TestPreviousEnd:

END SUB

решение1

Есть несколько проблем:

  • Иди направо()возвращает логическое значение, указывающее на успешность, а не выбранную строку.
  • CapsTestявляется строкой, а не логическим значением, поэтому ее нельзя использовать в качестве условия цикла.
  • Как вы узнали, что код не работает? Возможно, вы намеревались использоватькурсор просмотра, что приведет к перемещению видимого курсора. (Однако текстовый курсор, вероятно, будет лучше).
  • Код всегда игнорирует первый абзац, что, возможно, сделано намеренно, но кажется странным.
  • Имеется много неиспользуемых переменных, а также непоследовательная заглавная буква.

Вот рабочий код:

' Find the first paragraph in the document that begins with a capital letter.
Sub Find_Capitalized_Paragraph
    Dim oDoc As Object
    Dim oCursor As Object
    Dim Proceed As Boolean
    Dim CapTest As String

    oDoc = ThisComponent
    oCursor = oDoc.Text.createTextCursor()
    oCursor.gotoStart(False)
    Do 
        oCursor.goRight(1, True)
        CapTest = oCursor.getString()
        If CapTest <> "" And CapTest = UCase(CapTest) Then Goto TestPreviousEnd
        oCursor.gotoNextParagraph(False)
    Loop While CapTest <> ""
    MsgBox("No results.")
    Exit Sub

    TestPreviousEnd:
    MsgBox("Found result: """ & CapTest & """")
End Sub

Итак, если документ содержит:

a
b
C
d

Затем макрос печатает Found result: "C".

Обязательно посмотритеМакродокумент Эндрю Питоняка. Он содержит множество прекрасных примеров.

Связанный контент