| |
▼マナ さん：
回答ありがとうございます。
そして、すっかりお礼が遅くなって申し訳ありません。
ご提示のコードを組み込んでみましたところ、Set r = ActiveDocument.Range
のところで型が一致しません と出ます。
いただいたtestコードをwordで実行するとうまくいくので、これを元に何とか
しようと思ったのですが、行き詰っております。
エクセルから操作しているので、うまくいかないのでしょうか・・？？
ご教示いただけるとありがたいです。。
よろしくお願いいたします。
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
Dim r As Range
Set r = ActiveDocument.Range ←「型が一致しません」
With r.Find
.Text = "検索文字"
If .Execute Then
r.InsertAfter "挿入文字"
End If
End With
'〜ファイル保存処理〜
End Sub
>▼あおぎんこ さん：
>
>Sub test()
> Dim r As Range
>
> Set r = ActiveDocument.Range
>
> With r.Find
> .Text = "検索文字"
> If .Execute Then
> r.InsertAfter "挿入文字"
> End If
> End With
>
>End Sub
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
