ms Word vba:ページ設定列の設定を、ドキュメント全体ではなく、選択したテキストにのみ適用します
こんにちは.選択したテキストに基づいて、MSWordの同じページのさまざまな部分にさまざまな数のページ列を適用できるマクロを記録しようとしています.
手動で行うと、VBAに表示されない[適用先:選択したテキスト]オプションを選択できるため、可能です.
VBAで[適用先:選択したテキスト]オプションを設定するにはどうすればよいですか?
記録されたVBAマクロには適用対象がありません:選択されたテキスト「オプション」
これが記録されたVBAマクロコードです
サブMacro1()
Selection.PageSetup.TextColumnsを使用
.SetCount NumColumns:= 2
.EvenlySpaced= True
.LineBetween= True
.Width= CentimetersToPoints(11.36)
.Spacing= CentimetersToPoints(1.27)
で終わる
サブの終了
返信リスト(回答:1)
このように:
Sub TwoColumns()
ActiveDocument.Range(Start:= Selection.Start、End:= Selection.Start).InsertBreak Type:= wdSectionBreakContinuous
Selection.Start= Selection.Start + 1
ActiveDocument.Range(Start:= Selection.End、End:= Selection.End).InsertBreak Type:= wdSectionBreakContinuous
Selection.PageSetup.TextColumns
を使用
.SetCount NumColumns:= 2
.EvenlySpaced= True
.LineBetween= False
.Width= CentimetersToPoints(11.36)
.Spacing= CentimetersToPoints(1.27)
で終わる
サブの終了