сохранение и конвертацией

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » сохранение и конвертацией (сохранение файла word в указанную папку с конвертацией в PDF)

DreOne

Дата: Среда, 20.05.2015, 21:19 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте уважаемые форумчане.
есть задача автоматизировать сохранение коммерческого предложения(файл word) в указанной папке с исходным именем в формате PDF.
Коммерческих в день больше сотни.
Есть ли возможность сделать эти операции по нажатию двух клавиш?
Заранее спасибо.

Саморазвитие - это всё...

Ответить

DreOne

Дата: Четверг, 21.05.2015, 01:07 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

сделал по простому

[vba]

Код

Sub пдф()
'
' пдф Макрос
'сохранение документа в другой книге
'
     ActiveDocument.ExportAsFixedFormat OutputFileName:= _
         ActiveDocument.Name & ".pdf", ExportFormat:= _
         wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
         wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
         Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
         CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
         BitmapMissingFonts:=True, UseISO19005_1:=False
     ChangeFileOpenDirectory "C:\Users\Dre\Desktop\ТТК\"
End Sub

[/vba]

Прошу подкорректировать.
Сохраняется файл там где надо, вот только имя файла
"ИМЯ.docx.pdf "

как убрать ".docx" ?????

Саморазвитие - это всё...

Ответить

Страница 1 из 1
1