Я создаю макрос в Ворде.
Мне нужно, чтобы то, что копируется командой Selection.Copy подставлялось вместо цифр 31956324 в названии файла.
Либо, чтобы названием была первая строка файла, либо вторая строка файла.
Sub Макрос2()
'
' Макрос2 Макрос
'
'
Selection.Copy
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\ПК\Downloads\FF\Подписанные заявления\31956324 - СК_Приложение к договору физлицо Тинькофф.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
ActiveWindow.Close
End Sub
Sub Макрос2()
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\ПК\Downloads\FF\Подписанные заявления\" & Selection.Text & _
" - СК_Приложение к договору физлицо Тинькофф.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
ActiveWindow.Close
End Sub
Класс!
Все работает как надо.
СПАСИБО