Word2003のマクロで以下の処理をしたいと思います。
◆サンプル文書
【ここには図があります】
図表番号1
・・・をする場合は、図表番号1を参照してください。
◆実施したい処理
『図表番号1』の書式を中央揃えにしたい。
図表番号は『図表番号2』『図表番号3』といったように複数あるため、
全ての図表番号の書式を中央揃えにします。
また、本文中にある「図表番号1を参照・・・」の書式は変更しません。
まとめると、図の下に記載した『図表番号*』の書式を中央揃えにしたいと
いったものです。
◆その他
マクロではなくても実施する手段があるかもしれませんが、この機会にwordのマクロを
覚えて、汎用的に活用出来るようにしたいと思います。
以上、よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
手動でCtrl+Hで置換のダイアログを出し
オプション>>を開いてあいまい検索のチェックを外しワイルドカードのチェックを入れて
□{1,}(図表番号*)^13
ただし□はスペース
を
\1^13
に,さらに置換後の文字列欄の中で書式▼ボタンから段落で中央揃えの設定をつけて,全て置換する。
という動作をそのまま新しいマクロの記録でマクロに録ると
Sub Macro1()
'
' Macro1 Macro
' 記録日 2010/05/07 記録者
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.ParagraphFormat
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
.Alignment = wdAlignParagraphCenter
.WordWrap = True
End With
Selection.Find.Replacement.ParagraphFormat.Borders.Shadow = False
With Selection.Find
.Text = " {1,}(図表番号*)^13"
.Replacement.Text = "\1^13"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
のようなサンプルを自動で得られるので,良く読んで参考にする。
この回答への補足
早々の回答ありがとうございます。
対象とする図表番号を
" {1,}(図表番号*)^13"
で指定し、本文の方は処理の対象外とする訳ですね。
実際に試せる環境が職場になるため、後日結果の報告
をさせて頂きます。
大変参考になりました。
No.1
- 回答日時:
[図表番号]を、図を右クリックまたは[挿入]から[図表番号]として
設定したものなら、その図表番号のある段落は[図表番号]スタイル
として書式設定されていると思います。
スタイルですから、[スタイルと書式]から段落配置を[中央揃え]に
することは簡単です。
http://office.microsoft.com/ja-jp/word/HP0518956 …
図表番号の段落にカーソルがある状態で[スタイルと書式]を選択。
[図表番号]のスタイル名を右クリックするなどで[変更]を選択。
[スタイルの変更]ダイアログ内にある[中央揃え]のコマンドボタン
を使用するなどして変更したら[OK]します。
これで同じスタイルが適用された段落は同じ書式になります。
マクロを覚える前に、Wordの基本概念を覚えたほうが、後々マクロ
を活用するときにも重要になります。
この回答への補足
ご回答ありがとうございます。
仰る通り、Wordの基本概念を覚えた方がマクロを理解する
うえでも役立ちますね。
適切なアドバイス感謝致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- Word(ワード) wordのテキストボックスが変! 2 2022/10/13 17:32
- Excel(エクセル) VBA マクロ名のパスをとるには 2 2022/06/07 12:58
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- PDF 「PDF文書を簡単にWordで編集する方法」と 罫線が 図形で出力されるのは? 6 2022/06/14 06:51
- その他(暮らし・生活・行事) マイナンバーカードの住所表示について 9 2022/10/02 13:28
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) 関数について 5 2022/12/08 11:04
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
差し込み印刷で反映されないフ...
-
スケッチスタイルの有効化
-
Access→Excelへエクスポートす...
-
【エクセル】コメントの初期(...
-
「テーブルとして書式設定」で...
-
箇条書きの記号の色が勝手に変わる
-
ワードで棒線が直接文章に入る...
-
エクセルで和暦表示の桁合わせ...
-
【EXCEL2003】セルの書式設定で...
-
WORD 書式の設定ではない黄色の...
-
スタイル同じなのに表示が異なる
-
Excelの集計がSUM関数で、1円...
-
C言語のprintf()関数の「f」の意味
-
改行すると一段、間が開いてし...
-
OpenOfficeの用紙のサイズ変更で
-
Open office Writerで余白の調整
-
箇条書きや段落番号の行頭文字...
-
エクセルからワードへの貼り付...
-
アクセスで桁数をそろえ数字の...
-
Word アウトラインの定義
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
スケッチスタイルの有効化
-
差し込み印刷で反映されないフ...
-
Excelの集計がSUM関数で、1円...
-
【エクセル】コメントの初期(...
-
Access→Excelへエクスポートす...
-
WORD 書式の設定ではない黄色の...
-
【EXCEL2003】セルの書式設定で...
-
OpenOfficeの用紙のサイズ変更で
-
箇条書きの記号の色が勝手に変わる
-
「テーブルとして書式設定」で...
-
Open office Writerで余白の調整
-
ワードで棒線が直接文章に入る...
-
スタイル同じなのに表示が異なる
-
改行すると一段、間が開いてし...
-
エクセルで和暦表示の桁合わせ...
-
課題で、Wordを使って提出する...
-
Wordで、上下二段の書式にしたい
-
エクセル 電話番号に市外局番...
-
【エクセル】バブルチャート上...
-
箇条書きや段落番号の行頭文字...
おすすめ情報