word ファイルのページの余白のまとめて一括調整 特定のフォルダの中にwordのファイルがいくつもあります。

word ファイルのページの余白のまとめて一括調整 特定のフォルダの中にwordのファイルがいくつもあります。 それぞれのファイルの余白のサイズがバラバラなので、 余白を一括して調整したいです。 このことができるexcelマクロを書いて欲しいです。 よろしくお願い致します。

補足

個人への回答リクエストができなくなっている。。

Visual Basic | Excel27閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

図の様に入力して、B1に処理フォルダ B3~B6に余白をmmで入力して実行して下さい。 '    Word.Visible = True がコメントになっていますが、これにより、Wordを表示せずに実行できます。 前プログラムもそうです。 Option Explicit ' Sub Macro1() '     Dim Word As Word.Application     Dim Docu As Word.Document     Dim FileName As String '     Set Word = CreateObject("Word.Application") '    Word.Visible = True     FileName = Dir([B1] & "\*.Doc*") '     While FileName > ""         Set Docu = Word.Documents.Open([B1] & "\" & FileName)         Word.Selection.PageSetup.TopMargin = MillimetersToPoints([B3])         Word.Selection.PageSetup.BottomMargin = MillimetersToPoints([B4])         Word.Selection.PageSetup.LeftMargin = MillimetersToPoints([B5])         Word.Selection.PageSetup.RightMargin = MillimetersToPoints([B6])         Docu.Close True         FileName = Dir     Wend     Word.Quit     MsgBox "終了しました" End Sub 解凍が遅れました。 特定の人に回答をリクエストする機能は廃止されました。https://chiebukuro.yahoo.co.jp/blog/2019/08/13-01.html なぜかは知りません。私にとっても不便です。

ありがございます。動きました。 また、' Word.Visible = Trueのこともありがとうございます。 リクエストする機能は昨年の8月に廃止されたのですね。知らなかったです。不便ですよね。 作って頂いた1つ目マクロと今回の2つ目のマクロを連続していのですが、それらをコピペしてどのようにつなぐと良いですか。 調べましたら、下記のようにすると連続でできるみたいですが、当方が標準モジュールとかあまりにもよくわかってないため、上手くいかないです。お手数ですが、アドバイスをお願いします。 Sub Main() Call Macro1() Call Macro2() End Sub

ThanksImg質問者からのお礼コメント

ありがとうございます

お礼日時:1/21 13:25