word中如何查找关键字与表格结束标记之间的文字?
例如,我想去作者名字,一般的格式都是
作者:xxx(回车)
这是搜索可以用Doc.Selection.Find.text="作者:*^13"
但是如果这行是放在一个表格的单元格中,它是以单元格结束符结尾的,不是普通的回车,
看了很多文章,说这个End of Cell Mark是^13^7,使用上面的方法匹配不了。
但是如果Doc.Selection.Find.text="作者:*^13^7", .execute就会出错。
有上面方法能够解决这个问题?谢谢
[解决办法]
这回明白楼主的意思了,写了段代码,楼主可以参考一下,它可以仅在文档第一页中提取表格外和表格内的作者名。提取出的人名我是用MsgBox函数输出的,楼主可以根据自己的实际需要修改输出方式。代码如下(加入了判断,只在文档第一页中提取内容):
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