Document.SaveAs2 メソッド (Word)

指定した文書を新しい名前または形式で保存します。 このメソッドの引数は [名前を付けて保存] ダイアログ ボックス ([ファイル] タブ) のオプションに対応します。

構文

expression. SaveAs2( _FileName_ , _FileFormat_ , _LockComments_ , _Password_ , _AddToRecentFiles_ , _WritePassword_ , _ReadOnlyRecommended_ , _EmbedTrueTypeFonts_ , _SaveNativePictureFormat_ , _SaveFormsData_ , _SaveAsAOCELetter_ , _Encoding_ , _InsertLineBreaks_ , _AllowSubstitutions_ , _LineEnding_ , _AddBiDiMarks_ , _CompatibilityMode_ )

Document オブジェクトを返 す式

パラメーター

名前 必須 / オプション データ型 説明
FileName 省略可能 Variant 文書の名前を指定します。 既定値は、現在のフォルダーおよびファイル名です。 文書がまだ 1 回も保存されていない場合、既定の名前 (たとえば、Doc1.doc) が使用されます。 指定したファイル名を持つドキュメントが既に存在する場合は、ユーザーにメッセージを表示せずにドキュメントが上書きされます。
FileFormat 省略可能 Variant 文書の保存形式を指定します。 使用できる定数は、次に示す WdSaveFormat クラスの定数のいずれかです。 別の形式で文書を保存するには、 FileConverter オブジェクトの SaveFormat プロパティに適切な値を指定します。
LockComments 省略可能 Variant True を指定すると、コメント用の文書をロックします。 既定値は False です。
Password オプション Variant ドキュメントを開くパスワード文字列。 下記の「備考」を参照してください。
AddToRecentFiles 省略可能 Variant True を指定すると、[ ファイル] メニューの最近使用したファイルのリストに文書を追加します。 既定値は True です。
WritePassword 省略可能 Variant ドキュメントへの変更を保存するパスワード文字列。 下記の「備考」を参照してください。
ReadOnlyRecommended 省略可能 Variant True を指定すると、文書が開かれるときは常に Microsoft Word は読み取り専用の状態を候補にします。 既定値は False です。
EmbedTrueTypeFonts 省略可能 Variant True を指定すると、文書と共に TrueType フォントを保存します。 省略すると、EmbedTrueTypeFonts 引数は EmbedTrueTypeFonts プロパティの値と仮定されます。
SaveNativePictureFormat 省略可能 Variant 画像が別のプラットフォーム (例: Macintosh) からインポートされた場合、 True を指定すると、インポートされた画像の Microsoft Windows バージョンのみが保存されます。
SaveFormsData 省略可能 Variant True を指定すると、ユーザーが入力したデータはフォームにレコードとして保存されます。
SaveAsAOCELetter 省略可能 Variant 文書にメーラーが添付されている場合、 True を指定すると、文書は AOCE レターとして保存されます (メーラーが保存されます)。
Encoding Optional Variant エンコードしたテキスト ファイルとして文書を保存する場合に使用するコード ページまたは文字セットを指定します。 既定値はシステム コード ページです。 このパラメーターにすべての MsoEncoding クラスの定数を指定することはできません。
InsertLineBreaks 省略可能 Variant 文書をテキスト ファイルとして保存する場合、 True を指定すると、テキストの各行の最後に改行が挿入されます。
AllowSubstitutions 省略可能 Variant 文書をテキスト ファイルとして保存する場合、 True を指定すると、Word ではいくつかの記号が類似したテキストに置換されます。 たとえば、著作権記号は (c) として表示されます。 既定値は False です。
LineEnding 省略可能 Variant テキスト ファイルとして保存する文書内で改行および段落区切りを示す方法を指定します。 WdLineEndingType の定数は、wdCRLF (既定) または wdCROnly のいずれかを指定できます
AddBiDiMarks 省略可能 Variant True を指定すると、出力ファイルに制御文字を追加して、元の文書のテキストの双方向レイアウトを保存します。
CompatibilityMode 省略可能 Variant 文書を開くときに Word で使用する互換モードです。 WdCompatibilityMode の定数を使用します。
重要
既定では、このパラメーターに値が指定されていない場合、Word では 0 の値が入力され、現在の文書の互換性モードを保持する必要があると指定されます。

戻り値

なし

次のコード例では、作業中の文書に Test.rtf という名前を付け、リッチ テキスト形式 (RTF) で保存します。

Sub SaveAsRTF() 
    ActiveDocument.SaveAs2 FileName:="Text.rtf", _ 
        FileFormat:=wdFormatRTF 
End Sub

次のコード例では、現在の文書に拡張子 ".txt" を付けてテキスト形式で保存します。

Sub SaveAsTextFile() 
    Dim strDocName As String 
    Dim intPos As Integer 
 
    ' Find position of extension in file name 
    strDocName = ActiveDocument.Name 
    intPos = InStrRev(strDocName, ".") 
 
    If intPos = 0 Then 
 
        ' If the document has not yet been saved 
        ' Ask the user to provide a file name 
        strDocName = InputBox("Please enter the name " & _ 
            "of your document.") 
    Else 
 
        ' Strip off extension and add ".txt" extension 
        strDocName = Left(strDocName, intPos - 1) 
        strDocName = strDocName & ".txt" 
    End If 
 
    ' Save file with new extension 
    ActiveDocument.SaveAs2 FileName:=strDocName, _ 
        FileFormat:=wdFormatText 
End Sub

次のコード例は、インストールされているコンバーターをループ処理し、WordPerfect 6.0 コンバーターが見つかった場合は、コンバーターを使用してアクティブ なドキュメントを保存します。

Sub SaveWithConverter() 
 
    Dim cnvWrdPrf As FileConverter 
 
    ' Look for WordPerfect file converter 
    ' And save document using the converter 
    ' For the FileFormat converter value 
    For Each cnvWrdPrf In Application.FileConverters 
        If cnvWrdPrf.ClassName = "WrdPrfctWin" Then 
            ActiveDocument.SaveAs2 FileName:="MyWP.doc", _ 
                FileFormat:=cnvWrdPrf.SaveFormat 
        End If 
    Next cnvWrdPrf 
 
End Sub

次のコード例では、文書にパスワードを設定して保存する手順を示します。

Sub SaveWithPassword(docCurrent As Document, strPWD As String) 
    With docCurrent 
        .SaveAs2 WritePassword:=strPWD 
    End With 
End Sub

関連項目

ドキュメント オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。