Document.SaveAs2 メソッド (Word)

  • [アーティクル]

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

構文

式。 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 省略可能 バリアント型 画像が別のプラットフォーム (例: Macintosh) からインポートされた場合、True を指定すると、インポートされた画像の Microsoft Windows バージョンのみが保存されます。
SaveFormsData 省略可能 バリアント型 (Variant) True を指定すると、ユーザーが入力したデータはフォームにレコードとして保存されます。
SaveAsAOCELetter 省略可能 バリアント型 文書にメーラーが添付されている場合、True を指定すると、文書は AOCE レターとして保存されます (メーラーが保存されます)。
Encoding Optional バリアント型 (Variant) エンコードしたテキスト ファイルとして文書を保存する場合に使用するコード ページまたは文字セットを指定します。 既定値はシステム コード ページです。 このパラメーターでは、すべての MsoEncoding 定数を 使用することはできません。
InsertLineBreaks 省略可能 バリアント型 文書をテキスト ファイルとして保存する場合、True を指定すると、テキストの各行の最後に改行が挿入されます。
AllowSubstitutions 省略可能 バリアント型 文書をテキスト ファイルとして保存する場合、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 のサポートおよびフィードバックを参照してください。