VBA word自动排版(8)——批量自动搜索并提取带有特定关键词的内容
2019-02-19 15:50
363 查看
在做数据筛选时,会要求提取带有特定关键词的短句。
楼主比较懒,代码只提供了提取关键词短句的部分,并未加入重复检测功能
待提取的word文档格式如下:(关键词为XX)
aaaxxaa
bbbxxbb
sssss
ccccxxcc
sddssfsdf
sdfsdfxxdddd
以下代码能够实现批量提取出word文档内的带有关键词的数据
Sub 提取内容() Dim temp_text, text_output As String i = 0 Do With Selection.find .Text = "需要搜索的关键词" .Forward = True .Wrap = wdFindContinue .Format = False End With Selection.find.Execute Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend i = i + 1 text_output = text_output & Selection.Text & Chr(13) If i = 500 Then Exit Do End If Selection.EndKey Unit:=wdLine Selection.MoveRight Loop Documents.Add.Content.Text = text_output ActiveDocument.SaveAs ("路径\1.docx") '输出成独立的word文档 End Sub
生成的1.docx的格式
aaaxxaa
bbbxxbb
ccccxxcc
sdfsdfxxdddd
相关文章推荐
- VBA word自动排版(10)-结合SQL数据库批量替换WORD文本
- asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取
- asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取
- VBA实现批量修改Word文档的页脚内容
- word中对特定内容批量应用样式
- Matlab 在 word中插入特定内容,批量生成不同内容的文件
- win7下搜索word文档的特定内容
- 批量提取Word中的图片
- jmeter正则表达式提取器提取特定字符串后的全部内容
- Android实现关键词批量搜索EditText
- 批量搜索并替换内容
- 按word内容关键字搜索
- VBA读取word中的内容到Excel中
- 带有修订的word文档如何在打印的时候不显示修订内容?
- TF-IDF与余弦相似性的应用(一):自动提取关键词
- ajax实现搜索关键词自动完成功能
- 能够按页号提取word文档文本内容的小程序,由C#实现
- 如何修改搜索关键词内容
- 简单自动搜索内容
- TF-IDF与余弦相似性的应用(一):自动提取关键词