13518219792
程序采用VB编程实现，需要机器安装有VB应用程序及Microsoft Office组件。打开VB，新建一个VB工程，取名Proc_Word，将启动窗体命名为FrmMain，选择“工程”菜单中的“引用”，在“引用”对话框中选择 “Microsoft Word8.0 Object Library”（这一步很重要，你必须选择这一ActiveX部件，否则代码不能正确运行，顺便说一句，如果安装的是Office2000，那么应该选择“Microsoft Word9.0 Object Library”）。同时在“工程”菜单中“部件”对话框中选择添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗体设计中可以使用微调控件。
网站建设哪家好，找创新互联建站！专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了阆中免费建站欢迎大家使用！
首先说明，你这样是写TXT，不是DOC，虽然Word可以打开，但根本就不是Word文件。当然不能存储图片了。请参考我以下的代码。建一个Command1。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim
ap
As
Word.Application,
doc
As
Document
Private
Sub
Form_Load()
'这个过程不必做修改，是建立一个新的Word文档
Set
ap
=
CreateObject("word.application")
ap.Visible
=
True
Set
doc
=
ap.Documents.Add
End
Sub
Private
Sub
Command1_Click()
doc.Content.InsertAfter
Text:="请输入你要输入的内容"
'插入文字，请使用这种格式
doc.Shapes.AddPicture
FileName:="D:\a.jpg"
'插入图片，请使用这种格式，路径自己写
End
Sub
其他问题再找我。
转换表格的时候应该有选项的（光标一般放置在外层表格区域），如图，取消 转换嵌套表格。
当然，对于特别复杂及不规则的表格（粘贴过程中也可能导致表格错乱），用FRONTPAGE调整一下也是不错的主意。
参考文献：OFFICE XP测试
不清楚报错信息，只能给以下提示：
1、工程--引用,选Microsoft Word 11.0 Object Library
2、声明并赋值word程序相关变量，注意步骤不能乱。
Dim appObj As New Word.Application '新建一个word程序对象
Dim docObj As Word.Document '声明文档对象，也可以用new新建
Dim strFile As String = "D:\MyDocu.doc"
docObj = appObj.Documents.Open(strFile, False, False, False, "", "", False, "", "", , False, False, False) '打开文档
docObj.Activate()'激活文档
.......
With docObj
.Save()
.Close()
End With
docObj = Nothing
appObj = Nothing
注意：声明word对象和文档对象，应该提示错误，你只需要点击“示警”图标，在展打的选项里选第1项导入就可以了。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.IO.Directory.CreateDirectory("C:\我的文件夹") '创建目录,路径就自己改吧,如果路径存在,就没必要创建了
System.IO.File.Create("C:\我的文件夹\我的文件.doc") '在指定目录下创建word文档
End Sub
