能否编写宏实现移除指定序列中的首个空格？

以下是满足需求的LibreOffice Basic宏代码，可自动将带前置空格的指定后缀词（如ed、bys）与前置单词合并，移除中间空格：

Sub MergeSuffixWithPreviousWord
    Dim oDoc As Object
    Dim oSearch As Object
    Dim oFound As Object
    Dim sPattern As String
    Dim aTargetWords As Variant
    Dim i As Integer
    
    ' 自定义需要处理的后缀词列表，按需添加/修改
    aTargetWords = Array("ed", "bys")
    
    oDoc = ThisComponent
    oSearch = oDoc.createSearchDescriptor()
    
    For i = LBound(aTargetWords) To UBound(aTargetWords)
        ' 构建查找规则：匹配" 目标词 "（前后均为空格）
        sPattern = " " & aTargetWords(i) & " "
        oSearch.SearchString = sPattern
        oSearch.SearchCaseSensitive = False ' 可改为True开启大小写敏感
        oSearch.SearchAll = False ' 逐个处理匹配项
        
        oFound = oDoc.findFirst(oSearch)
        Do While Not IsNull(oFound)
            ' 替换为"目标词 "，移除前置空格实现合并
            oFound.String = aTargetWords(i) & " "
            oFound = oDoc.findNext(oFound.End, oSearch)
        Loop
    Next i
End Sub

使用说明 #

1. 打开LibreOffice Writer，按下Alt+F11打开宏编辑器
2. 在左侧面板中右键点击当前文档的Standard模块，选择插入 > 模块
3. 将上述代码粘贴到新建模块的编辑区域
4. 返回Writer界面，按下Alt+F8，选中MergeSuffixWithPreviousWord宏并点击执行，即可完成批量替换
5. 若需快速调用，可通过工具 > 自定义 > 键盘为该宏设置专属快捷键

扩展优化 #

如果需要处理后缀词后紧跟标点（如ed,、bys!）的场景，可修改查找与替换逻辑：

' 替换原循环内的查找和替换代码
sPattern = " " & aTargetWords(i) & "([\s.,!?])"
oSearch.SearchString = sPattern
oSearch.SearchRegularExpression = True ' 启用正则表达式匹配

oFound = oDoc.findFirst(oSearch)
Do While Not IsNull(oFound)
    oFound.String = aTargetWords(i) & "$1"
    oFound = oDoc.findNext(oFound.End, oSearch)
Loop

内容的提问来源于stack exchange，提问作者shantanuo