鹿晗代言肯德基视频:200点！！用vb6.0编程将三个从磁盘中读出的“.rtf或.doc”文件(有一个文件有位图）组合一个文件写进磁盘

我来说说吧，目前好像解决此类Word自动化问题的最好办法是：启动Word然后录制宏，然后做你要完成的工作，停止录制宏。最后打开VBA编辑器查看VBA源代码，然后将它再犯译成相应的VB代码，当然这个需要你懂得一些Word自动化编程的知识，可以看看Office安装目录下面有个什么以VBA开头的chm帮助文档（如果没有需要用Office安装盘再自定义增量安装）。

自己最后再调整一下结果和相关操作效果还是不错的。

objWord.Documents.Open FileName:=App.Path & "\1.doc",
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False,
PasswordDocument:="", PasswordTemplate:="", Revert:=False,
WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto
Selection.EndKey Unit:=wdStory
Selection.InsertBreak Type:=wdPageBreak
Selection.InsertFile FileName:=App.Path & "\2.doc", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
Selection.EndKey Unit:=wdStory
Selection.InsertBreak Type:=wdPageBreak
Selection.InsertFile FileName:=App.Path & "\3.doc", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False

ActiveDocument.SaveAs FileName:=App.Path & "4.doc",
FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True,
WritePassword _

:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:= False