ご質問の内容と違いますが、一行目を取って、直(じか）にファイル名とするのは、少し問題が残るような気がしましたので、以下のようにしてみました。 Word 2007 と下位バージョンとは挙動が違うようなので、自信が持てませんが、基本的には、Paragraph は、段落、Sentence は、文で、動作が変わってよいはずですが、変わらないような気がします。一応、安全措置をしました。 最初の1行目というのは、いろいろありますが、ファイル名の制限として、半角253のLong Name 設定にしました。 ファイル名の不要な文字に対しては、本来、Win32APIを使うべきかもしれませんが、大げさになるので止めました。不要なコードは、加えてください。 '// Sub UseSaveAsMethod() Dim nm As String Dim n as Variant nm = ActiveDocument.Paragraphs(1).Range.Sentences(1).Text For Each n In Array(9, 10, 11, 12, 13, 22) 　 nm = Replace(nm, Chr(n), "")　'不要な文字の除去 Next With Application.FileDialog(msoFileDialogSaveAs) 　.InitialFileName = MidB(nm, 1, 253) 'ファイル名の最大値まで 　.Show 　.Execute End With End Sub