vb点虐 生成word vb生成文件

vb点虐 如何创建一个word文档

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

十多年的屏南网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整屏南建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联公司从事“屏南网站设计”,“屏南网站推广”以来，每个客户项目都认真落实执行。

System.IO.Directory.CreateDirectory("C:\我的文件夹") '创建目录,路径就自己改吧,如果路径存在,就没必要创建了

System.IO.File.Create("C:\我的文件夹\我的文件.doc") '在指定目录下创建word文档

End Sub

如何在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 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文档！", "提示！");

}));

});

}