首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

word中怎么查找关键字与表格结束标记之间的文字

2012-03-02 
word中如何查找关键字与表格结束标记之间的文字?例如,我想去作者名字,一般的格式都是作者:xxx(回车)这是搜

word中如何查找关键字与表格结束标记之间的文字?
例如,我想去作者名字,一般的格式都是
作者:xxx(回车)
这是搜索可以用Doc.Selection.Find.text="作者:*^13"
但是如果这行是放在一个表格的单元格中,它是以单元格结束符结尾的,不是普通的回车,
看了很多文章,说这个End of Cell Mark是^13^7,使用上面的方法匹配不了。
但是如果Doc.Selection.Find.text="作者:*^13^7", .execute就会出错。

有上面方法能够解决这个问题?谢谢

[解决办法]
这回明白楼主的意思了,写了段代码,楼主可以参考一下,它可以仅在文档第一页中提取表格外和表格内的作者名。提取出的人名我是用MsgBox函数输出的,楼主可以根据自己的实际需要修改输出方式。代码如下(加入了判断,只在文档第一页中提取内容):

VB code
Sub 批量提取人名()    Dim odoc As Document    Set odoc = ActiveDocument    Dim myRange As Range    Selection.HomeKey unit:=wdStory    With Selection.Find        .MatchWildcards = True        .Text = "作者:"        .Execute Forward:=True        Do While .Found            If Selection.Information(wdActiveEndPageNumber) = 2 Then MsgBox "只提取第一页中的内容": Exit Sub            Selection.EndOf unit:=wdLine, Extend:=wdExtend            MsgBox Mid(Selection.Text, 4, Len(Selection.Text) - 4)            Selection.EndKey unit:=wdLine            .Execute        Loop    End With    Set odoc = NothingEnd Sub 

热点排行