原來是要這樣的程式, 早說清楚嘛^^
首先先去Project->References中加入Microsoft Word x.x Object Library, 然後你就可以開始從你的程式中開啟MSWord, 一般來說開啟的程式是像下列, 你可以自己斟酌
Dim file_path As String
Set m_WordServer = New Word.Application
file_name = "你要開的doc檔"
m_WordServer.Visible = True
m_WordServer.Documents.Open FileName:=file_name, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
有了這段後MSWord就會自動開啟你要的檔, 然後你就可以開始在你的程式中打你要加入的字, VB會自己加在Word裡.
m_WordServer.Selection.TypeText Text:="你要加入的文字"
基本上這樣就ok了, 但因功能需要不同, 請自行斟酌使用
|