Microsoft Word VBA：在设置字符数量后插入回车符

Question

我正在尝试创建一个VBA，它会在文本达到3800个字符后输入回车符。理想情况下，脚本会在最后一个单词的开头停止并输入一个新的返回值，但是只有让回车符号才会是巨大的。

非常感谢任何协助。

提前谢谢！

Answer 1

请记住，即使段落符号也属于字符集。

以下是代码：

Sub Solution()

    Dim i as integer
    i = 3800

        If ActiveDocument.Range(i - 1, i) = " " Then
            ActiveDocument.Range(i, i).InsertBefore Chr(11)
        Else
            ActiveDocument.Range(i + 1, i + 1).InsertAfter Chr(11)
        End If

End Sub

您可以考虑将Chr(11)替换为Chr(13)。