使用VBA添加邮件合并域并设置字体：格式不生效问题

插入邮件合并域后，原rng变量并未指向新插入的域范围，导致后续字体格式设置没有作用到目标域上。ActiveDocument.MailMerge.Fields.Add方法会返回一个Field对象，我们需要获取这个对象的Range来应用格式。

Sub AddMailMergeField()
    Dim rng As Range
    Dim newField As Field
    
    ' 查找文本"Something"
    Set rng = ActiveDocument.Range
    rng.Find.Text = "Something"
    If rng.Find.Execute Then
        ' 光标移到"Something"末尾，插入空格
        rng.Collapse Direction:=wdCollapseEnd
        rng.InsertAfter " "
        
        ' 插入邮件合并域并捕获返回的Field对象
        Set newField = ActiveDocument.MailMerge.Fields.Add(rng, "address")
        
        ' 对域的Range应用字体格式
        With newField.Range
            .Font.Name = "Arial"
            .Font.Size = 30
            .Font.ColorIndex = wdRed
        End With
    End If
End Sub

• 新增newField变量存储插入的邮件合并域对象，确保准确指向目标域的范围
• 添加If rng.Find.Execute Then判断，避免找不到"Something"时执行后续代码报错
• 将格式设置的对象从原rng改为newField.Range，直接作用于插入的域内容

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