VBA定義打開Word文件的過程。建立Word應(yīng)該對象及文檔對象,并打開文件-->tmtony轉(zhuǎn)

WTM1

'定義打開Word文件的過程。建立Word應(yīng)該對象及文檔對象,并打開文件。

PrivateSub OpenWordDocument(ByVal FileName AsString)

    wdApp = CreateObject("Word.Application")



    wdApp.Documents.Open(FileName)

    wdDoc = wdApp.ActiveDocument

    wdDoc.ActiveWindow.DocumentMap = False

    wdApp.Visible = True

    IsWordRunning = True

EndSub


PrivateSub OpenWordDocument(ByVal FileName AsString)

    wdApp = CreateObject("Word.Application")



    wdApp.Documents.Open(FileName)

    wdDoc = wdApp.ActiveDocument

    wdDoc.ActiveWindow.DocumentMap = False

    wdApp.Visible = True

    IsWordRunning = True

EndSub
[em19]

andy

如果打開的是窗體里的綁定ole控件,怎辦？