![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_06.png?e8efa67)
お世話になっております。ワード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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルマクロで教えてください 2 2022/05/04 09:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Excel(エクセル) 2つのマクロを連続して動かしたい 3 2022/09/20 23:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
複数のエクセルファイルに対し...
-
エクセルのxls形式からxlsx形式...
-
VBAでワークブックの名前を変数...
-
エクセル(マクロ)のファイル...
-
フォルダ内のブック全部にパス...
-
vlookup関数の引数を変数で指定...
-
【Excel VBA】ファイル名が一...
-
EXCELマクロを無効にして開く方法
-
エクセルファイルをHTML化する...
-
エクセルファイルを開く時、関...
-
ファイル名を変更するマクロ
-
フォルダ内のexcelファイルを順...
-
エクセルのシートの数を数えた...
-
リンク切れチェックを行うマクロ
-
Excel VBA でファイルが開かれ...
-
accessフォルダを移動したらフ...
-
ACCESS VBAでファイルを開くダ...
-
【マクロ】名前を保存する際に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
フォルダ内のexcelファイルを順...
-
エクセルのxls形式からxlsx形式...
-
VBAでワークブックの名前を変数...
-
フォルダ内のブック全部にパス...
-
エクセル(マクロ)のファイル...
-
エクセルのシートの数を数えた...
-
ファイルを開かずにマクロを実行
-
エクセル 複数ファイルの一括...
-
vlookup関数の引数を変数で指定...
-
【Excel VBA】ファイル名が一...
-
accessフォルダを移動したらフ...
-
ファイルの保存場所を変えたら...
-
Accessのaccdbファイルを起動で...
-
Excel VBA でファイルが開かれ...
-
データ参照先が別ファイルの場...
-
エクセルマクロ 異なるファイ...
-
【マクロ】名前を保存する際に...
-
リンク切れチェックを行うマクロ
おすすめ情報