Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

26 / 877

←次へ　｜　前へ→


	【877】検索文字の後ろに文字挿入

あおぎんこ - 19/6/11(火) 17:12 -


	引用なし

	パスワード

いつも参考にさせていただいています。

名簿（エクセル）を元に、各種Wordファイルに名簿の名入りの
Wordファイルを作る必要があるため、差込印刷ではなくマクロ
で何とかしようと四苦八苦しております。

各Wordファイルには「氏名」項目が必ずあるため、その後ろに
名前を入れてファイル保存していければと考え、具体的には次
の1.～5.の処理を行いたいと思っています。

1.エクセルファイル（名簿）を開き、名簿シートの「名前」列
を空白になるまでLooPし「名前」を順に取得
2.ダイアログでWordファイルを選択
3.開いたWordファイルで検索文字列「氏名」を検索
4.ヒットしたら、その後ろに1.の名前を入力
5.ファイルに名前をつけて保存
～空白になるまで繰り返し、終了

1.2.5.はできているのですが、3.で検索した後に4.の名前挿入の
ところで足踏みしております。
webで検索しながらひとつずつやっている状況ですが、

ヒットしたときにどういうコードを書けば、希望の処理ができる
のか、調べてもよくわからず・・。

ヒントだけでも構いませんので、どなたかご教示をよろしくお願い
いたします。

Sub サンプル()

Dim strFile As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim wrdRng As Object
　　
　strFile = "ダイアログで選択したWordファイルのフルパス"
　　　　
　Set wrdApp = CreateObject("Word.Application")’ワードを開く
　wrdApp.Visible = True
　Set wrdDoc = wrdApp.Documents.Open(strFile)　'指定のワードファイルを開く
　　wrdDoc.Range.WholeStory
　　　　With wrdDoc.Range.Find
　　　　　　　.Text = "氏名"
　　　　　　　.ClearFormatting
　　　　　　　Do While .Execute　　　　　　
　　　　　　　’★検索でヒットしたときの処理★
　　　　　　　　
　　　　　　　Loop　
　　　　End With
　　
　'～ファイル保存処理～
　
　　
End Sub

177 hits

▼

【877】検索文字の後ろに文字挿入 あおぎんこ 19/6/11(火) 17:12