Word文書での整理の仕方について（３）

明日になったら、いや、思いついたら
すぐにでも手を加えるが一応現在の状況。
Microsoft　Word　マクロ有効文書として保存する。
マクロは（現時点の最終形だが）

Option Explicit
                                                                                         ' +-------------------+
                                                                                         ' | 　保存名称
                                                                                         ' +-------------------+
Sub 選択した文字列の名前のファイルを保存()
'
     Dim myTEXT          As String
     Dim myDATE          As String
'
     myDATE = Format(Date, "yyyymmdd") & "_"                                   '日付SET
     myTEXT = Selection.Text                                                                  '選択中の文字列
'
     With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
         .Range.Fields.Add Range:=.Range, Type:=wdFieldFileName       'ファイル名
         .Range.InsertBefore Text:=myDATE & myTEXT                            '文字列の入力
         .Range.ParagraphFormat.Alignment = wdAlignParagraphLeft    '左揃え
         .Range.Underline = wdUnderlineSingle                                       '下線
    End With
'
    With Application.FileDialog(msoFileDialogSaveAs)
          .InitialFileName = myDATE & myTEXT                                        'ファイル名の設定
         If .Show = False Then
             Exit Sub                                                                                    'キャンセル
         Else
             .Execute                                                                                    '保存
         End If
    End With
'
End Sub

となった。
タイトルを選択しておいてマクロを実行すると

20210425_XXXXXXXXXXXXXXXというファイル名で保存してくれる。