请问如何在vb中用程序实现对word文档的修改、保存、打印？在线等待，谢谢

Question

word文档的内容要让人看到，用vb修改时最好能从vb中将文档打开，让人看到文档的内容。
谢谢大家的帮助！！！！！！！！！！

Answer 1

前几天，我做了一个.rft(rich text format)的，和word的差不多啊，你要不？留言，我待会回来看看拉：）

Answer 2

好啊我要啊。。你给我发过来啊谢谢你了。。
我的邮箱是：
      [email protected]
谢谢

Answer 3

Private Sub CmdChangeFont_Click()On Error GoTo errhandler
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
CommonDialog1.ShowFont
Me.RichTextBox1.SelFontName = Me.CommonDialog1.FontName
Me.RichTextBox1.SelFontSize = Me.CommonDialog1.FontSize
Me.RichTextBox1.SelColor = Me.CommonDialog1.Color
Me.RichTextBox1.SelBold = Me.CommonDialog1.FontBold
Me.RichTextBox1.SelItalic = Me.CommonDialog1.FontItalic
Me.RichTextBox1.SelUnderline = Me.CommonDialog1.FontUnderline
Me.RichTextBox1.SelStrikeThru = Me.CommonDialog1.FontStrikethru
Exit Sub  
errhandler:
   Exit Sub
End SubPrivate Sub CmdLoadFile_Click()
   On Error GoTo errhandler
 
  CommonDialog1.Flags = cdlOFNHideReadOnly
  CommonDialog1.Filter = "Rich Text Files ( *.rtf)|*.rtf"
  CommonDialog1.FilterIndex = 2
  CommonDialog1.ShowOpen
  Me.RichTextBox1.LoadFile Me.CommonDialog1.FileName
 Exit Sub
  
errhandler:
   Exit Sub
End SubPrivate Sub CmdSaveFile_Click()
  On Error GoTo errhandler
  CommonDialog1.Filter = "Rich Text Files ( *.rtf)|*.rtf"
  CommonDialog1.Flags = cdlOFNHideReadOnly
  CommonDialog1.ShowSave
  Me.RichTextBox1.SaveFile Me.CommonDialog1.FileName
  Exit Suberrhandler:
   Exit Sub
End SubPrivate Sub CmdPrint_Click()
Dim beginPage, endPage, numCopies, orientation, i
CommonDialog1.Flags = cdlOFNHideReadOnly
On Error GoTo errhandler
CommonDialog1.ShowPrinter
beginPage = CommonDialog1.FromPage
endPage = CommonDialog1.ToPage
numCopies = CommonDialog1.Copies
orientation = CommonDialog1.orientation
For i = 1 To numCopies
Next
Exit Suberrhandler:
  Exit Sub
End SubPrivate Sub CmdExit_Click()
End
End Sub

Answer 4

我的文档里面都是一些表格，目的是让人看到表格，并填写，然后保存打印，但这些工作都要在vb中实现。点击一个command时，在vb中显示文档，然后，用户修改、保存、打印。谢谢回复。。

Answer 5

可以去看Word的帮助！上面疯狂多

Answer 6

Dim WordApp As Object
  Dim TableA
  Dim I, J As Integer
  Set WordApp = CreateObject("Word.Application")
  With WordApp
    .Documents.Add
    .Visible = True
    .Activate
    .Selection.ParagraphFormat.Alignment = 1
    .Selection.TypeText Text:="表1:大家好"
    Set TableA = .ActiveDocument.Tables.Add(.Selection.Range, 16, 5)
    TableA.cell(1, 1).Range.insertafter "A1"
    TableA.cell(1, 2).Range.insertafter "A2"
    TableA.cell(1, 3).Range.insertafter "A3"

Answer 7

楼上的方法我知道，但是这样好像是打开了word了，我是想从vb的界面中直接阅读、修改、打印、保存，打开的是word文档，但是是在vb中显示，不打开word程序。
可不可以用ole那样的方式，让他从里面显示出来，而且也可以修改添加，但是我不知道，ole如何保存修改。

Answer 8

使用RichTextBox控件。使用真文本方式打开，存入的文档也是真文本格式，然后随时将其转存为Word就可以了。

Answer 9

用OLE工具，在OLE中嵌入WORD的编辑器，打开时直接用OLE中的编辑器打开就可以了
其他的编辑保存工作由编辑器完成，不过这个方法我没试过，你自己试试，应该可行

Answer 10

在 VB 中控制 Word   
　           
Word 提供了一个 Word 对象， 通过在 “引用” 中的该对象， 可以实现对 Word 的控制。以下的代码演示了执行 WordBasic 语句，该段代码是动态引用对象，无须在工程中引用Word 对象。Dim wd As Object
Set wd = CreateObject ("Word.Basic")
wd.FileNewDefault
wd.FontSize 20
wd.Insert "Hello, World"
wd.FileSaveAs "Hello.Doc"
wd.FileClose
Set wd = Nothing执行后，将产生一个 Hello.Doc 。 一个种办法是在 Word 中调试好 WordBasic 语句后， 再发布到 VB 中。类似的处理应该也可以用在 Execl 中。