vb word打开 保存的问题

我觉得word另存文件时，要么是版本问题，另存为doc、docx类型，要么是存为文本或者rtf之类的，而word与pdf之间应该是格式转换的关系，需要调取pdf相关组件。另存可以很快完成，但是转换的效率就没有邻村那么快。是不是应该再引用pdf组件或者转换组件，或者word的版本需要高些。楼主参考下别的语言试试，比如下边这个链接，希望你成功！
http://www.oschina.net/code/snippet_866190_20559
希望能解决您的问题。

进程可以查看是否还有word，检查没有后再运行代码
对象打开 记得释放

SAVE完了后，要关闭

Dim myword As Word.Application
Dim mydocument As Word.Document
On Error Resume Next
Set myword = CreateObject("word.application")
set mydocument =myword.Documents.Open FileName:=App.Path & "\1.doc"
myword.Visible = True
'这里写修改的代码
.......

Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell

myword.Selection.TypeText Text:=Text5.Text
myword.Selection.MoveRight Unit:=wdCell
myword.Selection.MoveRight Unit:=wdCell
myword.Selection.TypeText Text:=Text6.Text

mydocument.saveas "C:\Documents and Settings\Administrator\桌面\2.doc"
mydocument.close
set mydocument =nothing

'下一次修改
set mydocument =myword.Documents.Open FileName:=App.Path & "\1.doc"
'这里写修改的代码
.......

mydocument.saveas "C:\Documents and Settings\Administrator\桌面\3.doc"
mydocument.close
set mydocument =nothing