VBA操作WORD（四）：获知关键字所在段落及相关信息

代码如下：

Sub 关键字所在的段落()With Selection.HomeKey unit:=wdStory, Extend:=wdMoveIf .Find.Execute(FindText:="关键字", Forward:=True) Then'.HomeKey unit:=wdStory, Extend:=wdExtendMsgBox (.Range.Paragraphs.Count)
End IfEnd With
End Sub

使用例子

Sub 设置主送对象格式()
'规则：如果关键字所在段落只有一句且以冒号结尾，则段落会顶格，不会缩进。默认第一次匹配成功的就是主送对象。
'注意：如果第一段只有一句且，只是“报告如下：”这种格式，程序判断不了，只能个别情况手工调整。With Selection.HomeKey unit:=wdStory, Extend:=wdMoveIf .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 IfEnd With.MoveStart unit:=wdParagraph, Count:=1 '光标移动到关键字下一个字符End IfEnd With
End Sub

VBA操作WORD（四）：获知关键字所在段落及相关信息相关推荐

(转)Excel VBA 操作 Word（入门篇）
原文地址本文的对象是:有一定Excel VBA基础,对Word VBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人. 一.新建Word引用需要首先创建一个对 Word App ...
Android 屏幕适配攻略（四）获取手机屏幕的相关信息与动态设置控件的大小
Android 屏幕适配攻略(四)获取手机屏幕的相关信息与动态设置控件的大小 1 动态获取手机屏幕的屏幕密度与对应像素比例例如在 320 * 480 尺寸为 3.2 英寸的手机 ,对应的像素密度 ...
批量提取关键字所在段落，word魔方插件高效完成
需求: 提取文档中某些关键字所在的整段内容. 例如:我想提取文档中关键字[老龄化]所在的所有段落内容. 工具: Word魔方操作步骤: 将关键字挨个录入提取条件,然后点击[开始提取]. 操作视频演示 ...
VBA操作word生成sql语句
项目开始一般都是用word保存下数据库的文档但是从表单一个一个的建表实在是很困难乏味,查查资料 1.可以生成一个html或者xml,检索结构生成sql.但是这个方式也蛮麻烦 2.查到vba可以操作w ...
VBA提高篇35 VBA操作Word/PPT/Access_CreateObject/GetObject
文章目录 1. Word参数 2. PPt/Access 3. office的互相调用 3.1 工程创建CrateObject 3.2 对比上面速度高,效率快GetObject 1. Word参数参 ...
VBA操作WORD（一）：设置段落的行间距（行距）
在vba中可以用Paragraph对象或者ParagraphFormat对象设置各种段落间距. 一.设置段落的行间距(行距) 要设置段落的行间距(行距)可以使用LineSpacingRule属性和Li ...
【AHK】【VBA】word四种设置自定义快捷键的方法
突然发现word有四种设置快捷键的方法,首先介绍的两种是word自带的设置方式:一种是AHK的设置方法,以一个简单例子即可上手:最后一种是方法的合体. 方法一首先是左上角的这个快速工具区,是可以自定 ...
【vba-3】vba操作word所有表格居中
Sub addTz()Word.Application.ScreenUpdating = FalseDim oRng As RangeDim oDoc As DocumentDim oCL As Ca ...
VBA设置word格式（页面，段落，表格，图片）
Sub glkCurrentDocPageSetup() Dim glkDoc As Document '定义变量 Set glkDoc = Application.ActiveDocument ' ...

VBA操作WORD（四）：获知关键字所在段落及相关信息

VBA操作WORD（四）：获知关键字所在段落及相关信息相关推荐

最新文章

热门文章