vb中如何生成一个word文档

你可以使用Word.Application对象的方法和属性启动Word并使之最大化，并利用它的Documents属性的Add方法打开制定文件，要对文件进行其他操作，可以参考Word.Document的相关文档。如下例：Private Sub Command1_Click()    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    
    Set oWord = New Word.Application
    
    oWord.Visible = True
    
    With oWord
        .WindowState = wdWindowStateMaximize        
        Set oDoc = .Documents.Add(App.Path & "\file.doc")
    End WithEnd Sub详情请参阅：
Application Object
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D6/S5B4A5.asp
Documents Property
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D6/S5B4A5.asp
Document Object
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D6/S5B4A5.asp

解决方案 »

  1.   

    你可以在OFFICE的安装盘上找到VBA的信息，你自己用WORD把所需要完成的制表操作记录下来，然后结合VBA的帮助看看就知道了，
      

  2.   

    在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 中。 
      

  3.   

    运用Application 对象 在用户启动一个Word 时段的同时，也创建了一个Application对象。用户可以使用Application 对象的属性或方法来控制或返回应用程序范围内的特性、控制应用程序窗口的外观或者调整Word 对象模型的其他方面。可以使用Application属性来返回Word Application 对象。以下的示例从视图状态切换到打印预览状态。 Application. PrintPreview = True Application对象的一些属性控制着应用程序的外观。例如，如果DisplayStatusBar属性为True(真)，那么状态栏是可见的，如果WindowState属性值为wdWindowStateMaximize，那么应用程序窗口处于最大化状态。以下的示例设置了屏幕上应用程序窗口的大小。 With Application .WindowState = wdWindowStateNormal .Height = 450 .Width = 600 End With Application对象的属性也可以访问处于对象层次中较低级的对象，比如Windows集合(代表了当前所有打开的窗口)和Documents集合(代表了当前所有打开的文档)。用户可以使用属性，有时候也叫做访问者，从对象层次中最高一级的Application对象向下访问到较低级的对象(Document对象、Window对象、 Selection对象等等)。可以使用以下两个示例之一来打开MyDoc.doc。 Application. Documents. Open FileName :="C:\DOCS\MYDOC.DOC" Documents. Open FileName :="C:\DOCS\MYDOC.DOC" 因为Document属性是共用的，所以Application属性是可选的。共用属性和方法无需Application 对象限定符。要在“对象浏览器”中浏览共用属性和方法的列表，可以在“类别”栏中单击“<共用>”。共用项就会列在“成员”栏中。 注释 Option对象包含了控制Word 共用行为的一些属性。许多Option对象的属性对应于Option对话框中的各项(Tools 菜单)。使用Application 对象的Option属性可以返回Option 对象。以下的示例设置了三个应用程序范围内的选项(因为Option属性是共用的，所以在本示例中无需Application属性)。 With Application.Options .AllowDragAndDrop = True .ConfirmConversions = False .MeasurementUnit = wdPoints End With 
    运用Document对象 当用户在Word中打开或创建一个文件的同时，也创建了一个Document对象。用户可以使用Document对象或Documents集合的属性或方法来打开、创建、保存、激活或者关闭文件。 返回Document对象 用户可以使用语法Documents (index)来返回作为一个Document对象的任何打开的文档，在这里index是该文档的名字或索引号。在以下的示例中，变量myDoc包含一个Document对象，该对象代表名为“Report.doc”的打开的文档。 Set myDoc = Documents ("Report.doc") 索引号代表了文档在Documents集合中的位置。在以下的示例中，变量myDoc包含了一个Document对象，该对象代表Documents集合中的第一个文档。 Set myDoc = Documents(1) 注释 因为当用户添加或关闭多个文档时，某个特定文档的索引号会发生改变，所以最好使用文档的名字来对Documents集合中的Document对象进行索引。 除了通过文档的名字或索引号来引用文档，还可以使用ActiveDocument属性来返回一个引用活动文档(当前着眼的文档)的Document对象。以下的示例显示产活动文档的名字；如果没有打开的文档，则该示例显示一条消息。 If Documents. Count >= 1 Then MsgBox ActiveDocument. Name Else MsgBox "No documents are open" End If 打开文档 要打开一个已经存在的文档，可以使用Open方法。Open方法应用于通过Document属性返回的Documents集合。以下的示例打开了文件Test.doc(从当前文件夹)并且启动了更改跟踪。 Set myDoc = Documents. Open (FileName :="TEST.DOC") myDoc. TrackRevisions = True 注意到在上例中Open方法的返回值是一个Document对象，该对象表示刚被打开的文档。在此示例中的文件名不包含路径；因此，是假定了该文件在当前的文件夹中。但这会导致出现一个运行时错误，因为一旦用户创建了与当前文件夹不同的文件夹，Visual Basic就再也找不到该文件了。但是，用户可以通过指明完整的路径，就如同下表所示的那样，来确保打开正确的文件。 操作系统 
    FileName参数 Windows 
    FileName :="C:\Documents\Temporary File.doc" Macintosh 
    FileName :="Hard Drive:Documents:Temporary File" 
    如果用户的宏只用于一种文件系统，那么可以在FileName参数中指定路径分隔符(“\”或者“:”)，就如同上表所示的那样。以下示例显示了与文件系统无关的代码，可以用来打开Sales.doc，并且假定Sales.doc已经保存在Word 的程序文件夹中。 programPath = Options. DefaultFilePath (wdProgramPath) Documents. Open FileName :=programPath & Application. PathSeparator & "SALES.DOC" PathSeparator属性返回当前文件系统(例如，“\”用于MS-DOS/Windows的文件分配表，或者“:”用于Macintosh)的正确的文件分隔符。DefaultFilePath属性返回文件的位置，比如文档所在文件夹的路径、程序文件夹或者当前文件夹。 如果所指定的文件名既没有在当前文件夹(如果没有指定路径)出现也没有在指定的文件夹(如果指定了路径)中出现，那么就会发生错误。以下的示例使用FileSearch对象的属性和方法来判断名为“Test.doc”的文件是否存在于用户的默认文档文件夹中。如果找到了该文件(FoundFiles. Count = 1)，那么就打开它；否则，显示一条消息。 defaultDir = Options. DefaultFilePath (wdDocumentsPath) With Application. FileSearch .FileName = "Test.doc" .LookIn = defaultDir .Execute If .FoundFiles. Count = 1 Then Documents. Open FileName :=defaultDir & Application. PathSeparator & "TEST.DOC" Else MsgBox "Test.doc file was not found" End If End With 也可以允许用户选择要打开的文件，而不是定死Open方法的FileName参数值。如同以下示例所示的那样，可以使用带有wdDialogFileOpen常量的Dialogs属性来返回一个Dialog 对象，该对象表示“打开”对话框(在“文件”菜单中)。Show方法可以显示并且执行在“打开”对话框中完成的动作。 Dialogs (wdDialogFileOpen). Show Display 方法只是用来显示特定的对话框而不作任何更多的操作。以下的示例检查Display方法的返回值。如果用户单击“确定”来关闭对话框，返回值－1并且打开所选择的文件，该文件的名字保存在变量fSelected中。 Set dlg = Dialogs (wdDialogFileOpen) aButton = dlg. Display fSelected = dlg. Name If aButton = -1 Then Documents. Open FileName :=fSelected End If 要对如何显示Word对话框作进一步了解，请参阅“帮助”中的“显示内置Word 对话框”一节的内容。 要判断某个特殊的文档是否打开，可以使用一条For Each…Next语句来对Documents集合进行列举。如果名为“Sample.doc”的文档已经被打开了，以下的示例就激活它；如果它尚未被打开，则该示例会打开它。 docFound = True For Each aDoc In Documents If InStr (1, aDoc. Name, "sample.doc", 1) Then aDoc. Activate Exit For Else docFound = False End If Next aDoc If docFound = False Then Documents. Open _ FileName :="C:\Documents\Sample.doc" 可以使用Count属性来确定当前打开文档的数目。Count属性应用于Documents集合，可以使用Document属性返回该集合。如果没有已打开的文档，以下的示例会显示一条消息。 If Documents. Count = 0 Then MsgBox "No documents are open" 创建和保存文档 要创建一个新文档，可以对Documents集合应用Add 方法。以下的示例创建了一个新文档。 Documents. Add Add方法返回了仅作为一个Document对象而创建的文档。当用户添加一个文档时，可以设置Add 方法的返回值是一个对象变量，以便用户可以在自己的代码中引用该新文档。以下的示例创建了一个新文档，并且设置它的上边距为1.25英寸。 Dim myDoc As Document Set myDoc = Documents. Add myDoc. PageSetup. TopMargin = InchesToPoints(1.25) 第一次保存新文档时，可以随Document对象使用SaveAs方法。以下的示例将名为“Temp.doc”的活动文档保存在当前文件夹中。 ActiveDocument. SaveAs FileName :="Temp.doc" 在文档被保存之后，用户可以使用它的文档名来调整Document对象。以下的示例创建了一个新文档并且立刻把它保存为“1996 Sales.doc”。然后，该示例使用新名字来作Documents集合中的该文档的索引，并且向该文档添加一张表格。 Documents. Add.SaveAs FileName :="1996 Sales.doc" Documents ("1996 Sales.doc").Tables.Add _ Range :=Selection. Range, NumRows :=2, NumColumns :=4 要保存对一个已经存在的文档所进行的更改，可以随同Document对象使用Save方法。以下的指令保存了名为“Sales.doc”的文档。 Documents ("Sales.doc"). Save 如果用户随同一个尚未保存的文档或模板使用Save方法，将会显示“另存为”对话框来提示用户为该文件取名。要保存所有打开的文档，可以对Documents集合应用Save方法。以下的示例保存了所有打开的文档，但没有提示用户为文件取名。 Documents. Save NoPrompt :=True 
      

  4.   

    我想 lihonggen0(李洪根,用VB，标准答案来了)兄回答的基本正确，你或许没有找到适合自己环境的解决办法，本人再来添上两句：
        dim oWord as word.application
        Set oWord = New Word.Application
        oWord.Visible = True
        oWord.WindowState = wdWindowStateMinimize
        oWord.Documents.Add
        with oWord
           .Selection.TypeText Text:="***********"
           .Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
           .Selection.Font.Name = "宋体"
           .Selection.Font.Size = 18
           .Selection.Font.Bold = wdToggle
           .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
           .......(这里可能比较麻烦一点，可以从word 里的宏移植过来）
        end with
        oWord.Documents.Close
        oWord.Quit
      

  5.   

    我按照mypiip兄的方法一成功解决此问题谢谢,非常感谢李兄大力支持