В этой статье мы создадим макрос для открытия текстового документа.

Чтобы открыть текстовый документ, мы укажем полный путь к документу в текстовом поле на основном листе. После указания полного пути нажмите кнопку «Отправить», чтобы выполнить макрос.

ArrowMainSheet

Объяснение кода

Dim WDApp As Word.Application Вышеупомянутый код используется для объявления объекта словарного приложения.

Установите WDApp = CreateObject («word.Application»)

Вышеупомянутый код используется для создания нового объекта приложения Word. Приложение Word запустится, но по умолчанию оно не будет отображаться.

WDApp.Visible = True Приведенный выше код используется для отображения окна приложения Word.

Установите WDDoc = WDApp.Documents.Open (FileName)

Приведенный выше код используется для открытия текстового документа.

Set WDDoc = Nothing Set 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]