![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
ワードの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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Word2010特定の名前を置き換えるマクロ
Word(ワード)
-
Excelからワード文書の文字置換を実行する(ワードでのマクロも)
Word(ワード)
-
WORD ヘッダー、セクションの画像操作をVBA で解決したいです。お願いします。
Word(ワード)
-
-
4
【Word2007】ヘッダー、フッターの文字列を置き換えたい
Word(ワード)
-
5
EXCEL VBA でのワード置換
Word(ワード)
-
6
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの『検索と置換ボック...
-
文字列に含まれているダブルク...
-
カンマを改行に変換する方法
-
Excelで全角ハイフンを半角ハイ...
-
エクセルで濁点カナの変換方法...
-
複数のスペースを1つのタブに...
-
Excel : テキストボックス中の...
-
秀丸で余分なスペースを削除したい
-
文字の列を揃えるには
-
【MS Office Word 2007】文章の...
-
カンマ( , )をタブに置換したい。
-
エクセルVBAでワードの文字を検...
-
エクセル重複削除で綺麗に削除...
-
word 改行マークを印刷時に表示...
-
読取革命の使い方を教えてくだ...
-
メモ帳で括弧内をまとめて消去...
-
桐の項目名の変数利用(一括処理)
-
ワードで複数の文字を一括・連...
-
横書きの、和文の読点を、カン...
-
エクセルの文字・数字の前後の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマを改行に変換する方法
-
カンマ( , )をタブに置換したい。
-
秀丸で余分なスペースを削除したい
-
Excelで全角ハイフンを半角ハイ...
-
文字の列を揃えるには
-
エクセル重複削除で綺麗に削除...
-
複数のスペースを1つのタブに...
-
Word:差し込み印刷時に文字列...
-
エクセルの『検索と置換ボック...
-
ワードで複数の文字を一括・連...
-
文字列に含まれているダブルク...
-
エクセルで濁点カナの変換方法...
-
word 改行マークを印刷時に表示...
-
セルの文字列後ろのスペース削除
-
1文字だけ置換したい
-
【MS Office Word 2007】文章の...
-
Excelで特定の文字以下を削除し...
-
エクセルの「置換」で1行の部分...
-
Excel : テキストボックス中の...
-
.txtファイルの空白を全て消去...
おすすめ情報
エラーは解消、置換はできていません
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