vb.net保存word vb如何保存frm

vb.net 关于word 问题请教

从菜单：项目\添加引用，在打开的对话框的.Net页面中找到：Microsoft.Office.Interop.Word

站在用户的角度思考问题，与客户深入沟通，找到彝良网站设计与彝良网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计制作、成都网站建设、企业官网、英文网站、手机端网站、网站推广、域名与空间、网络空间、企业邮箱。业务覆盖彝良地区。

代码如下：

Dim w As New Microsoft.Office.Interop.Word.Application

Dim d As Microsoft.Office.Interop.Word.Document = w.Documents.Add '添加一文档

d.SaveAs("c:\myWord1") '保存为myWord1文件名。

d.Close()

在Com页面也有Word对象库的引用，大体一样吧，只是路径有所不同。

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

}));

});

}

VB：把指定的word文档里的内容复制并新建路径保存。

VB.net复制Word文档内容？建议可以参考下spire.doc for .net的教程文章：

C#/VB.NET 复制 Word 文档（这个文章描述的是复制word正文内容）

C#/VB.NET 复制 Word 页眉/页脚（复制Word页眉页脚）

复制水印：

Imports Spire.Doc

Namespace CopyWatermark_Doc

Class Program

Private Shared Sub Main(args As String())

'加载文档1

Dim doc1 As New Document()

doc1.LoadFromFile("input.docx")

'加载文档2

Dim doc2 As New Document()

doc2.LoadFromFile("target.docx")

'获取文档1的水印效果，设置到文档2

doc2.Watermark = doc1.Watermark

'保存文档2

doc2.SaveToFile("CopyWatermark.docx", FileFormat.Docx2013)

System.Diagnostics.Process.Start("CopyWatermark.docx")

End Sub

End Class

End Namespace

这代码里面的路径是以将结果文档保存在项目文件下，也可以自己自定义路径