| |
質問させてください。よろしくお願いします。
エクセルVBAからマクロを実行し、ドキュメントファイル名：テキスト.docに含まれる“昭和”の文字を“平成”に置換したいのです。（エクセルシートのA1セルには“昭和”の文字列が格納）
下記、マクロでは Excel2003 & Word2003 では実行されるのですが、Excel2007 & Word2007(OS:WindowsVist) ではエクセルが停止してしまいます。
これを回避する方法等があれば、教えて頂きたく宜しくお願いします。
Sub Macro()
Dim 修正前 As String
Dim 修正後 As String
Dim Wdoc as Word.Document
修正前 = "昭和"
修正後 = Range("A1").Value '* 平成 *
Set Wdoc = GetObject("C:\My_desktop\文章\テキスト.doc")
With Wdoc.Content.Find
.Text = 修正前
.MatchByte = True
.Format = False
.Replacement.Text = 修正後
.Execute Replace:=wdReplaceAll
end With
Set Wdoc = Nothing
End Sub
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
