Ворд ВБА - Макро за отварање Ворд документа

Отворите Ворд документ

Овај Ворд ВБА макро ће отворити Ворд документ из наведеног директоријума:

Суб ОпенДоц () Дим стрФиле Ас Стринг стрФиле = "ц: \ Усерс \ Ненад \ Десктоп \ Тест ПМ.доцм" 'промените путању ваше датотеке Ако Дир (стрФиле) "" Онда' Прво проверавамо да ли документ уопште постоји на дата лоцатион Доцументс.Опен стрФиле Енд Иф Енд Суб

Сада можете да ступите у интеракцију са новоотвореним документом са објектом АцтивеДоцумент. Овај код ће додати неки текст у документ.

АцтивеДоцумент.Ранге (0, 0) .Тект = "Додај текст"

Отворите документ за променљиву

Такође можете отворити Ворд документ, одмах га додељујући променљивој:

Суб ОпенДоц () Дим стрФиле Ас Стринг Дим оДоц као Доцумент стрФиле = "ц: \ Усерс \ Ненад \ Десктоп \ Тест ПМ.доцм" 'промените путању ваше датотеке Ако Дир (стрФиле) "" Онда' Прво проверавамо да ли је документ уопште постоји на датој локацији Постави оДоц = Документи.Отвори стрФиле Енд Енд Иф Енд Суб

Омогућава вам интеракцију са документом преко променљиве оДоц .:

оДоц.Ранге (0, 0) .Тект = "Додај текст"

Генерално, најбоља пракса је да отворите променљиву, што вам даје могућност да се лако позивате на документ у било ком тренутку.

Отворите Ворд документ из програма Екцел

Ова ВБА процедура ће отворити Ворд документ из другог програма МС Оффице (нпр. Екцел):

Суб ОпенДоцФромЕкцел () Дим вордапп Дим стрФиле Ас Стринг стрФиле = "ц: \ Усерс \ Ненад \ Десктоп \ Тест ПМ.доцм" Сет вордапп = ЦреатеОбјецт ("ворд.Апплицатион") вордапп.Доцументс.Опен стрФиле вордапп.Висибле = Труе Енд Суб
wave wave wave wave wave