例如，我想去作者名字，一般的格式都是
作者：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