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`