こんにちは いつもお世話になっています
ワード2010でマクロ記録しました。
ページサイズをA4→B5
余白を「狭い」
フォントサイズを12P
以下の内容で失敗しています
CharsLine = 35
でひっかかりました。他にもあるかもしれません。
上記の内容だけをマクロにしたいのですがプログラムが長いようなので、簡単なマクロを教えて下さい。
Sub Macro1()
'
' Macro1 Macro
'
'
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(182)
.PageHeight = MillimetersToPoints(257)
.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
.CharsLine = 35
.LinesPage = 36
.LayoutMode = wdLayoutModeLineGrid
End With
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = MillimetersToPoints(12.7)
.BottomMargin = MillimetersToPoints(12.7)
.LeftMargin = MillimetersToPoints(12.7)
.RightMargin = MillimetersToPoints(12.7)
.Gutter = MillimetersToPoints(0)
.HeaderDistance = MillimetersToPoints(15)
.FooterDistance = MillimetersToPoints(17.5)
.PageWidth = MillimetersToPoints(182)
.PageHeight = MillimetersToPoints(257)
.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
.CharsLine = 28
.LinesPage = 30
.LayoutMode = wdLayoutModeLineGrid
End With
Selection.WholeStory
Selection.Font.Size = 12
End Sub
No.1ベストアンサー
- 回答日時:
必要なネタは、ページサイズ(縦横)と余白(上下左右)、あと念のためヘッダフッタの高さですね。
フォントの設定は最後の部分で出来てるようです。
sub macro1()
with selection.pagesetup
.TopMargin = MillimetersToPoints(12.7)
.BottomMargin = MillimetersToPoints(12.7)
.LeftMargin = MillimetersToPoints(12.7)
.RightMargin = MillimetersToPoints(12.7)
.Gutter = MillimetersToPoints(0)
.HeaderDistance = MillimetersToPoints(15)
.FooterDistance = MillimetersToPoints(17.5)
.PageWidth = MillimetersToPoints(182)
.PageHeight = MillimetersToPoints(257)
end with
Selection.WholeStory
Selection.Font.Size = 12
end sub
#エクセルじゃなくワードのご質問ですね。
keithin 様 ありがとうございました。お蔭様で解決しました。
すみません、タイトル間違えました。
大切に使わせていただきます。
簡単で恐縮ですが、お礼申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Excel(エクセル) エクセルマクロで教えてください 2 2022/05/04 09:07
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/04 14:20
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Visual Basic(VBA) Excel_マクロ_現在開いているシートにマクロを実行したいです 1 2023/02/14 23:54
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/04 12:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで追加した右クリックメニ...
-
(実行時エラー5852)Excelデータ...
-
Excelのシートを印刷不可(禁止...
-
Excelのマクロのショートカット...
-
VBAを禁止している会社って...
-
Wordのマクロを有効にする方法
-
EXCELのマクロを有効にする
-
Excelのマクロは管理者でないと...
-
WORDのマクロでNG文字がある場...
-
Excel2003デジタル署名 個人で...
-
Excelでのマクロの有効設定の仕...
-
ワード2007、ヘッダーのマクロ...
-
MS-Projectの使い方(マクロを...
-
今まで実行できていたマクロが...
-
outlookでのBCC自動設定
-
Word2013: コピー、切り取り、...
-
C,C++でシンボルの宣言を効率的...
-
ワードで続きを使用時、最後尾...
-
EXCELで預金を定期的に一定額を...
-
KingsoftのOffice2013でExcelの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
(実行時エラー5852)Excelデータ...
-
Access2010マクロ メッセージ...
-
Word文書に必須入力項目を設けたい
-
Excelのマクロは管理者でないと...
-
Wordのマクロを有効にする方法
-
VBAを禁止している会社って...
-
Excelのシートを印刷不可(禁止...
-
Excelのマクロのショートカット...
-
今まで実行できていたマクロが...
-
ワードを起動した時にでる「セ...
-
Excelで追加した右クリックメニ...
-
エクセルのVBAで自動的にVBE画...
-
Word2013: コピー、切り取り、...
-
Word2007でファイルを開いたと...
-
Wordで複数の単語を一括置換す...
-
WORDのマクロでNG文字がある場...
-
ワード2003を使用。マクロ...
-
パワーポイントのマクロの実行
-
PERSONAL..XLSを削...
-
MS-Projectの使い方(マクロを...
おすすめ情報