word 邮件域插入

1. 使用ai将模板中的使用邮件的部分使用<>替换
2. 打开Microsoft Visual Basic ,插入->模块

1. vba代码示例:
   `Sub ReplacePlaceholdersWithMergeFields()
   Dim fldName As Variant
   Dim rng As Range

   ' 把所有 40 个 key 列出来
   Dim keys
   keys = Array("date", "dataYYYY", "allCount", "receiveCount", _
   "CitizenCount", "CitizenApplyTypeOne", "CitizenApplyTypeTwo", _
   "CitizenIsConvenientOneTwo", "CitizenIsConvenientThree", "CitizenIsConvenientFourFive", _
   "CitizenQesHandingEvalOneTwo", "CitizenQesHandingEvalThree", "CitizenQesHandingEvalFourFive", _
   "CitizenOverallSatisfactionOneTwo", "CitizenOverallSatisfactionThree", "CitizenOverallSatisfactionFourFive", _
   "LegalCount", "LegalApplyTypeOne", "LegalApplyTypeTwo", _
   "LegalIsConvenientOneTwo", "LegalIsConvenientThree", "LegalIsConvenientFourFive", _
   "LegalQesHandingEvalOneTwo", "LegalQesHandingEvalThree", "LegalQesHandingEvalFourFive", _
   "LegalOverallSatisfactionOneTwo", "LegalOverallSatisfactionThree", "LegalOverallSatisfactionFourFive", _
   "OrgCount", "OrgApplyTypeOne", "OrgApplyTypeTwo", _
   "OrgIsConvenientOneTwo", "OrgIsConvenientThree", "OrgIsConvenientFourFive", _
   "OrgQesHandingEvalOneTwo", "OrgQesHandingEvalThree", "OrgQesHandingEvalFourFive", _
   "OrgOverallSatisfactionOneTwo", "OrgOverallSatisfactionThree", "OrgOverallSatisfactionFourFive")

   For Each fldName In keys
   Set rng = ActiveDocument.Content
   With rng.Find
   .Text = "<<" & fldName & ">>"
   .Forward = True
   .Wrap = wdFindStop
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
   End With

   Do While rng.Find.Execute
       rng.Fields.Add Range:=rng, _
                     Type:=wdFieldMergeField, _
                     Text:=fldName, _
                     PreserveFormatting:=True
       rng.Collapse wdCollapseEnd
   Loop
   

   Next fldName
   End Sub`

1. 运行可以替换所有<>变成邮件域，使用alt+f9检查，变成了MERGEFIELD即成功