本示例将加粗格式应用到选定内容的第一个域。

If Selection.Fields.Count >= 1 Then
    Set myRange = Selection.Fields(1).Result
    myRange.Bold = True
End If