在Word书签bmk_condition处插入带格式文本失败问题求助

我需要在名为bmk_condition的书签位置插入特定文本，内容包含条件编号（比如Condition 2）、描述信息和可选的截止日期。要求条件编号加粗，其余文本保持常规格式。尝试设置bookmark.range.font.bold属性后，"Condition.."文本始终无法按预期加粗，以下是我的示例代码（数据提取部分已省略）：

Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdBmk As Word.Bookmark

Set wdApp = GetObject(, "Word.Application")

Set wdDoc = wdApp.Documents.Add("template.dotx", False, 0)

wdApp.Visible = True

wdDoc.Activate

Set wdBmk = pWdDoc.Bookmarks("bmk_condition")

wdBmk.Range.Collapse Direction:=wdCollapseStart

'插入条件#2
wdBmk.Range.Font.Bold = False
wdBmk.Range.Text = "Lorem Ipusm" & vbCrLf & "Deadline: xxxxxx"
wdBmk.Range.Font.Bold = True
wdBmk.Range.Text = "Condition 2"

'插入条件#1
wdBmk.Range.Font.Bold = False
wdBmk.Range.Text = "Lorem Ipsum"
wdBmk.Range.Font.Bold = True
wdBmk.Range.Text = "Condition 1"

问题分析 #

你的代码存在两个关键问题：

• 每次给wdBmk.Range.Text赋值都会覆盖之前的内容，比如先插入描述文本，再插入条件编号时，描述文本会被完全替换，最终只保留最后插入的内容。
• 格式设置和文本插入的逻辑顺序错误，且没有针对特定文本范围操作，导致格式无法正确应用到目标内容上。

修正后的代码 #

Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdBmk As Word.Bookmark
Dim insertRange As Word.Range ' 跟踪插入位置的范围变量

Set wdApp = GetObject(, "Word.Application")
Set wdDoc = wdApp.Documents.Add("template.dotx", False, 0)
wdApp.Visible = True
wdDoc.Activate

' 修正变量名错误：pWdDoc 应为 wdDoc
Set wdBmk = wdDoc.Bookmarks("bmk_condition")
Set insertRange = wdBmk.Range
insertRange.Collapse Direction:=wdCollapseStart

' 插入Condition 2：先设置加粗格式，再插入文本
insertRange.Font.Bold = True
insertRange.Text = "Condition 2" & vbCrLf
' 折叠到当前范围末尾，准备插入常规格式内容
insertRange.Collapse Direction:=wdCollapseEnd
insertRange.Font.Bold = False
insertRange.Text = "Lorem Ipsum" & vbCrLf & "Deadline: xxxxxx" & vbCrLf & vbCrLf

' 插入Condition 1
insertRange.Collapse Direction:=wdCollapseEnd
insertRange.Font.Bold = True
insertRange.Text = "Condition 1" & vbCrLf
insertRange.Collapse Direction:=wdCollapseEnd
insertRange.Font.Bold = False
insertRange.Text = "Lorem Ipsum"

' 可选：重新添加书签，避免原书签因文本插入失效
wdDoc.Bookmarks.Add Name:="bmk_condition", Range:=insertRange

关键修正点 #

1. 新增insertRange变量，专门跟踪当前插入位置，避免直接操作书签范围导致的偏差。
2. 调整操作顺序：先设置目标格式，再插入对应文本，确保条件编号插入时直接应用加粗格式。
3. 每次插入文本后，将范围折叠到末尾，实现文本追加而非覆盖。
4. 修正原代码中pWdDoc的变量名错误。
5. 可选步骤：插入完成后重新添加书签，防止原书签因文本插入后位置变化而失效。

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