質問: word ファイルのページの余白のまとめて一括調整 特定のフォルダの中にwordのファイルがいくつもあります。
回答: 図の様に入力して、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 解凍が遅れました。 特定の人に回答をリクエストする機能は廃止されました。 なぜかは知りません。私にとっても不便です。