| |
いつも参考にさせていただいています。
名簿（エクセル）を元に、各種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
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
