![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_06.png?e8efa67b6d)
お世話になっております。ワード2000を使用しています。
大量のワードをPDFに変換しているのですが、ワードの履歴があり1件ずつ履歴のチェックを外しています。
最近自動マクロを使用し、開いたファイルのチェックを外すようにしているのですが、フォルダ内のファイル全てに関してチェックを外すマクロを作りたいのですが出来ますでしょうか?又はそのようなフリーソフトがあれば教えて下さい。
ちなみに自動マクロで作成したものは下記の通りです。
Sub Macro2()
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
With ActiveDocument
.TrackRevisions = False
.PrintRevisions = False
.ShowRevisions = False
End With
End Sub
No.1ベストアンサー
- 回答日時:
> ちなみに自動マクロで作成したものは下記の通りです。
こちらは今開いているファイルを処理する手順ですね。
1)あるファイルを開く、履歴チェックを外す、上書き保存、閉じるを行うマクロを作ります。
2)あるファイルを指定できるように変更します。
3)そのマクロを多数のファイルに対して実行させる新しいマクロを作ります。
という手順でどうでしょうか?
--
1)
もう一度自動記録で、"C:\Temp\test.doc"というファイルを処理して、上書き保存、閉じるを行うマクロを記録してみてください。
多分、こんな感じです。
Sub Macro3()
Documents.Open FileName:="C:\Temp\test.doc", Conf…
…
…
~今記録しているのと同じような処理~
ActiveDocument.Save
ActiveDocument.Close
End Sub
2)
次に、このマクロを書き換えて、指定したファイルを処理するように変更します。
上の例の1、2行目を、
Sub Macro3()
Documents.Open FileName:="C:\Temp\test.doc", …
↓
Sub Macro3(strFilename as String)
Documents.Open FileName:=strFilename, …
とします。
3)
続いて、このマクロを呼び出すマクロを作成します。
Sub MacroAll()
Call macro3("C:\temp\test1.doc")
Call macro3("C:\temp\test2.doc")
Call macro3("C:\temp\test3.doc")
…(ファイル数分)…
End Sub
で、上のファイル数分手で打ち込むのは大変ですので、
Vector - ダウンロード>Windows95/98/Me>ユーティリティ>ファイル管理>ファイル一覧
http://www.vector.co.jp/vpack/filearea/win95/uti …
のようなソフトを利用して、
C:\temp\test1.doc
C:\temp\test2.doc
C:\temp\test3.doc
のようなテキストを取得し、
「C:\temp」→「 Call macro3("C:\temp」
「.doc」→「.doc")」
のような置換処理を行ってVBAのソースコードにして貼り付けるのが楽です。
--
> フォルダ内のファイル全てに関して
高度なVBAを使えば可能なんですが…取り敢えずは上記の方法が簡単なハズ。
参考URL:http://www.vector.co.jp/vpack/filearea/win95/uti …
No.2
- 回答日時:
Sub フォルダ内繰り返し実行()
Dim Fs As FileSearch
Dim myFile As Variant
Dim myDoc As Document
Dim strCurName As String
Dim strNewName As String
Dim i As Long
Application.Visible = False '処理の高速化するときには非表示で実行
Set Fs = Application.FileSearch
With Fs
.NewSearch
.FileName = "*.doc" ' ファイル形式を指定
.LookIn = "C:\ファイル\新しいフォルダ" '処理対象フォルダを指定
.FileType = msoFileTypeWordDocuments
.SearchSubFolders = True ' サブフォルダ内も実行
.Execute _
SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending
End With
For Each myFile In Fs.FoundFiles
i = i + 1
'ファイルを開く
Set myDoc = Documents.Open( _
FileName:=myFile)
Macro1 'ここに、別に作っておいた、ファイルを開くたびに実行するマクロ名を書く。
myDoc.Save '保存
myDoc.Close 'ファイルを閉じる
Next
Application.Visible = True
MsgBox "完了しました。"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルマクロで不特定なファ...
-
ファイルを開かずにマクロを実行
-
エクセル(マクロ)のファイル...
-
エクセルファイルをHTML化する...
-
EXCEL VBA 指定したファイルが...
-
エクセル 複数ファイルの一括...
-
【マクロ】名前を保存する際に...
-
VBAで開いているファイルの...
-
accessフォルダを移動したらフ...
-
データ参照先が別ファイルの場...
-
エクセルデータが突然破損します。
-
リンク切れチェックを行うマクロ
-
フォルダ内のexcelファイルを順...
-
エクセルのシートの数を数えた...
-
LTSpiceにLMV358-Nのモデルを入...
-
Excelマクロで指定したファイル...
-
VLookupで参照する範囲を変数で...
-
accessでlaccdbファイルが削除...
-
ISOファイルとMDSファイル
-
差し込み印刷の元データファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
フォルダ内のexcelファイルを順...
-
ファイルを開かずにマクロを実行
-
エクセル(マクロ)のファイル...
-
エクセル 複数ファイルの一括...
-
フォルダ内のブック全部にパス...
-
ファイルの保存場所を変えたら...
-
VBAでワークブックの名前を変数...
-
【Excel VBA】ファイル名が一...
-
accessフォルダを移動したらフ...
-
エクセルのシートの数を数えた...
-
【マクロ】名前を保存する際に...
-
エクセルのxls形式からxlsx形式...
-
リンク切れチェックを行うマクロ
-
データ参照先が別ファイルの場...
-
Accessのaccdbファイルを起動で...
-
vlookup関数の引数を変数で指定...
-
VBAでフォルダ内の全てのcsv...
-
LTSpiceにLMV358-Nのモデルを入...
おすすめ情報