在本文中,我们将创建一个宏来打开Word文档。

要打开Word文档,我们将在主表上的文本框中指定文档的完整路径。指定完整路径后,单击“提交”按钮以执行宏。

ArrowMainSheet

代码说明

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]