
Word2019とWindows10です。
文書を選択して[中央揃え]のアイコンをクリックすると、
各行の前後ろの空白が除去されます。
この処理を[マクロの記録」で記録すると、下記のマクロができるのですが、
Sub Macro2()
'
' Macro2 Macro
'
'
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub
このマクロを実行すると、中央揃えはされますが、空白の除去がされません。
行の前と後ろの空白をマクロで除去するには、
どうすればいいのでしょうか。
No.2ベストアンサー
- 回答日時:
組み込み済みのコマンド類の実行に関して、[マクロの記録]をしたり、
[コマンドマクロ]と呼ばれてるものを直接VBEに書き出すようにしても、
同じ動作をしないことも多いです。
http://tanimoto.to/comp/WordCommandMacrosList.html
段落の[中央揃え]である"CenterPara"のコマンドも同じです。
そこで、コマンド名を直接呼び出すマクロを作成することで、行前後に
ある空白を削除する動作をするようにします。
Sub 中央揃えで空白削除()
'
' 段落の中央揃えのコマンドを呼び出します。
'
Application.Run MacroName:="CenterPara"
End Sub
もしも、両端揃えに戻したいのなら、End Subの前に
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
を追加すれば、中央揃え後に両端揃えに戻ります。
前後の空白を削除するマクロを知りたいなら、以下のマクロが参考に
なると思います。このマクロでは段落にある文字列に設定した書式が
解除されるのでお勧めはしません。
あくまで参考としてのマクロです。
Sub 段落の前後にある空白を削除()
Dim myRange As Range
Dim MyString, TrimString As String
'カーソル位置の段落をmyRangeへ設定
Set myRange = Selection.Range
myRange.Expand Unit:=wdParagraph
'改行記号を除外
With myRange
.End = .End - 1
End With
MyString = myRange
TrimString = Trim(MyString)
myRange = TrimString
' 段落配置が必要ならこちら↓のコメントブロックを外す
' Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Set myRange = Nothing
End Sub
enunokokoro様、大変ありがとうございます。
「中央揃えで空白削除」と「両端揃えに戻したいのなら」
で、現在のところは十分ですが、いずれは
「前後の空白を削除するマクロ」も必要になるかも
しれません。
分かりやすい説明、大変ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
UWLSの記録でマクロを作成し使...
-
エクセルで別のセルにあるふり...
-
メッセージボックスのOKボタ...
-
VBSからエクセルのマクロを起動...
-
Excel_マクロ_現在開いているシ...
-
特定のPCだけ動作しないVBAマク...
-
エクセルVBA イベントプロシー...
-
Excel・Word リサーチ機能を無...
-
既存のマクロをコンボボックス...
-
エクセルで縦に並んだデータを...
-
TERA TERMを隠す方法
-
Sub ***( ) と Private Sub ***...
-
エクセルのマクロについて教え...
-
【EXCEL VBA】オートシェイプを...
-
プリプロセッサのエラー対策が...
-
テニス(ダブルス)乱数表 Exc...
-
レポートで空データ時に印刷しない
-
ExcelのVBA。public変数の値が...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
Excel_マクロ_現在開いているシ...
-
一つのTeratermのマクロで複数...
-
マクロの連続印刷が突然不可能...
-
ExcelのVBA。public変数の値が...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
エクセルに張り付けた写真のフ...
-
Excelのセル値に基づいて図形の...
-
TERA TERMを隠す方法
-
マクロ実行時エラー
-
ExcelVBAでPDFを閉じるソース
-
wordを起動した際に特定のペー...
-
特定文字のある行の前に空白行...
-
Excel マクロでShearePoint先の...
-
エクセルで縦に並んだデータを...
-
マクロ実行時、ユーザーフォー...
-
ソース内の行末に\\
おすすめ情報