5,138
社区成员
发帖
与我相关
我的任务
分享
msgbox Selection.Paragraphs(1).Range.Text
ParaNum = ActiveDocument.Range(Start:=ActiveDocument.Range.Start, End:=Selection.Paragraphs.First.Range.Start).Paragraphs.Count + 1
Set oRange = ActiveDocument.Range(Start:=Selection.Paragraphs.First.Range.Start, End:=Selection.Paragraphs.Last.Range.End)