word怎样在两个文字之间加点

VBA

看到有人问怎么改代码，给你个参考，自己看着改哈。VBADim mydocument As New DocumentActiveDocument.Range.Copymydocument.Range.PasteWith mydocument.Range .Find.ClearFormatting .Find.Replacement.ClearFormatting With .Find .Text = *三部门(*)2万元* .Replacement.Text = 1^13 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeword = False .MatchByte = False .MatchAllwordForms = False .MatchSoundsLike = False .MatchWildcards = True End With .Find.Execute Replace:=wdReplaceAllEnd With

有啥不懂的可以继续问，能自己改就尽量改，别光复制粘贴完事。