VB中如何生成一个WORD文档（有图）

Imports Word'打开Dim mWordapp As Word.Application 'word 应用程序Dim mobjDoc As Word.Document 'word 文档Dim fullFileName as string '文件路径mWordapp = CreateObject(”Word.Application”)mobjDoc = mWordapp.Documents.Add(FullFileName)'关闭Dim missing As Object = System.Reflection.Missing.ValuemWordapp.Application.Quit()If Not mobjDoc Is Nothing Then'垃圾回收System.Runtime.InteropServices.Marshal.ReleaseComObject(mobjDoc)mobjDoc = NothingEnd IfIf Not mWordapp Is Nothing ThenSystem.Runtime.InteropServices.Marshal.ReleaseComObject(mWordapp)mWordapp = NothingEnd If'真正释放word进程GC.Collect()学习更多教程，请浏览： VB.NET入门教程 雄网

如何将在VB中生成文本导入到WORD中？在VB中生成的一张表,如

VB中如何实现向新建文本，并文本中写入内容假设你已经将和计算出来（别说这都不会），宁显示在text1中Private Sub button1_Click（) '以输出方式打开new.txt这里有路径问题参见 ＂c:\new.txt＂就是指输出到哪个文件 'for output是指打开方式为输出方式 此方式如果该文件存在则覆盖 'as #1 打开文件需要占用工作区的，所以以1号工作区打开该文件 Open ＂C:\NEW.TXT＂ For Output As #1 '在一号文件区打开的文件里写入abc Print #1, text1.text '关闭一号工作区 Close #1 '任务完成加详解，有分没有？ End Sub Private Sub button2_Click（) '以输出方式打开new.txt这里有路径问题参见 ＂c:\new.txt＂就是指输出到哪个文件 'as #1 打开文件需要占用工作区的，所以以1号工作区打开该文件 'for append是指输出方式为追加方式 Open ＂C:\NEW.TXT＂ For Append As #1 '在一号文件区打开的文件里写入defg Print #1, text1.text '关闭一号工作区 Close #1 '任务完成加详解，有分没有？ End Sub...

vb 打开word文件

必需存在保存文本的路径，用以下代码能实现按照X,Y这种格式储存在文本文件.可用EXCEL打开该文本文件方式查看. Option Explicit Dim i As Intege Dim a As Intege Dim x(100) As Single Dim y(100) As Single Pivate Su Command1_Click() a = 10 Open ＂c:\wenen\xy.txt＂ Fo Output As #1 Fo i = 0 To a Pint #1, x(i) & ＂,＂ & y(i) Next i Close End Su

vb怎么用打印机打印已有文档（如D盘中的某个word文档）

你和装有OFFICE WORDdim wdapp set wdapp=createobject(＂word.application＂)dim docset doc = wdapp.documents.add(＂d:\abc.doc＂)wdapp.printoutdoc.closewdapp.quit以上代码也可以用记事本保存为VBS文件，可以执行.

转载请注明出处51数据库 » vb 写入word文档