刚好遇到过类似的需求，我来给你一个精准控制的解决方案！之前用Document.Content.Fields.ToggleShowCodes确实只有切换功能，没法精准判断当前状态再执行操作。要实现「仅当未显示域代码时，显示所有域（包括文本框内的）」的逻辑，可以按以下步骤来：

核心思路 #

1. 先判断当前状态：通过检查文档中任意一个域的ShowCodes属性，确定当前是否已经显示域代码（如果文档无域，默认视为未显示状态）。
2. 针对性执行显示操作：如果未显示，先处理主文档内容里的域，再遍历所有文本框，处理其中的域。

VBA代码实现 #

Sub ShowFieldCodesIfNotActive()
    Dim isShowingCodes As Boolean
    ' 判断当前是否已显示域代码
    If ActiveDocument.Fields.Count > 0 Then
        isShowingCodes = ActiveDocument.Fields(1).ShowCodes
    Else
        ' 文档无域时，默认视为未显示
        isShowingCodes = False
    End If
    
    ' 仅当未显示时执行显示操作
    If Not isShowingCodes Then
        ' 显示主文档中的域代码
        ActiveDocument.Content.Fields.ToggleShowCodes
        
        ' 遍历所有文本框，显示其中的域代码
        Dim shp As Shape
        For Each shp In ActiveDocument.Shapes
            If shp.Type = msoTextBox Then
                shp.TextFrame.TextRange.Fields.ToggleShowCodes
            End If
        Next shp
    End If
End Sub

C# VSTO 版本参考 #

如果是用VSTO开发Word插件，代码逻辑类似：

using Word = Microsoft.Office.Interop.Word;

public void ShowFieldCodesIfNotActive()
{
    Word.Document doc = Globals.ThisAddIn.Application.ActiveDocument;
    bool isShowingCodes = false;

    if (doc.Fields.Count > 0)
    {
        isShowingCodes = doc.Fields[1].ShowCodes;
    }

    if (!isShowingCodes)
    {
        // 处理主文档域
        doc.Content.Fields.ToggleShowCodes();

        // 处理文本框内的域
        foreach (Word.Shape shp in doc.Shapes)
        {
            if (shp.Type == Microsoft.Office.Core.MsoShapeType.msoTextBox)
            {
                shp.TextFrame.TextRange.Fields.ToggleShowCodes();
            }
        }
    }
}

注意事项 #

• 为什么不用全局的Application.Options.ViewFieldCodes？因为这个设置会影响所有打开的Word文档，而我们的需求是针对当前文档的精准控制，所以遍历当前文档的域和文本框更合适。
• 如果文档里有嵌套的文本框（比如文本框里再套文本框），可以再加一层递归遍历，不过大部分场景下上面的代码已经够用。

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