Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

293 / 886

←次へ　｜　前へ→


	【609】Re:ご返答ありがとうございます

kuroda - 09/2/27(金) 23:03 -


	引用なし

	パスワード

詳しく指示していただき、ありがとうございます。
以下のようにして実行しますと、

Sub テキスト保存()
'
' テキスト保存 Macro
'
'
　　ActiveDocument.SaveAs FileName:=ThisDocument.Path & "\" & Left(ThisDocument.Name, Len(ThisDocument.Name) - 4) & "txt", FileFormat:=wdFormatText, _
　　　　LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
　　　　:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
　　　　SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
　　　　False, Encoding:=65001, InsertLineBreaks:=False, AllowSubstitutions:= _
　　　　False, LineEnding:=wdCRLF
End Sub

上記でマクロを実行しますと、エラーは出ないのですが、今度はファイル名がNormal.txtに固定されてしまい、元のファイル名が生かされないのです。
構文が間違っているのでしょうか。
（txtの前の.は削除させていただきました。ついているとNormal..txtとなったので）
何回も申し訳ありませんが、教えていただけませんでしょうか？
よろしくお願いいたします。

1,703 hits

▼

【604】doc.ファイルをファイル名をそのままでテキスト保存するマクロ kuroda 09/2/26(木) 12:38