将数据输出到word文档形式，如何实现？

[xzjxu]

最好能具体点，给个例子

[bcrun]

不解,啥数据,文本?图片?WORD文档啥格式,是可createobject("word.application")来创建吗

[threenewbee]

调用word vba。

参考：http://www.google.cn/search?hl=zh-CN&source=hp&q=vb6+%E7%94%9F%E6%88%90+word&aq=f&aqi=g1&aql=&oq=

当然也可以使用richedit实现简单的文档。

[孤独剑_LPZ]

用word.application对象,注意要先引用word 11.0 (word 2003,如果是2007版,引用对象word 12.0)

Dim objWD As Word.Application
' Set the variable (runs new instance of Word.)
Set objWD = CreateObject("Word.Application")
' Add a new document.
objWD.Documents.Add
' Add some text.
objWD.Selection.TypeText "This is some text."
' Save the document.
objWD.ActiveDocument.SaveAs filename:="mydoc.doc"
' Quit Word.
objWD.Quit
' Clear the variable from memory.
Set objWD = Nothing

[xzjxu]

3楼，你好
你说的是我需要的，但格式如何设置？比如：字体，大小，居中对齐，等

[孤独剑_LPZ]

objWD.Application.Selection.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
objWD.Application.Selection.Font.Size = 14
objWD.Application.Selection.Font.Name = "宋体"

其它的自己搜吧

[贝隆]

http://download.csdn.net/source/1627134

[LWMWORK]

  Set wdTab = wdDoc.Tables.Add(wdDoc.Bookmarks("table1").Range, 4, 10, DefaultTableBehavior:=1, AutoFitBehavior:=0)
  With wdTab
    .Range.Font.name = "宋体"
    .Range.Font.Size = 7.5
    .Range.ParagraphFormat.LineSpacingRule = 4
    .Range.ParagraphFormat.LineSpacing = 12
    .Range.ParagraphFormat.Alignment = 1
    .Range.ParagraphFormat.WordWrap = True
    .Cell(1, 1).Range.Text = "项目"
    .Cell(2, 1).Range.Text = "a"
    .Cell(3, 1).Range.Text = "b"
    .Cell(4, 1).Range.Text = "%"
    For i = 0 To 2
      sqlstr = "select * from table1"
      Set rs = Cnn.Execute(sqlstr)
      .Cell(1, i + 2).Range.Text = rs.fields(0)
      .Cell(2, i + 2).Range.Text = rs.fields(1)
      .Cell(3, i + 2).Range.Text = rs.fields(2)
    Next
  End With

[LWMWORK]

sqlstr = "select * from table1"
Set rs = Cnn.Execute(sqlstr)
For i = 0 To 2
.Cell(1, i + 2).Range.Text = rs.fields(0)
.Cell(2, i + 2).Range.Text = rs.fields(1)
.Cell(3, i + 2).Range.Text = rs.fields(2)
rs.movenext
Next

[chinaboyzyq]

up~