У овом чланку ћемо створити макро за отварање ворд документа.
Да бисмо отворили ворд документ, навешћемо пуну путању до документа у текстуалном оквиру на главном листу. Након што наведете пуну путању, кликните на дугме „Пошаљи“ да бисте извршили макро.
Објашњење кода
Затамните ВДАпп као Ворд.Апплицатион
Горњи код се користи за декларисање објекта речи апплицатион.
Подесите ВДАпп = ЦреатеОбјецт ("ворд.Апплицатион")
Горњи код се користи за креирање новог објекта речи апплицатион. Ворд апликација ће почети да ради, али подразумевано неће бити видљива.
ВДАпп.Висибле = Тачно
Горњи код се користи да учини прозор апликације реч видљивим.
Подесите ВДДоц = ВДАпп.Доцументс.Опен (Име датотеке)
Горњи код се користи за отварање речи доцумент.
Подесите ВДДоц = Ништа
Подесите ВДАпп = Ништа
Горњи код се користи за ослобађање меморије коју заузима објект.
Молимо следите доле за код
Под ОпенингВордФиле () 'Декларисање променљивих Затамни назив датотеке као низ Затамни ВДАпп као Ворд.Апликација Затамни ВДДоц као Ворд.Доцумент' Добијање назива датотеке из текстуалног оквира Име датотеке = Табеле ("Маин"). ТектБок1.Валуе 'Креирање објекта речи скуп апликација ВДАпп = ЦреатеОбјецт ("ворд.Апплицатион") 'Омогућавање видљивости речи апликација ВДАпп.Висибле = Труе' Отварање потребног документа речи Поставите ВДДоц = ВДАпп.Доцументс.Опен (Име датотеке) 'Ослободите меморију коју користи променљива објекта Сет ВДДоц = Ништа није подешено ВДАпп = Ништа није завршено Суб
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште
