vb.net生成word,VBNET教程

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

相关问答

Q1: VB.NET RichTextBox 保存为 Word文档

将Word文档嵌入到WinForm窗体显示Word文档内容

private void 打开ToolStripMenuItem_Click(object sender, EventArgs e)

{

OpenFileDialog P_GetFile = new OpenFileDialog();//创建打开文件对话框对象

DialogResult P_dr = P_GetFile.ShowDialog();//显示打开文件对话框

if (P_dr == DialogResult.OK)//是否点击确定

{

WebBrowser.Navigate(P_GetFile.FileName);//打开Word文档并显示

}

}

//在Word文档中插入图片

private void btn_New_Click(object sender, EventArgs e)

{

btn_New.Enabled = false;//停用新建按钮

ThreadPool.QueueUserWorkItem(//使用线程池

(P_temp) =//使用lambda表达式

{

G_wa = new Word.Application();//创建Word应用程序对象

Word.Document P_wd = G_wa.Documents.Add(//建立新文档

ref G_missing, ref G_missing, ref G_missing, ref G_missing);

Word.Range P_Range = P_wd.Paragraphs[1].Range;//得到段落范围

object P_Ranges = P_Range;//创建ojbect对象

P_wd.InlineShapes.AddPicture(//向文档中插入图片

G_OpenFileDialog.FileName, ref G_missing, ref G_missing, ref P_Ranges);

G_str_path = string.Format(//计算文件保存路径

@"{0}\{1}", G_FolderBrowserDialog.SelectedPath,

DateTime.Now.ToString("yyyy年M月d日h时s分m秒fff毫秒") + ".doc");

P_wd.SaveAs(//保存Word文件

ref G_str_path,

ref G_missing, ref G_missing, ref G_missing, ref G_missing,

ref G_missing, ref G_missing, ref G_missing, ref G_missing,

ref G_missing, ref G_missing, ref G_missing, ref G_missing,

ref G_missing, ref G_missing, ref G_missing);

((Word._Application)G_wa.Application).Quit(//退出应用程序

ref G_missing, ref G_missing, ref G_missing);

this.Invoke(//开始执行窗体线程

(MethodInvoker)(() =//使用lambda表达式

{

btn_Display.Enabled = true;//启用显示按钮

MessageBox.Show("成功创建Word文档！", "提示！");

}));

});

}

Q2: 如何在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

其他问题再找我。

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

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

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

参考文献：OFFICE XP测试