楼主可以试试下面的步骤：
[Word 2003]
1、Ctrl+F打开“查找”窗口；
2、查找内容：[a-zA-Z0-9_\-.]{1,}\@[a-zA-Z0-9_\-.]{1,}
3、选中“突出显示所有在该范围找到的项目”，下面列表框选中“主文档”；
4、单击“高级”展开完整查找窗口；
5、选中“使用通配符”；
6、单击“查找全部”；
7、关闭“查找”窗口；
8、可以看到整个文档中的电子邮件地址都被选中了，这时键入Ctrl+C将它们复制到剪贴板；
9、然后再把剪贴板上的内容复制到其它需要使用的地方，如新的Word文档或者记事本等。复制出来的email地址是用回车分隔的，所以可以直接复制到Excel表格中。
[Word 2007]
1、Ctrl+F打开“查找”窗口；
2、查找内容：[a-zA-Z0-9_\-.]{1,}\@[a-zA-Z0-9_\-.]{1,}
3、单击“更多”展开完整查找窗口；
4、选中“使用通配符”；
5、单击“在以下项中查找”，选择“主文档”；
6、关闭“查找”窗口；
7、同Word 2003
请注意，我这里使用的查找email地址的模式不是很严格，而且Word对于正则表达式的支持又不是很标准，所以不知道会不会出现漏选的情况。不过至少我测试用的一些email地址都是被选中了。
