重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net创建word VB创建数据库

VB中如何生成一个WORD文档(有图)

程序采用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)”,以便在窗体设计中可以使用微调控件。

网站建设哪家好,找创新互联建站!专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了阆中免费建站欢迎大家使用!

如何在VB中建立word文档,并写入文字和图片?

首先说明,你这样是写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

其他问题再找我。

怎样用VB.NET生成一个复杂的word表格?

转换表格的时候应该有选项的(光标一般放置在外层表格区域),如图,取消 转换嵌套表格。

当然,对于特别复杂及不规则的表格(粘贴过程中也可能导致表格错乱),用FRONTPAGE调整一下也是不错的主意。

参考文献:OFFICE XP测试

vb.net怎么对word进行操作????

不清楚报错信息,只能给以下提示:

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项导入就可以了。

vb.net 如何创建一个word文档

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


网站标题:vb.net创建word VB创建数据库
链接分享:http://cqcxhl.com/article/hhsipd.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP