VBA定义打开Word文件的过程。建立Word应该对象及文档对象,并打开文件-->tmtony转

WTM1

'定义打开Word文件的过程。建立Word应该对象及文档对象,并打开文件。

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控件,怎办？