如何用Word VBA插入带样式色彩的AutoText并标记为书签？

核心思路是：插入AutoText时保留其格式，然后获取插入内容的Range对象，基于这个Range创建书签。以下是完整的实现代码和关键说明：

完整VBA代码 #

Sub InsertAutoTextWithBookmark()
    Dim autoTextEntry As AutoTextEntry
    Dim targetRange As Range
    Dim bookmarkName As String
    
    ' 配置参数：替换为你的AutoText名称和目标书签名称
    Const TARGET_AUTOTEXT As String = "自定义AutoText名称"
    bookmarkName = "AutoText_Bookmark" ' 书签名称不能含空格/特殊字符
    
    ' 获取当前光标位置作为插入点
    Set targetRange = Selection.Range
    
    ' 从Normal模板中获取指定AutoText（若在其他模板，替换NormalTemplate为对应模板）
    Set autoTextEntry = NormalTemplate.AutoTextEntries(TARGET_AUTOTEXT)
    
    ' 插入AutoText并保留富文本格式（样式、色彩等）
    autoTextEntry.Insert Where:=targetRange, RichText:=True
    
    ' 调整Range范围为刚插入的AutoText内容
    targetRange.End = targetRange.Start + autoTextEntry.Range.End - autoTextEntry.Range.Start
    
    ' 处理重复书签：若已存在则删除
    If ActiveDocument.Bookmarks.Exists(bookmarkName) Then
        ActiveDocument.Bookmarks(bookmarkName).Delete
    End If
    
    ' 为AutoText内容添加书签
    ActiveDocument.Bookmarks.Add Name:=bookmarkName, Range:=targetRange
    
    ' 可选：选中书签范围，直观验证结果
    targetRange.Select
End Sub

关键细节说明 #

• 保留格式：必须设置RichText:=True，否则AutoText的样式、色彩会丢失，变为普通文本格式。
• Range范围确认：插入AutoText后，原targetRange会自动扩展，但通过autoTextEntry.Range的长度来精准定位插入内容的范围，避免因文档其他内容干扰导致范围错误。
• 书签命名规则：书签名称不能包含空格、逗号、句号等特殊字符，且不能以数字开头。
• 模板适配：如果你的AutoText存储在文档附加模板而非Normal模板，将NormalTemplate替换为ActiveDocument.AttachedTemplate即可。

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