- 締切済み
ワード文書をマクロでHTML文書として保存したいのですが
ワード文書をHTML文書の形式で保存するマクロを組みたいのですが、 以下のようにしても、HTMLとして保存されません。 以前のワードＸＰでも、今度新しく導入したワード２００３でも同様です。 どこが間違っているのでしょうか？ ActiveDocument.SaveAs FileName:=Titulo & ".htm", FileFormat:=wdFormatHTML, LockComments:=False, _ Password:="", AddToRecentFiles:=True, WritePassword:="", _ ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False Tituloとある部分は、Stringとして作った変数で、文書のタイトルになっています。 よろしくお願いします。
- rxkxvx
- お礼率90% (10/11)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- BLUEPIXY
- ベストアンサー率50% (3003/5914)
ウチの環境はXP+Word2002SP3ですが、 質問文のそのままでHTML形式として保存されました。 保存されたところがわからなくなっているとかそういうことではないのですか？
関連するQ&A
- 複数ワードファイルを一括でテキストファイルへ
こんにちは いつもお世話になっています。 ワード2010を使っています。 複数ワードファイルを一括でテキストファイルへ変換する方法をおしえてください。 ソフトの紹介でも構いません。 エンコードをUTF-8にしたいです。 フリーのxdoc2textを試しましたが、エンコードの設定ができないようです。 ワードのマクロ記録で書式なしのテキストファイル-UTF8は作ったのですが、何かに利用できるでしょうか。 Sub Macro1() ' ' Macro1 Macro ' ' ActiveDocument.SaveAs2 FileName:="文書1.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, CompatibilityMode:=0 End Sub よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロが思い通りに動きません
エクセルでマクロを使いボタンを 作りました。ボタンを押すとHDDとDVDに保存される仕組みになっています Sub DVD() ChDir "E:\" ActiveWorkbook.SaveAs Filename:=Format(Now, "yyyy-mm-dd(hh時mm分ss秒)"), FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub Sub HDD() ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\***\デスクトップ\ファイル名.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub これだとDVDへ保存が上手くいきません。DVDからエクセルを開いて使えば問題ないのですが、デスクトップから開くと日付入りのデータがデスクトップに保存されてしまいます。 どうやって書き換えたらいいでしょうか
- ベストアンサー
- Visual Basic
- マクロ 保存の仕方
' 指定の場所に保存する ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\Owner\デスクトップ\A\B\" & Replace(Range("k2").Value, "/", "") & ".xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False ActiveWorkbook.Close 上記のようにマクロを組みましたが、同じ名前で１回保存すると２回目からエラーします。 ２回目から保存名の後ろに(2)、３回目は(3)等を付けて保存したいのですが。
- ベストアンサー
- その他(データベース)
- ファイルの保存先を任意にしたい（マクロ）
エクセルのマクロです。 マクロを実行した時に、保存先とファイル名は任意に入力して（その部分だけは、マクロ実行者が入力して）、その後もマクロを実行させたいのですがどうすれば良いのでしょうか？ たとえば、 ActiveCell.FormulaR1C1 = "1" Range("B1").Select ChDir "C:\Documents and Settings\a\デスクトップ" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\a\デスクトップ\ Book1.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Range("A2").Select ActiveCell.FormulaR1C1 = "2" Range("B2").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\a\デスクトップ\ Book2.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Range("A3").Select ActiveCell.FormulaR1C1 = "3" Range("B3").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\a\デスクトップ\ Book3.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Range("A4").Select ActiveCell.FormulaR1C1 = "4" Range("B4").Select 上記の場合は、保存先もファイル名もこちらが指定していますが、その部分だけは、マクロの実行者に任意指定及び入力させたいのです。 マクロ初心者なので、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ファイル名に変数を割り当てたい
EXCEL VBAで ファイル名に変数を割り当てて保存したいのですが、 うまく行きません。どこがおかしいのか教えてください。 C\サンプル\見込200704 を変数で割り当てて保存したい。 バージョン301 = "200704" 四月 = "C:\サンプル\見込" & "バージョン301" Range("A1").Select ActiveWorkbook.SaveAs Filename:=四月, _ FileFormat:=xlCSV, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close False
- ベストアンサー
- その他([技術者向] コンピューター)
- マクロ シート別に名前をつけて保存したい
１つのブックにシートが複数あり、それぞれシート毎に名前をつけて保存したいです。 質問を検索しましたら似たようなマクロを見つけたのですが、例えば1.2.3・・・というシートがあった場合、エクセル１、エクセル２、というような共通の言葉をつけて保存したい場合の方法を教えて下さい。 たぶんですが・・・下記のどこかにエクセルという言葉をいれるとできますでしょうか？ Workbooks(2).SaveAs Filename:= _ SvPath & Workbooks(BookName).Sheets(SheetName).Name & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- ファイルの保存先のパス
マクロでデスクトップに保存させたいのですが、 ActiveWorkbook.SaveAs Filename:= _ "D:\Documents and Settings\●●●\デスクトップ\Book1.xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False の●●●のように、私のユーザー名が入ります。 このファイルは色々な人に使ってもらいたいので、 LOCALみたいな意味合いの言葉を入れたいのですが、 なんと入れたら良いでしょうか？ ご存知の方いらっしゃいましたら宜しくお願いします。
- ベストアンサー
- Visual Basic
- Excel／VBAのファイル保存
いつもここでは大変お世話になっています。 以下のように名前をつけて保存をしているのですが、 同名のファイルがあった場合でも上書き確認せずに上書きをさせる方法を教えて下さい。 お願いします。 ActiveWorkbook.SaveAs Filename:= _ "\\PC名\ディレクトリ名\ファイル名.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False
- ベストアンサー
- オフィス系ソフト
- エクセルマクロで保存をする際の質問
エクセル2003をＸＰで使っています。 あるシートに入力をしたあと、セルＡ１(変数を"number"としています)に入力させたデータをファイル名にして特定のフォルダに保存させています。 具体的なことは下記の通りです。 ActiveWorkbook.SaveAs Filename:="C:\入力済みデータ\" & number & ".xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False ActiveWorkbook.Close ところが、C:\入力済みデータフォルダに同じ名前のファイルが存在していたとき、 "○○というデータがすでに存在します。置き換えますか？"と聞かれますよね。 そのときに"いいえ"を選択するとエラーになります。 "いいえ"を選択したとき、別名をつけられるようにするにはどうしたらいいでしょうか。 よろしくご教示ください。お願いいたします。
- ベストアンサー
- Windows XP
- SaveAsの保存先について
エクセルのマクロのついての質問です よろしくお願いします 現在、下記のようなコードでマクロを実行するとパスワードをつけて上書き保存したような結果になっています(元のファイル名も○○.xlsで、指定したものと同一です） Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="○○.xls", FileFormat:=xlNormal, Password:="1111", WriteResPassword:="2222", ReadOnlyRecommended _ :=False, CreateBackup:=False Application.DisplayAlerts = True 私の目的としてはそれでよいのですが、このように格納先を指定しなかった場合は 必ず元のファイルと同一のフォルダになるってくれるものなのでしょうか？ それとも状況によって別なところに名前をつけて保存されてしまったりすることがありますか？
- ベストアンサー
- Visual Basic
お礼
ご回答ありがとうございます。 うーん、これで行けてますか。 保存すべきディレクトリは指定しています。 どこか他の部分が問題かもしれないので、補足にもう少し書き足しておきます。 どうもありがとうございました。
補足
マクロの他の部分が問題かもしれないので、書き足してみます。 Dim Titulo As String （文書のフォーマットをあれこれいじる部分 略） Selection.HomeKey unit:=wdStory Selection.EndKey unit:=wdLine, Extend:=wdExtend Titulo = Selection.Text これで文書の一行目がTituloとして設定 ChangeFileOpenDirectory "C:\" & （ディレクトリへのパス 略） このあとに、質問本文のSaveAsが続きます。 わかる方、よろしくお願いします。 あ、環境はウィンドウズＸＰにオフィス２００３です。