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

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 = Nothing
End Sub

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

相关推荐