В тази статия ще създадем макрос за отваряне на word документ.
За да отворите документ на Word, ще посочим пълния път на документа в текстовото поле на основния лист. След като посочите пълния път, щракнете върху бутона „Изпращане“, за да изпълните макроса.
Обяснение на кода
Затъмнете WDApp като Word.Приложение
Горният код се използва за деклариране на обект на думата application.
Задайте WDApp = CreateObject ("word.Application")
Горният код се използва за създаване на нов обект на думата приложение. Приложението Word ще започне да работи, но по подразбиране няма да се вижда.
WDApp.Visible = Вярно
Горният код се използва, за да стане видим прозорецът на приложението за думи.
Задайте WDDoc = WDApp.Documents.Open (FileName)
Горният код се използва за отваряне на думата документ.
Задайте WDDoc = Нищо
Задайте WDApp = Нищо
Горният код се използва за освобождаване на всяка памет, заета от обекта.
Моля, следвайте кода по -долу
Sub OpeningWordFile () "Деклариране на променливи Dim FileName като низово Dim Dim WDApp като Word. Приложение Dim WDDoc като Word.Document" Получаване на името на файла от текстовото поле FileName = Sheets ("Main"). TextBox1.Value "Създаване на обект на думата набор от приложения WDApp = CreateObject ("word.Application") 'Осъществяване на видимост на приложението за думи WDApp.Visible = True' Отваряне на необходимия документ с думи Set WDDoc = WDApp.Documents.Open (FileName) 'Освобождаване на паметта, използвана от променливата на обекта Set WDDoc = Нищо не е зададено WDApp = Нищо не завършва Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта