如何在Word VBA生成的表/图题注标签与编号间插入非断空格？

问题原因 #

你尝试将非断空格Chr(160)直接拼接在DOCVARIABLE的域文本中，这会让Word将其视为域代码的一部分，而非域结果后需要的分隔空格，导致位置错误。

解决方法 #

正确的做法是在前缀域（DOCVARIABLE/STYLEREF）和SEQ编号域之间直接插入非断空格，而非将空格嵌入域代码。以下是修改后的代码：

Sub InsertCaptionParagraph(sCapType As String, rPara As Range)

    Dim sFieldText As String
    Dim sCapField As String
    Dim rInsertPos As Range
    Dim fField As Field
    Dim rFirstChar As Range

    '设置题注类型对应的域和样式
    Select Case sCapType
        Case "Table"
            sCapField = "DOCVARIABLE TablePrefix"
            sFieldText = "SEQ Table"
            rPara.Style = "TableTitle"
        Case "Figure"
            sCapField = "DOCVARIABLE FigurePrefix"
            sFieldText = "SEQ Figure"
            rPara.Style = "FigureTitle"
        Case Else
            sCapField = "STYLEREF  TableTitle"
            sFieldText = ""
            rPara.Style = "TableTitleCont"
    End Select

    Set rInsertPos = rPara.Paragraphs(1).Range
    '清空段落内的旧域和多余制表符
    If rInsertPos.Fields.Count > 0 Then
        For Each fField In rInsertPos.Fields
            fField.Delete
        Next
        Set rInsertPos = rPara.Paragraphs(1).Range
        If Mid(rInsertPos.Text, 1, 1) = vbTab Then
            Set rFirstChar = rInsertPos
            rFirstChar.Collapse wdCollapseStart
            rFirstChar.End = rFirstChar.Start + 1
            rFirstChar.Delete
        End If
    End If

    '处理段落前置内容
    rInsertPos.Collapse wdCollapseStart
    If sCapType <> "TableTitleCont" Then
        rInsertPos.InsertAfter Text:=vbTab
        rInsertPos.Collapse wdCollapseStart
    Else
        If Len(rInsertPos.Paragraphs(1).Range) = 1 Then
            rInsertPos.InsertAfter Text:=" continued"
            rInsertPos.Collapse wdCollapseStart
        End If
    End If

    '插入题注内容：前缀域 → 非断空格 → SEQ域
    If sCapType <> "TableTitleCont" Then
        '插入前缀变量域
        rPara.Fields.Add Range:=rInsertPos, Type:=wdFieldEmpty, Text:=sCapField, PreserveFormatting:=True
        '移动到前缀域末尾，插入非断空格
        rInsertPos.Collapse wdCollapseEnd
        rInsertPos.InsertAfter Text:=Chr(160)
        '移动到空格末尾，插入SEQ编号域
        rInsertPos.Collapse wdCollapseEnd
        rPara.Fields.Add Range:=rInsertPos, Type:=wdFieldEmpty, Text:=sFieldText, PreserveFormatting:=True
    Else
        '插入续表标题的STYLEREF域
        rPara.Fields.Add Range:=rInsertPos, Type:=wdFieldEmpty, Text:=sCapField, PreserveFormatting:=True
    End If

End Sub

核心修改点 #

1. 移除域代码中的空格：删除了Chr(160)与域文本的拼接，确保域定义纯净
2. 调整插入流程：先插入前缀域，将光标移至域结果末尾后插入非断空格，最后插入SEQ编号域，让空格准确位于标签和编号之间
3. 优化代码结构：用Select Case替代多分支If，提升可读性

修改后，域代码会正确显示为：
{ DOCVARIABLE TablePrefix \* MERGEFORMAT }[非断空格]{ SEQ Table \* MERGEFORMAT }
非断空格不会嵌入域代码内部，而是作为两个域结果之间的分隔符，完美实现需求。

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