用vb输出word vb怎么输出word文档

保存到TXT文件最简单，如果要输出到WORD，则要在工程里引用WORD对象，对WORD对象进行操作。至于为什么要设置不可见，因为程序引用WORD或者EXCEL对象时，相当于打开了一个WORD或者EXCEL，这不是程序想要的，程序只管引用对象，并对对象进行自动操作，不需要看到这个对象。更多
我怎么设置创建的excel文件的文件名和存储位置啊？？还有我使用了一下
dim outp as new excel.application显示错误，然后查了一下从项目里引用Microsoft.Excel15.0objectlibrary.然后在代码里输入Imports Microsoft.Office.Interop，还是不行。imports这里就显示语法错误了。
给你我以前做的一段代码参考一下：
PrivateSubSavetoexcelfile(TempexcelfileAsString)'输出到excel文件
DimTempExcelAsExcel.Application'定义EXCEL对象
DimTempBookAsExcel.Workbook'定义EXCEL工作簿
DimTempSheetAsExcel.Worksheet'定义EXCEL表
SetTempExcel=NewExcel.Application'新建EXCEL对象
IfDir(Tempexcelfile)<>""Then'存在则先删除文件,重新创建，防止保存EXCEL文件时出现错误
KillTempexcelfile
EndIf
SetTempBook=TempExcel.Workbooks.Add
SetTempSheet=TempBook.Worksheets("sheet1")
'以下省略将相关数据保存到EXCEL表格的代码
TempExcel.ActiveWorkbook.SaveAsFileName:=Tempexcelfile'将数据保存为EXCEL文件
TempBook.Close'关闭工作簿
TempExcel.Quit'退出EXCEL对象
SetTempSheet=Nothing
SetTempBook=Nothing
SetTempExcel=Nothing
MsgBox"数据导出到电子表格已成功!",0+48,"数据导出"
EndSub
现在代码编好了运行出现这些问题。。。添加引用里勾了microsoft excel 15.0 object library。并且在public class 前面加了Imports Microsoft.Office.Interop.Excel。还是出错。
你用的是VB6还是2008啊？
vb2013
我那个代码是VB6的
怎样在VB中输出word文档
Dim WordApp As Word.Application'定义word应用变量
    Dim newDoc As Word.Document'定义word文档变量
    Set WordApp = CreateObject("Word.Application")'创建新的word应用
    WordApp.Visible = True
    
    With WordApp
        Set newDoc = .Documents.Add(App.Path & "\报告单\食品水质报告.Doc")'在创建的word应用中新建一个新的word文档
        With .Selection
            .GoTo wdGoToBookmark, , , "bh" bh为word文档中的对应位置的标签名
            .TypeText PrnBID'写内容
            .GoTo wdGoToBookmark, , , "GoodsName"  'GoodsName为word文档中的对应位置的标签名
            .TypeText PrnGName'写内容
            Set MyRS = Nothing
        End With
'        newDoc.SaveAs FileName:=FilePath
    End With
    
'    If theError = 429 Then WordApp.Quit
    Set WordApp = Nothing
在事先做好的word文档中要写内容的位置设定好标签,然后在程序中找到标签,再写入数据
vb的内容如何导出到word中
先用word建立一个“模板”，把该画的表格和格式设置好，然后调出“窗体”工具栏，在你想要接收vb传来数值的位置加入“文本型窗体域”（就是文本框），在“窗体”工具栏上把“域底纹”点一下把域的底纹去掉，要不然不好看。加入域的时候记得要为每个“域”的属性里“书签”命名（其实就是相当于vb中的“名称”），保存退出（假设为c:\doc1.doc)。
在vb中新建工程并引用Microsoft Word x Object Library，在窗体中加入与word中域相对应的文本框，加一个command，加入类似以下的代码（我只用了一个文本框做例子，你自己再扩展一下吧）：
Private Sub Command1_Click()
  Dim doc1 As Word.Application
  Set doc1 = New Word.Application
  doc1.Documents.Open ("c:\doc1.doc")
  doc1.ActiveDocument.FormFields("text1").Result = Text1.Text
  doc1.ActiveDocument.Save
  doc1.Documents.Close
  Set doc1 = Nothing
End Sub
这样一来，我就把窗体中text1中的text值传入到了名为doc1.doc的word文件中。
VB 怎么输出到 word
引用WORD函数库吧，就是使用自动化，这方面的文章网上多的是，不过这样的程序运行时要求必须安装过WORD否则是运行不了的。
如果是想在无WORD的机器上也能使用，我还没找到方法，因为这样非常熟悉微软RORD EXCEL ACCESS 的数据结构，这微软可不公开。
怎么用VB将连接在access中的数据输出到word中呢？
我以前写过一个写到excel中的。对你可能有帮助。
Private Sub Command2_Click()
p = InputBox("请输入文件名", "文件名.xls")
Dim i As Integer
Dim j As Integer
Dim xl As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xl = New Excel.Application
Set xlbook = xl.Workbooks.Add
Set xlsheet = xlbook.Worksheets("sheet1")
Select Case Combo1.Text
Case "查询入库单"
    If Combo2.Text = "显示器" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "供应商编号"
        xl.Range("G3").Value = "供应商名称"
        xl.Range("H3").Value = "商品规格"
        xl.Range("I3").Value = "单位"
        xl.Range("J3").Value = "数量"
        xl.Range("K3").Value = "单价"
        xl.Range("L3").Value = "金额"
        xl.Range("M3").Value = "入库时间"
        xl.Range("N3").Value = "经手人"
        xl.Range("O3").Value = "备注"
    ElseIf Combo2.Text = "主机散件" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "商品类型"
        xl.Range("G3").Value = "供应商名称"
        xl.Range("H3").Value = "供应商编号"
        xl.Range("I3").Value = "商品规格"
        xl.Range("J3").Value = "单位"
        xl.Range("K3").Value = "数量"
        xl.Range("L3").Value = "单价"
        xl.Range("M3").Value = "金额"
        xl.Range("N3").Value = "入库时间"
        xl.Range("O3").Value = "经手人"
        xl.Range("P3").Value = "备注"
    ElseIf Combo2.Text = "打印机、复印机" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "商品类型"
        xl.Range("G3").Value = "供应商名称"
        xl.Range("H3").Value = "供应商编号"
        xl.Range("I3").Value = "商品规格"
        xl.Range("J3").Value = "单位"
        xl.Range("K3").Value = "数量"
        xl.Range("L3").Value = "单价"
        xl.Range("M3").Value = "金额"
        xl.Range("N3").Value = "入库时间"
        xl.Range("O3").Value = "经手人"
        xl.Range("P3").Value = "备注"
    ElseIf Combo2.Text = "路由器、交换机" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "商品类型"
        xl.Range("G3").Value = "供应商名称"
        xl.Range("H3").Value = "供应商编号"
        xl.Range("I3").Value = "商品规格"
        xl.Range("J3").Value = "单位"
        xl.Range("K3").Value = "数量"
        xl.Range("L3").Value = "单价"
        xl.Range("M3").Value = "金额"
        xl.Range("N3").Value = "入库时间"
        xl.Range("O3").Value = "经手人"
        xl.Range("P3").Value = "备注"
    ElseIf Combo2.Text = "其他设备" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "供应商编号"
        xl.Range("G3").Value = "供应商名称"
        xl.Range("H3").Value = "商品类型"
        xl.Range("I3").Value = "商品规格"
        xl.Range("J3").Value = "单位"
        xl.Range("K3").Value = "数量"
        xl.Range("L3").Value = "单价"
        xl.Range("M3").Value = "金额"
        xl.Range("N3").Value = "入库时间"
        xl.Range("O3").Value = "经手人"
        xl.Range("P3").Value = "备注"
    End If
Case "查询出库单"
    If Combo2.Text = "显示器" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "客户名称"
        xl.Range("G3").Value = "商品规格"
        xl.Range("H3").Value = "单位"
        xl.Range("I3").Value = "数量"
        xl.Range("J3").Value = "单价"
        xl.Range("K3").Value = "金额"
        xl.Range("L3").Value = "出库时间"
        xl.Range("M3").Value = "经手人"
        xl.Range("N3").Value = "备注"
    ElseIf Combo2.Text = "主机散件" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "客户名称"
        xl.Range("G3").Value = "商品类型"
        xl.Range("H3").Value = "商品规格"
        xl.Range("I3").Value = "单位"
        xl.Range("J3").Value = "数量"
        xl.Range("K3").Value = "单价"
        xl.Range("L3").Value = "金额"
        xl.Range("M3").Value = "出库时间"
        xl.Range("N3").Value = "经手人"
        xl.Range("O3").Value = "备注"
    ElseIf Combo2.Text = "打印机、复印机" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "客户名称"
        xl.Range("G3").Value = "商品类型"
        xl.Range("H3").Value = "商品规格"
        xl.Range("I3").Value = "单位"
        xl.Range("J3").Value = "数量"
        xl.Range("K3").Value = "单价"
        xl.Range("L3").Value = "金额"
        xl.Range("M3").Value = "出库时间"
        xl.Range("N3").Value = "经手人"
        xl.Range("O3").Value = "备注"
    ElseIf Combo2.Text = "路由器、交换机" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "客户名称"
        xl.Range("G3").Value = "商品类型"
        xl.Range("H3").Value = "商品规格"
        xl.Range("I3").Value = "单位"
        xl.Range("J3").Value = "数量"
        xl.Range("K3").Value = "单价"
        xl.Range("L3").Value = "金额"
        xl.Range("M3").Value = "出库时间"
        xl.Range("N3").Value = "经手人"
        xl.Range("O3").Value = "备注"
    ElseIf Combo2.Text = "其他设备" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "客户名称"
        xl.Range("G3").Value = "商品类型"
        xl.Range("H3").Value = "商品规格"
        xl.Range("I3").Value = "单位"
        xl.Range("J3").Value = "数量"
        xl.Range("K3").Value = "单价"
        xl.Range("L3").Value = "金额"
        xl.Range("M3").Value = "出库时间"
        xl.Range("N3").Value = "经手人"
        xl.Range("O3").Value = "备注"
    End If
Case "查询报损单"
    xl.Range("C3").Value = "ID"
    xl.Range("D3").Value = "货品名称"
    xl.Range("E3").Value = "货品类型"
    xl.Range("F3").Value = "货品规格"
    xl.Range("G3").Value = "损坏数量"
    xl.Range("H3").Value = "添加人"
    xl.Range("I3").Value = "添加时间"
    xl.Range("J3").Value = "备注"
    xl.Range("K3").Value = ""
    xl.Range("L3").Value = ""
    xl.Range("M3").Value = ""
    xl.Range("N3").Value = ""
    xl.Range("O3").Value = ""
End Select
For i = 1 To Adodc1.Recordset.RecordCount
    j = 3 + i
    For k = 0 To 14
        w = Chr(99 + k) & j
        xl.Range(w).Value = DataGrid1.Columns(k)
        Next k
    If Adodc1.Recordset.EOF = False Then
        Adodc1.Recordset.MoveNext
    End If
    Next i
xlbook.SaveAs App.Path & "\EXCEL表\" & p
xl.quit
MsgBox "数据导出完成", 64
End Sub
如何用vb在word中输出文字
方法很简单,不需要使用shell函数,剪贴簿或是api也可以解决,要将 access 中的变数传到 word中,有两种方法(可能有很多吧!!但是我只知道这两种),第一是利用word内建的合并列印功能,另外一种是使用word中的"插入(i)/功能变数(F)"然后利用一个"DocVariable"功能变数,这样就可以轻松在VBA中对word文件中的指定的位置加入经程式处理过的文字....
当然这两种方法,都需要程式设计者先设计一个word文件,使这个word文件一开启就具有已有己经事先安排好的合并列印栏位或是变数,让使用者只要在access中按下一个commandbutton就可以顺利看到自己所需的报表或是你所说的考卷出现在word中....
参考资料：www.yjdfedu.com/test
怎么讲vb计算的数据以word输出
'添加一个Button
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FileOpen(1, "D:\123.doc", OpenMode.Output)   '文件保存到D:\123.doc
        PrintLine(1, TextBox1.Text)      '这里假设你的数据存在TextBox1中
        FileClose(1)
    End Sub
转载请注明出处51数据库 » 用vb输出word vb怎么输出word文档