Word VBA質問箱 IV

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

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


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

199 / 886

←次へ　｜　前へ→


	【710】Excel VBAからのWord置換

とも - 10/11/25(木) 23:02 -


	引用なし

	パスワード

質問させてください。よろしくお願いします。

エクセル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

2,603 hits

▼

【710】Excel VBAからのWord置換 とも 10/11/25(木) 23:02