Преглед садржаја
Сачувај као
Овај Ворд макро ће сачувати АцтивеДоцумент са новим именом датотеке које укључује тренутно време:
Суб СавеМевитхДатеНаме () 'чува активни документ у тренутној фасцикли као филтрирани ХТМЛ и назван према тренутном времену Дим стрТиме Ас Стринг стрТиме = Формат (Сада, "хх-мм") АцтивеДоцумент.СавеАс Име датотеке: = АцтивеДоцумент.Патх & "\" & стрТиме, ФилеФормат: = вдФорматФилтередХТМЛ Енд Суб
Креирајте и сачувајте
Овај ВБА макро ће креирати нови документ и сачувати га користећи тренутни датум и време:
Суб ЦреатеАндСавеАс () 'ствара нови документ и чува као филтрирани хтмл [У подразумеваној фасцикли и назван према тренутном времену] Дим стрТиме Ас Стринг Дим стрПатх Ас Стринг Дим оДоц Као документ стрПатх = АцтивеДоцумент.Патх & Апплицатион.ПатхСепаратор стрТиме = Формат (Сада, "гггг-мм-дд хх-мм") Поставите оДоц = Доцументс.Адд 'креирајте нови документ и доделите га променљивој оДоц' упишите неки текст у нови документ позивајући се на њега користећи оДоц променљиву оДоц.Ранге.ИнсертБефоре "Посетите хттпс://еасиекцел.нет/вба-цоде-либрари" оДоц.СавеАс ФилеНаме: = стрПатх & стрТиме, ФилеФормат: = вдФорматФилтередХТМЛ оДоц.Цлосе вдДоНотСавеЦхангес 'цлосе доц Енд Суб
Сачувај као ПДФ
Овај макро ће сачувати Ворд документ као ПДФ:
Суб МацроСавеАсПДФ () 'макро чува пдф или у истој фасцикли у којој је активан документ или у фасцикли докумената ако датотека још није сачувана' Дим стрПатх Ас Стринг Дим стрПДФнаме Ас Стринг стрПДФнаме = ИнпутБок ("Унесите име за ПДФ", "Назив датотеке "," екампле ") Иф стрПДФнаме =" "Тада је" корисник обрисао текст из поља за унос, додај подразумевано име стрПДФнаме = "пример" Крај "Ако је стрПатх = АцтивеДоцумент.Патх Ако је стрПатх =" "Онда 'доц још није сачуван стрПатх = Опције. ДефаултФилеПатх (вдДоцументсПатх) & Апплицатион.ПатхСепаратор Остало 'само додајте \ на крају стрПатх = стрПатх & Апплицатион.ПатхСепаратор Енд Иф АцтивеДоцумент.ЕкпортАсФикедФормат ОутпутФилеНаме: = _ стрПатх & стрПДФнаме & ".пдфЕкпорт, _ Екпорт: _Фпорт = Фалсе, _ ОптимизеФор: = вдЕкпортОптимизеФорПринт, _ Опсег: = вдЕкпортАллДоцумент, _ ИнцлудеДоцПропс: = Труе, _ Цреате Боокмаркс: = вдЕкпортЦреатеВордБоокмаркс, _ БитмапМиссингФонтс: = Труе Енд Суб
Ова функција ће такође сачувати било који Ворд документ као ПДФ:
Под МацроСавеАсПДФвПараметерс (Опционално стрПатх Ас Стринг, Оптионал стрФиленаме Ас Стринг) 'стрПатх, ако је прослеђен, мора укључивати сепаратор путање ["\"] Иф стрФиленаме = "" Затим стрФиленаме = АцтивеДоцумент.Наме Крај Иф' издвојите само назив датотеке без наставка Ако је ИнСтр (1, стрФиленаме, ".")> 0 Затим стрФиленаме = Лево $ (стрФиленаме, ИнСтрРев (стрФиленаме, ".") - 1) Енд Иф Иф стрПатх = "" Тхен Иф АцтивеДоцумент.Патх = "" Онда 'доц није још сачувано, користићемо подразумевану путању стрПатх = Оптионс.ДефаултФилеПатх (вдДоцументсПатх) & Апплицатион.ПатхСепаратор Остала 'путања коришћења активног документа стрПатх = Оптионс.ДефаултФилеПатх (вдДоцументсПатх) & Апплицатион.ПатхСепаратор Енд Иф Енд Иф Он Еррор ГоТо ЕКСИТЕк АцтивеКс ОутпутФилеНаме: = _ стрПатх & стрФиленаме & ".пдф", _ ЕкпортФормат: = вдЕкпортФорматПДФ, _ ОпенАфтерЕкпорт: = Фалсе, _ ОптимизеФор: = вдЕкпортОптимизеФорПринт, _ Опсег: = вдЕкпортАллДоДознаци _ БитмапМиссингФон тс: = Потпуни излаз Суб ЕКСИТХЕРЕ: МсгБок "Еррор:" & Ерр.Нумбер & "" & Ерр.Десцриптион Енд Суб
Можете унети путању до датотеке и назив датотеке да бисте назначили коју датотеку желите да сачувате као ПДФ:
Суб ЦаллСавеАсПДФ () Позовите МацроСавеАсПДФвПараметерс ("ц:/Доцументс", "екампле.доцк") Крај Суб
