锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net保存word vbnet word

IT技术missing

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();//显示打开文件对话框
【vb.net保存word vbnet word】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.net 怎样将richtextbox中带格式的文本和图片导入到word中？别那么费事,
直接用 richbox 的 save方法把内容存放在一个临时的 rtf文件
RichTextBox1.SaveFile("e:\temp.rtf") '因为word是可以直接打开rtf文件的
然后用 Documents打开这个临时对象
Documents.Open ("e:\temp.rtf")
最后再另存为 word文件
ActiveDocument.SaveAs ("newname.doc",100, False, "", True, "",False, False,False, False, False)
'注意第二个参数是100 表示doc格式
完整代码如下:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim doc As Object, docword As Object
RichTextBox1.SaveFile("e:\1.rtf")
Doc = CreateObject("Word.Application")
DocWord = doc.Documents.Open("e:\1.rtf")
doc.ActiveDocument.SaveAs("newname.doc", 100, False, "", True, "", False, False, False, False, False)
doc.quit()
doc = Nothing
docword = Nothing
End Sub
VB：把指定的word文档里的内容复制并新建路径保存 。VB.net复制Word文档内容？建议可以参考下spire.doc for .netvb.net保存word的教程文章vb.net保存word：
C#/VB.NET 复制 Word 文档（这个文章描述的是复制word正文内容）
C#/VB.NET 复制 Word 页眉/页脚（复制Word页眉页脚）
复制水印vb.net保存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
这代码里面的路径是以将结果文档保存在项目文件下 ， 也可以自己自定义路径
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保存word和vbnet word的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：如何优化腾讯的服务器性能？ 腾讯的服务器怎么调

    下一篇：公众号注册名字查询，公众号注册名字查询系统