代码如下:
Sub 关键字所在的段落()
With Selection
.HomeKey unit:=wdStory, Extend:=wdMove
If .Find.Execute(FindText:="关键字", Forward:=True) Then
'.HomeKey unit:=wdStory, Extend:=wdExtend
MsgBox (.Range.Paragraphs.Count)
End If
End With
End Sub
使用例子
Sub 设置主送对象格式()
'规则:如果关键字所在段落只有一句且以冒号结尾,则段落会顶格,不会缩进。默认第一次匹配成功的就是主送对象。
'注意:如果第一段只有一句且,只是“报告如下:”这种格式,程序判断不了,只能个别情况手工调整。
With Selection
.HomeKey unit:=wdStory, Extend:=wdMove
If .Find.Execute(FindText:=":^p", Forward:=True) Then
'.HomeKey unit:=wdStory, Extend:=wdExtend'这句会选定关键字前面所有内容
.MoveStart unit:=wdParagraph, Count:=-1 '选中关键字所在段落
With Selection '注意此处的Selection对象和上一个不同
If (.Range.Paragraphs(.Range.Paragraphs.Count).Range.Sentences.Count = 1) Then
.Range.ParagraphFormat.Reset
.Range.Style = wdStyleNormal
.Range.Collapse Direction:=wdCollapseEnd 'wdCollapseEnd折叠引用整个段落的区域, 则该范围位于结束段落标记之后 (下一段的开头)。
End If
End With
.MoveStart unit:=wdParagraph, Count:=1 '光标移动到关键字下一个字符
End If
End With
End Sub