正文
vb.net保存word vbnet 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文档！", "提示！");
}));
});
}
相关问答
Q1: 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
Q2: 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
这代码里面的路径是以将结果文档保存在项目文件下，也可以自己自定义路径
Q3: 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的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
