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

こんなの作ってみた。

Option Explicit
                                                                                               ' +-------------------+
                                                                                               ' | 　保存名称
                                                                                               ' +-------------------+
Sub 選択した文字列の名前のファイルを保存()
'
     Dim myTEXT         As String
     Dim myDATE         As String
'
     myDATE = Format(Date, "yyyymmdd") & "_" 　              '日付SET
     myTEXT = Selection.Text '選択中の文字列
     With Application.FileDialog(msoFileDialogSaveAs)
          .InitialFileName = myDATE & myTEXT                        'ファイル名の設定
          If .Show = False Then
             Exit Sub                                                                    'キャンセル
          Else
             .Execute '保存
          End If
     End With
'
End Sub

※桁そろえや改行は癖だから（COBOL Programerならでは）

狙ってた方向ではあるが、やっぱり

「名前を付けて保存」→再度開く→ヘッダーフィールドの更新→上書き保存
となる、せざるをえない。

と、なるとフィールド更新は止めて、マクロで突っ込むか？