oCurrDoc.Close Savechanges:=wdSaveChanges
oCurrDoc.ExportAsFixedFormat Replace(ActiveDocument.FullName, ".doc", ".pdf"), wdExportFormatPDF
'Закрываем файл с сохранением изменений oCurrDoc.Close Savechanges:=wdSaveChanges
oCurrDoc.ExportAsFixedFormat Replace(oCurrDoc.FullName, ".docx", ".pdf"), wdExportFormatPDF 'Закрываем файл с сохранением изменений oCurrDoc.Close Savechanges:=wdSaveChangesNextFile: Next sFilePath
lngJunk = oCurrDoc.Sections(1).Headers(1).Range.StoryType
oCurrDoc.Windows(1).View.ShowFieldCodes = bShowFieldCode
Dim lp&lp = instrrev(oCurrDoc.FullName,".") 'ищем позицию последней точки строки - т.е. начало расширения'теперь берем всю строку ДО расширения и объединяем её с новым расширением - pdfoCurrDoc.ExportAsFixedFormat Mid(oCurrDoc.FullName, 1,lp) & "pdf", wdExportFormatPDF
oCurrDoc.ExportAsFixedFormat Replace(oCurrDoc.FullName, ".docx", ".pdf"), wdExportFormatPDF