使用VBA将Excel带格式单元格内容替换Word书签文本的问题

我正在编写VBA脚本，要把Excel单个单元格内容（带格式）复制粘贴到Word指定书签位置，要求替换书签原有文本。目前用.PasteExcelTable False, False, True实现，但遇到问题：粘贴内容没有替换原有文本，而是插在前面，重复运行会不断在旧文本前插入新内容，且书签范围未更新包含新内容。

使用的函数代码：

Function ReplaceContentAtBookmark(TWD As Word.Document, ByVal BookmarkName As String)
    
    Dim bmRange As Word.Range
    Set bmRange = TWD.Bookmarks(BookmarkName).Range
    
    ' Delete the previous element
    bmRange.Delete

    bmRange.PasteExcelTable False, False, True
    
    ' Recreate the bookmark with the new range
    TWD.Bookmarks.Add Name:=BookmarkName, Range:=bmRange

End Function

场景说明：

• 待复制的Excel单元格：含文本「12345」，橙色填充背景+黑色字体格式
• 期望效果：Word书签位置原有文本被替换为带格式的「12345」，书签覆盖新内容
• 实际问题：重复运行代码时，新内容持续插入到旧文本前方，书签未包含新内容

问题原因：

1. bmRange.Delete执行后，bmRange变成空的光标位置，而非有效范围，粘贴操作会在该位置插入内容，而非替换
2. 粘贴后未更新bmRange的范围，重新添加书签时仍使用原来的空范围，导致书签不覆盖新内容，下次运行代码时书签仍在原起始位置，继续插入新内容

修正后的代码：

Function ReplaceContentAtBookmark(TWD As Word.Document, ByVal BookmarkName As String)
    Dim bmRange As Word.Range
    
    ' 检查书签是否存在，避免运行错误
    If Not TWD.Bookmarks.Exists(BookmarkName) Then
        MsgBox "书签 " & BookmarkName & " 不存在！"
        Exit Function
    End If
    
    Set bmRange = TWD.Bookmarks(BookmarkName).Range
    
    ' 清空书签内容，保留bmRange的有效范围
    bmRange.Text = ""
    
    ' 粘贴Excel单元格内容（保留格式）
    bmRange.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=True
    
    ' 更新bmRange为刚粘贴的表格范围（单个单元格粘贴后是Word表格）
    Set bmRange = bmRange.Tables(1).Range
    
    ' 重新创建书签，确保覆盖新内容
    TWD.Bookmarks.Add Name:=BookmarkName, Range:=bmRange
End Function

关键修复点：

• 用bmRange.Text = ""替代bmRange.Delete：清空内容的同时保留bmRange的有效范围，粘贴时会直接填充该范围，而非插入
• 粘贴后获取表格范围：单个Excel单元格粘贴到Word后会生成一个1x1表格，用bmRange.Tables(1).Range准确获取新内容的范围
• 增加书签存在性检查：提升代码健壮性，避免因书签不存在导致的运行错误

内容的提问来源于stack exchange，提问作者Erik De Luca