如何在Office Word中使用宏每隔n个字符插入指定文本

嘿，这需求不难实现，我给你写个Word宏就能搞定——每隔30个字符插入@@@（或者你示例里带下划线的_@@@_）。下面是具体的代码和操作步骤：

核心逻辑是从文档末尾往前遍历，每数到30个字符就插入指定文本。之所以从后往前操作，是因为如果从前往后插入字符，会导致后续的字符索引位置偏移，影响准确性。

打开VBA编辑器后，把这段代码粘贴进去就行：

Sub InsertAtEvery30Chars()
    Dim targetDoc As Document
    Dim totalCharCount As Long
    Dim currentPos As Long
    
    ' 获取当前活动文档
    Set targetDoc = ActiveDocument
    totalCharCount = targetDoc.Content.Length
    
    ' 从后往前每隔30个字符插入@@@，避免索引偏移
    For currentPos = totalCharCount To 31 Step -30
        targetDoc.Content.InsertAfter "@@@"
        targetDoc.Content.MoveEnd wdCharacter, -(totalCharCount - currentPos + 3)
        targetDoc.Content.Collapse wdCollapseEnd
    Next currentPos
End Sub

如果需要和你示例一样，在@@@前后加下划线，只需要把代码里的"@@@"改成"_@@@_"即可。

• 打开需要处理的Word文档，按下Alt + F11快速打开VBA编辑器
• 在左侧的「项目」窗格中，右键点击你的文档名称，选择「插入」→「模块」
• 将上面的代码粘贴到弹出的模块代码窗口中
• 按下F5运行宏，或者回到Word界面，通过「开发工具」选项卡→「宏」，找到InsertAtEvery30Chars并执行

运行完成后，你的文档就会自动每隔30个字符插入指定文本啦！

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