二级标题要加句号嘛（二级标题要加句号）

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 "。

" End Sub。