(资料图)

1、Sub 标题后加指定字符() With ActiveDocument.Content.Find .ClearFormatting .Style = "标题 1" .Execute FindText:="", ReplaceWith:="^&A1", Format:=True, Replace:=wdReplaceAll End With Set Doc = ActiveDocument Set MyRange = Doc.Range(Start:=Doc.Paragraphs(1).Range.End - 1, End:=Doc.Paragraphs(1).Range.End - 1) MyRange.InsertAfter "。

2、" End Sub。

本文到此分享完毕，希望对你有所帮助。

标签：