1
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, …