Word VBA：如何让InsertCaption自动添加不间断空格并适配多语言？

我审阅了几份MS Word规范文档，里面有约1000个表格和图形，它们的标题用普通空格分隔标签与编号，经常出现“Table”在行尾、对应编号在行首的换行问题，影响可读性。我手动给所有标题加了不间断空格，现在写了生成表格和标题的VBA宏，但需要调整标题格式来自动实现这个效果。简化后的代码如下：

Sub MyTableMacro()
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _
        4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
    ...
    ...
    End With
    Selection.InsertCaption Label:="Table", Title:=" " + ChrW(8212) + " My table title", Position:=wdCaptionPositionAbove, ExcludeLabel:=0
End Sub

需要修改代码实现标签与编号间自动插入不间断空格，同时兼容英文Windows版和德语Mac版Word（之前破折号适配出过问题）。

1. 自动替换标签与编号间的普通空格为不间断空格 #

直接在插入标题后，通过查找替换把标签后的普通空格换成不间断空格即可。针对不同语言版本的Word，还可以自动识别标签文本：

Sub MyTableMacro()
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _
        4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
    ...
    ...
    End With
    
    ' 插入标题
    Selection.InsertCaption Label:="Table", Title:=" " + ChrW(8212) + " My table title", Position:=wdCaptionPositionAbove, ExcludeLabel:=0
    
    ' 根据Word语言版本确定标签文本
    Dim captionLabel As String
    If Application.Language = msoLanguageIDGerman Then
        captionLabel = "Tabelle "
    Else
        captionLabel = "Table "
    End If
    
    ' 替换普通空格为不间断空格（ChrW(160)是不间断空格的Unicode编码）
    With Selection.Find
        .ClearFormatting
        .Text = captionLabel
        .Replacement.Text = Left(captionLabel, Len(captionLabel)-1) & ChrW(160)
        .Execute Replace:=wdReplaceOne
    End With
End Sub

2. 跨平台兼容的破折号处理 #

不同平台下破折号显示异常，建议用Unicode标准字符，并通过条件编译适配平台：

Sub MyTableMacro()
    ' 定义跨平台兼容的长破折号
    Dim emDash As String
    #If Mac Then
        emDash = ChrW(8212)
    #Else
        emDash = ChrW(8212)
    #End If
    
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _
        4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
    ...
    ...
    End With
    
    ' 插入标题时使用定义好的破折号
    Selection.InsertCaption Label:="Table", Title:=" " + emDash + " My table title", Position:=wdCaptionPositionAbove, ExcludeLabel:=0
    
    ' 替换标签与编号间的空格（同上面的代码）
    Dim captionLabel As String
    If Application.Language = msoLanguageIDGerman Then
        captionLabel = "Tabelle "
    Else
        captionLabel = "Table "
    End If
    
    With Selection.Find
        .ClearFormatting
        .Text = captionLabel
        .Replacement.Text = Left(captionLabel, Len(captionLabel)-1) & ChrW(160)
        .Execute Replace:=wdReplaceOne
    End With
End Sub

3. 更彻底的方案：修改Caption样式 #

如果希望所有新插入的标题默认使用不间断空格，直接修改Word的Caption样式：

1. 打开「样式」面板，找到「Caption」样式。
2. 右键选择「修改」，进入格式设置。
3. 找到标签与编号的分隔空格，替换为不间断空格（快捷键：Ctrl+Shift+Space）。
4. 保存样式后，无论手动还是宏插入的标题都会自动应用该格式，无需每次在宏中处理。

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