ワードのVBAを使って、文章のみならず、フッターの文字の置換をやりたい。
過去ログをいろいろ調べましたが、今一つわかりません。
下のテストマクロにて、本文の文字は置換できます。
そこで、オブジェクトの階層をたどって、使えそうなコマンドに仕上げて
[ Selection.HeaderFooter.Range.Find ]
実行しましたが、オブジェクト変数が設定されていませんと、返ってきます。
Sub Test()
With Selection.Find
.Text = "豊臣"
.Replacement.Text = "徳川"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
ここまでは、本文での話であり、うまく置換はできます。
ここからが、問題のフッターでの置換作業の部分のつもりです。
With Selection.HeaderFooter.Range.Find ’<--この行にてエラー
.Text = "豊臣"
.Replacement.Text = "徳川"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
End Sub
以上、よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) VBA シート上にドロップダウンリストを作り、予め指定値をセットしたいのですが 1 2023/03/25 15:15
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) 指定文字を太字にするVBAを別シートのセルを指定する構文(改良について) 6 2022/08/27 22:11
- Visual Basic(VBA) evcel VBAについて 2 2022/08/02 21:37
- Visual Basic(VBA) Excel・ユーザーフォームの情報を受け渡したい 4 2022/06/08 10:11
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Word2010特定の名前を置き換えるマクロ
Word(ワード)
-
Excelからワード文書の文字置換を実行する(ワードでのマクロも)
Word(ワード)
-
WORD ヘッダー、セクションの画像操作をVBA で解決したいです。お願いします。
Word(ワード)
-
-
4
【Word2007】ヘッダー、フッターの文字列を置き換えたい
Word(ワード)
-
5
ワードのマクロで段落番号(文字も含む)取得ってできますか
Word(ワード)
-
6
WordVBAで規定のところに文字列を挿入したい
Access(アクセス)
-
7
WORD VBAでヘッタ・フッタの編集は?
Access(アクセス)
-
8
EXCEL VBA でのワード置換
Word(ワード)
-
9
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
10
ExcelのVBAでWordを読み取り専用で開いて、見たいページに自動で移動する方法を教えて頂きたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カンマを改行に変換する方法
-
カンマ( , )をタブに置換したい。
-
秀丸で余分なスペースを削除したい
-
文字の列を揃えるには
-
Excelで特定の文字以下を削除し...
-
桐の項目名の変数利用(一括処理)
-
複数のスペースを1つのタブに...
-
文字列に含まれているダブルク...
-
Excelで全角ハイフンを半角ハイ...
-
エクセルの『検索と置換ボック...
-
Excel で文字の間のスペースを...
-
数学 記号 sgn
-
Word2010特定の名前を置き換え...
-
エクセル 応用した置換方法
-
Wordでスペースを含む文字を置...
-
エクセルの「置換」で1行の部分...
-
秀丸でカッコ内の文字だけ残す
-
Wordの置換方法について
-
エクセルVBAでワードの文字を検...
-
エクセルで濁点カナの変換方法...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマを改行に変換する方法
-
カンマ( , )をタブに置換したい。
-
秀丸で余分なスペースを削除したい
-
文字列に含まれているダブルク...
-
文字の列を揃えるには
-
Excelで全角ハイフンを半角ハイ...
-
Word:差し込み印刷時に文字列...
-
エクセル重複削除で綺麗に削除...
-
エクセルで濁点カナの変換方法...
-
セルの文字列後ろのスペース削除
-
CSVファイルの任意の列をダブル...
-
エクセルの『検索と置換ボック...
-
word 改行マークを印刷時に表示...
-
Word VBA フッターでの文字の置換
-
エクセル 置換又は関数でかっこ...
-
Excelで特定の文字以下を削除し...
-
ワードで複数の文字を一括・連...
-
Excel : テキストボックス中の...
-
1文字だけ置換したい
-
【MS Office Word 2007】文章の...
おすすめ情報
エラーは解消、置換はできていません
Sub Test2()
Dim sec As Section
Dim hdr As HeaderFooter
With Selection.Find
.Text = "豊臣"
.Replacement.Text = "徳川"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
For Each sec In ActiveDocument.Sections
For Each hdr In sec.Headers
With hdr.Range.Find
.Text = "豊臣"
.Replacement.Text = "徳川"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
Next
Next
End Sub