作者：乔山办公网日期：
返回目录：word文档
Sub Read_Word()
Dim worDoc As object
Dim wordappl As object
Dim mydoc As String
Dim myappl As String
mydoc = thisworkbook.path & "\" & "文件名.doc"
'本文档目录下的doc文件，这7a686964616fe78988e69d83331里可以直接改成路径＋文件名的形式
Set wordappl = CreateObject("Word.application") '设置wordappl对象
Set worDoc = wordappl.Documents.Open(mydoc)
'打开word文档，mydoc变量指定路径和文件名
worDoc.Activate '激活打开的文档
wordappl.Selection.WholeStory '全选文档
wordappl.Selection.Copy '复制选择内容到剪贴板
worDoc.Application.Quit '关闭word文档
Set WordApp = Nothing '释放对象变量的内存
Workbooks(1).Sheets(2).Activate '激活excel第一个工作簿的第二个工作表
ActiveSheet.UsedRange.Clear '把当前工作表清空，如果有重要数据，这条删除
Cells(1, 1).Select '选择A1单元格
ActiveSheet.Paste '粘贴复制的内容
wordappl.quit
set wordappl =nothing
End Sub
下面的这些方法不需要用到编程的：对于不允许做修改的PDF文件——就是加密加了权限的PDF，首先要去除密码或者去除数字证书，推荐用PDF Password Remove，然后再按照下面的方法进行转换为word文件：
方法一：用软件PDF To Word Converter，使用之后然后有两种结果
1、转化出来的就是想要的word，这种情况最理想了；
2、转化出来的word上都是图片，需要上网找“ABBYY finereader v9”一类的文字识别软件。ABBYY finereader v9是我见过的最强大的PDF（图片格式或者是扫描件）转word的软件。它是一款OCR软件，界面比较简洁明，9.0和以上版本有简体中文版的，支持100语言的识别，特别是混合多种语言识别效果也非常好：安装完毕之后，首先把图片上的文字识别出来，然后再对照图片把识别错误的地方改过来，这样就实现了，从JPEG文件到word的格式转换。
方法二：在线PDF转Word共有以下几个步骤:
• 点击浏览按钮选择需要转换的PDF文件。
• 输入需要转换的页码，以逗号分割e69da5e6ba907a686964616f339开，如果转换所有的页面可以跳过这一步。
• 点击按钮上传文件，然后等着就可以了。
• 点击下载链接把做好的文件下载到本地就可以了；
方法三：用其他软件Wondershare PDFelement等处理。
ActiveDocument.FullName为活动文档的全名
可以用Replace(ActiveDocument.FullName, ".doc", ".pdf")替换代码中原来的pdf文件名
比如：Shell "WINWORD.EXE C:\12345.doc", vbNormalFocus
在excel中，横zd向选中两个单元回格，就打开答c:\下的12345.doc文件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 2 And Target.Rows.Count = 1 And Target.Columns.Count = 2 Then
Shell "WINWORD.EXE C:\12345.doc", vbNormalFocus
End If
End Sub