作者：乔山办公网日期：
返回目录：office365
'打开后焦点发生了转移，activedocument已经指向刚打开的文件了
'改为
Sub Macro1()
Dim myDoc
'On Error Resume Next
With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range
Set myDoc = Word.Application.Documents.Open("E:\1.docx")
.Delete
.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)
End With
End Sub
'（
InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)这行代码中，你确定表2存在吗？我测试时只建636f7079e79fa5e98193333一个表，所以改为Tables(1).
）
'也可以这样控制焦点
Sub Macro1()
Dim myDoc
'On Error Resume Next
Set myDoc = Word.Application.Documents.Open("E:\1.docx", , , , , , , , , , , vbHide)
With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range
.Delete
.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)
End With
End Sub
ActiveDocument.FullName为活动文档的全名
可以用Replace(ActiveDocument.FullName, ".doc", ".pdf")替换代码中原来的pdf文件名
有现存的代百码，看了看还行，度自己去看一下问吧，地址如答下：专
如何用vba按页数拆分word文档属
http://wenda.so.com/q/67866
下面的这些方法不需要用到编程的：对于不允许做修改的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语言的识别，特别是混合多种语言识别效果也非常好：安装完毕之后，首先把图片上的文字识别出来，然后再对照图片把识别错误的地方改过来，这样就实现7a64e59b9ee7ad94339了，从JPEG文件到word的格式转换。
方法二：在线PDF转Word共有以下几个步骤:
• 点击浏览按钮选择需要转换的PDF文件。
• 输入需要转换的页码，以逗号分割开，如果转换所有的页面可以跳过这一步。
• 点击按钮上传文件，然后等着就可以了。
• 点击下载链接把做好的文件下载到本地就可以了；
方法三：用其他软件Wondershare PDFelement等处理。