Из текста в название файла

Автор Посетитель 25.03.2023, 24 марта 2023, 13:40

Посетитель 25.03.2023

Я создаю макрос в Ворде.
Мне нужно, чтобы то, что копируется командой 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

Посетитель 25.03.2023

Класс!
Все работает как надо.

СПАСИБО