Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

46 / 886

←次へ　｜　前へ→


	【866】フォルダ内文書の一括処理

nishi - 19/2/19(火) 9:32 -


	引用なし

	パスワード

初めての質問です。
wordにマクロの記録で書式を設定しました。
デスクトップ上のフォルダ内にある複数のword文書を一括処理をさせたいのですが（文書名の決まりはありません。数は２０～３０文書）
マクロは下記に記します。Windows７、office standard 2010です。
ご教示よろしくお願いいたします。

Sub 書式マクロ3()
'
' 書式マクロ3 Macro
'
'
　　Selection.HomeKey Unit:=wdStory
　　Selection.EndKey Unit:=wdLine, Extend:=wdExtend
　　Selection.Font.Name = "ＭＳＰ明朝"
　　Selection.Font.Size = 16
　　Selection.Font.Bold = wdToggle
　　Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
　　Selection.EndKey Unit:=wdLine
　　Selection.TypeParagraph
　　Selection.Font.Size = 11
　　Selection.TypeParagraph
　　Selection.MoveRight Unit:=wdCharacter, Count:=1
　　Selection.EndKey Unit:=wdLine, Extend:=wdExtend
　　Selection.Font.Name = "ＭＳＰ明朝"
　　Selection.Font.Size = 12
　　Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
　　Selection.EndKey Unit:=wdLine
　　Selection.TypeParagraph
　　Selection.Font.Size = 11
　　Selection.MoveRight Unit:=wdCharacter, Count:=1
　　Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
　　Selection.EndKey Unit:=wdStory, Extend:=wdExtend
　　Selection.Font.Name = "ＭＳＰ明朝"
　　Selection.Font.Size = 11
　　Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
　　With Selection.PageSetup
　　　　.LineNumbering.Active = False
　　　　.Orientation = wdOrientPortrait
　　　　.TopMargin = MillimetersToPoints(35)
　　　　.BottomMargin = MillimetersToPoints(30)
　　　　.LeftMargin = MillimetersToPoints(30)
　　　　.RightMargin = MillimetersToPoints(30)
　　　　.Gutter = MillimetersToPoints(0)
　　　　.HeaderDistance = MillimetersToPoints(15)
　　　　.FooterDistance = MillimetersToPoints(17.5)
　　　　.PageWidth = MillimetersToPoints(210)
　　　　.PageHeight = MillimetersToPoints(297)
　　　　.FirstPageTray = wdPrinterDefaultBin
　　　　.OtherPagesTray = wdPrinterDefaultBin
　　　　.SectionStart = wdSectionNewPage
　　　　.OddAndEvenPagesHeaderFooter = False
　　　　.DifferentFirstPageHeaderFooter = False
　　　　.VerticalAlignment = wdAlignVerticalTop
　　　　.SuppressEndnotes = False
　　　　.MirrorMargins = False
　　　　.TwoPagesOnOne = False
　　　　.BookFoldPrinting = False
　　　　.BookFoldRevPrinting = False
　　　　.BookFoldPrintingSheets = 1
　　　　.GutterPos = wdGutterPosLeft
　　　　.LinesPage = 42
　　　　.LayoutMode = wdLayoutModeLineGrid
　　End With
End Sub

327 hits

▼

【866】フォルダ内文書の一括処理 nishi 19/2/19(火) 9:32