Word VBA質問箱 IV

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

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


7 / 858 ←次へ | 前へ→

【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

23 hits

【877】検索文字の後ろに文字挿入 あおぎんこ 19/6/11(火) 17:12 質問[未読]
【878】Re:検索文字の後ろに文字挿入 マナ 19/6/11(火) 22:30 発言[未読]

7 / 858 ←次へ | 前へ→
ページ:  ┃  記事番号:
202307
(SS)C-BOARD v3.8 is Free