LibreOffice:ファイルの終わりでマクロループを停止する
次の見出し段落を見つけ、それをタイトルケースに変換するLibreOffice Writerマクロを持っています。現在、ファイルの最後に到達するまで繰り返し呼び出す必要があります。私はすべてを実行するループを設定しようとしていますが、EOFで停止します。しかし、ループは機能していません。 任意の助けをいただければ幸いです。これが私が持っているものです。 sub Convert_Headings_to_Title_Case rem define variables dim document as Object dim dispatcher as Object Dim Proceed As boolean rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem loop not working Do ' Call other macro to find next Heading: Heading_findNext dispatcher.executeDispatch(document, ".uno:EndOfLineSel", "", 0, …