объеденить 2 макроса

[master-ufa]

Добрый день.
Один макрос автозамены "от Витера" проводит замену части текста во всех документах Ворд находящихся в одной папке. Очень хороший и УДОБНЫЙ.
Второй макрос сохраняет документы Ворд в ПДФ. Не удобный. Изменяет названия файлов, если в папке находятся файлы кроме Вордовских - выдает ошибку и перестает работать, ну и через клавиши - не удобно.
Вопрос: как корректно добавить второй макрос в первый, что бы после нажатия кнопки "ПУСК" запускалось сохранение файлов Ворд в ПДФ в указанной папке ?
Прошу не писать о существующих программах конвертации файлов. Требуется запуск макроса из файла Ворд.

[Дмитрий Щербаков(The_Prist)]

Добрый день.
Ничего не хочу сказать, но файл SaveDocxAsPDF пустой совсем. Ни кнопок, ни кода...
Но. Что мешает записать макрорекордером сохранение файла Word в PDF стандартными средствами и поставить эту строку в код? По сути надо найти эту строку:

Код: (vb)

oCurrDoc.Close Savechanges:=wdSaveChanges

и вставить после неё такую:

Код: (vb)

oCurrDoc.ExportAsFixedFormat Replace(ActiveDocument.FullName, ".doc", ".pdf"), wdExportFormatPDF

[master-ufa]

Добрый день.
Ничего не хочу сказать, но файл SaveDocxAsPDF пустой совсем. Ни кнопок, ни кода...

Добавил текст макроса в файл.

[master-ufa]

По сути надо найти эту строку:

Код: (vb)

oCurrDoc.Close Savechanges:=wdSaveChanges

Комментарий администратора

Не цитируйте сообщения полностью - достаточно выделить нужную фразу и нажать ЦИТИРОВАТЬ. п.п. 4.18 Правил форума

не нашел значение wdSaveChanges в макросе автозамены. Подойдет любой вариант сохранения Ворд в Пдф. в Инете из подходящих нашел только файл SaveDocxAsPDF

[Дмитрий Щербаков(The_Prist)]

не нашел значение wdSaveChanges в макросе автозамены

а как же Вы тогда хотите вносить изменения, если не нашли то, что у Вас же в коде прописано?   Вы где искали? Каковы Ваши познания VBA? Весь код замены у Вас прописан в UserForm SRFrom. Открываете код этой формы(правая кнопка мыши на форме -View Code) и там уже без проблем сможете найти приведенный мной ранее кусок:

Код: (vb)

    'Закрываем файл с сохранением изменений
    oCurrDoc.Close Savechanges:=wdSaveChanges

P.S. К слову, в приложенном коде по конвертированию ровно тот же подход применен, так что в любом случае надо вносить эти изменения.
И не цитируйте сообщения полностью - достаточно выделить нужную фразу и нажать ЦИТИРОВАТЬ. п.п. 4.18 Правил форума. Если не получается - лучше уж совсем без цитаты, а то сообщение смотрится не очень читабельно. Спасибо.

[master-ufa]

добавил в макрос
    'Закрываем файл с сохранением изменений
    oCurrDoc.Close Savechanges:=wdSaveChanges
    oCurrDoc.ExportAsFixedFormat Replace(ActiveDocument.FullName, ".docx", ".pdf"), wdExportFormatPDF
NextFile:
  Next sFilePath

выходит ошибка 5825, и останавливается процесс выполнения макроса

[Дмитрий Щербаков(The_Prist)]

Это уже мой косяк - написал ПОСЛЕ, вместо ДО. Правильнее поменять местами - иначе у нас просто нет документа, который необходимо конвертировать(собственно, об этом ошибка и говорит):

Код: (vb)

    oCurrDoc.ExportAsFixedFormat Replace(oCurrDoc.FullName, ".docx", ".pdf"), wdExportFormatPDF
    'Закрываем файл с сохранением изменений
    oCurrDoc.Close Savechanges:=wdSaveChanges
NextFile:
  Next sFilePath

P.S. Хорошо, что решили все же самостоятельно разобраться.

[master-ufa]

Спасибо. Получилось.
Для конвертации файла Ворд в Пдф достаточно одной команды (строки) - это просто чудо!
А что нужно удалить из макроса, что бы не было автозамены, а только конвертация в ПДФ по кнопке "Пуск" в выбранной папки ?

[Дмитрий Щербаков(The_Prist)]

А что нужно удалить из макроса

А это уже вопрос для другой темы. Там чуть ли не половину кода удалять надо, т.к. форма заточена под замену данных. По сути удалить придется все, начиная с этой строки:

Код: (vb)

lngJunk = oCurrDoc.Sections(1).Headers(1).Range.StoryType

до этой(включительно):

Код: (vb)

oCurrDoc.Windows(1).View.ShowFieldCodes = bShowFieldCode

Но это не точно. Создавайте отдельную тему и там озвучьте проблему. В этой теме Вы заявили проблему объединения двух кодов
У Вас же есть отдельный код конвертации - чем не устраивает?

[master-ufa]

Последний вопрос в этой теме.
Чтобы сразу конвертировать файлы формата .docx и .doc надо сделать две строки:
oCurrDoc.ExportAsFixedFormat Replace(oCurrDoc.FullName, ".docx", ".pdf"), wdExportFormatPDF
oCurrDoc.ExportAsFixedFormat Replace(oCurrDoc.FullName, ".doc", ".pdf"), wdExportFormatPDF

или в одной указать два формата:
oCurrDoc.ExportAsFixedFormat Replace(oCurrDoc.FullName, ".docx" ".doc", ".pdf"), wdExportFormatPDF

или через *
oCurrDoc.ExportAsFixedFormat Replace(oCurrDoc.FullName, ".doc*", ".pdf"), wdExportFormatPDF

[Дмитрий Щербаков(The_Prist)]

Правильнее искать позицию начала расширения:

Код: (vb)

Dim lp&
lp = instrrev(oCurrDoc.FullName,".") 'ищем позицию последней точки строки - т.е. начало расширения
'теперь берем всю строку ДО расширения и объединяем её с новым расширением - pdf
oCurrDoc.ExportAsFixedFormat Mid(oCurrDoc.FullName, 1,lp) & "pdf", wdExportFormatPDF

все эти строки надо записать вместо одной:

Код: (vb)

oCurrDoc.ExportAsFixedFormat Replace(oCurrDoc.FullName, ".docx", ".pdf"), wdExportFormatPDF

[master-ufa]

Спасибо. Всё получилось.