从Excel VBA启动Word文件
在本文中,我们将创建一个宏来打开Word文档。
要打开Word文档,我们将在主表上的文本框中指定文档的完整路径。指定完整路径后,单击“提交”按钮以执行宏。
代码说明
WDApp作为Word.Application变暗上面的代码用于声明word应用程序的对象。
设置WDApp = CreateObject(“ word.Application”)
上面的代码用于创建单词application的新对象。 Word应用程序将开始运行,但默认情况下将不可见。
WDApp.Visible = True以上代码用于使单词应用程序窗口可见。
设置WDDoc = WDApp.Documents.Open(FileName)
上面的代码用于打开word文档。
设置WDDoc = Nothing设置WDApp = Nothing上面的代码用于释放对象占用的任何内存。
请遵循以下代码
Sub OpeningWordFile() 'Declaring variables Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document 'Getting the file name from the text box FileName = Sheets("Main").TextBox1.Value 'Creating object of the word application Set WDApp = CreateObject("word.Application") 'Making visible the word application WDApp.Visible = True 'Opening the required word document Set WDDoc = WDApp.Documents.Open(FileName) 'Release the memory used by object variable Set WDDoc = Nothing Set WDApp = Nothing End Sub
如果您喜欢此博客,请在Facebook和Facebook上与您的朋友分享。
我们很希望收到您的来信,请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]