针对你遇到的重复插入clientNumber的需求，我整理了三个实用的解决办法，你可以根据模板情况灵活选择：

方案1：给不同位置设置不同书签，直接赋值（最直观） #

既然Word不允许同名书签，那我们给正文位置保留clientNumber书签，页眉里的位置单独设置一个新书签（比如clientNumber_header）。然后在VBA里把同一个变量值分别赋值给这两个书签，逻辑和你现有代码完全兼容：

Dim wdApp As Object, wdDoc As Object
Dim clientNum As String

' 从Excel单元格获取clientNumber
clientNum = ThisWorkbook.Sheets("你的工作表名称").Range("A1").Value ' 替换成实际单元格

' 打开Word模板
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open("你的Word模板完整路径")

' 给正文书签赋值
wdDoc.Bookmarks("clientNumber").Range.Text = clientNum
' 给页眉书签赋值
wdDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Bookmarks("clientNumber_header").Range.Text = clientNum

' 后续保存与关闭操作
wdDoc.SaveAs "生成的目标文档路径"
wdDoc.Close
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing

这个方案上手最快，只需要给模板页眉加个新书签，不用改动太多现有代码。

方案2：用查找替换批量替换占位符（适合多重复位置） #

如果clientNumber需要在更多位置重复出现（比如正文、页眉、页脚都有），用查找替换会更高效。先在Word模板里所有需要插入的位置，统一输入占位符（比如<<ClientNumber>>），然后用VBA批量替换，包括页眉区域：

Dim wdApp As Object, wdDoc As Object
Dim clientNum As String
Dim findRange As Object

clientNum = ThisWorkbook.Sheets("你的工作表名称").Range("A1").Value

Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open("你的Word模板完整路径")

' 替换正文里的占位符
Set findRange = wdDoc.Content
With findRange.Find
    .Text = "<<ClientNumber>>"
    .Replacement.Text = clientNum
    .Forward = True
    .Wrap = 1 ' 对应wdFindContinue常量
    .Execute Replace:=2 ' 对应wdReplaceAll常量
End With

' 替换页眉里的占位符
Set findRange = wdDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
With findRange.Find
    .Text = "<<ClientNumber>>"
    .Replacement.Text = clientNum
    .Forward = True
    .Wrap = 1
    .Execute Replace:=2
End With

' 保存关闭
wdDoc.SaveAs "生成的目标文档路径"
wdDoc.Close
wdApp.Quit
Set findRange = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing

这个方案的优势是不用管理多个书签，后续新增插入位置只要加占位符就行，扩展性更强。

方案3：更新交叉引用域（若坚持使用交叉引用） #

你之前用交叉引用没同步更新，是因为交叉引用属于Word域，修改书签内容后域不会自动刷新，需要手动触发更新。只要在给clientNumber书签赋值后，加上更新所有域的代码即可：

Dim wdApp As Object, wdDoc As Object
Dim clientNum As String

clientNum = ThisWorkbook.Sheets("你的工作表名称").Range("A1").Value

Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open("你的Word模板完整路径")

' 给正文书签赋值
wdDoc.Bookmarks("clientNumber").Range.Text = clientNum

' 更新文档所有域（包含交叉引用）
wdDoc.Fields.Update

' 保存关闭
wdDoc.SaveAs "生成的目标文档路径"
wdDoc.Close
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing

注意：这个操作会更新文档里所有域（比如页码、日期域），如果只想单独更新交叉引用域，可以遍历域判断类型，但全量更新在大多数场景下更简单实用。

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