如何在vb里调用word，把字符自动生成一个word文件，而且要定义用繁体打开。

Question

如题。

Answer 1

set wordApp=CreateObject("Word.Application") ''创建word应用程序，这句话打开word应用程序
set wordDoc=wordApp.Documents.Add  ''在打开的应用程序中添加一个新文档With
  .visible=true
  .Active
End Withwith wordDoc.ActiveWindow.Application.Selection
        .Font.Name = "Arial"
        .Font.Size = 9
        .TypeText Text:=strInfo    
end with你也可以试试word2000中的工具中的宏，录制一个新宏，它可以记录从录制开始到结束过程中你对word的操作，之后用宏中的visual basic 编辑器查看.

Answer 2

set wordApp=CreateObject("Word.Application") ''创建word应用程序，这句话打开word应用程序
set wordDoc=wordApp.Documents.Add  ''在打开的应用程序中添加一个新文档With
  .visible=true
  .Active
End Withwith wordDoc.ActiveWindow.Application.Selection
        .Font.Name = "Arial"
        .Font.Size = 9
        .TypeText Text:=strInfo    
end with你也可以试试word2000中的工具中的宏，录制一个新宏，它可以记录从录制开始到结束过程中你对word的操作，之后用宏中的visual basic 编辑器查看.