VBA:ExcelからWordを開いて置換処理をしたいのですが、エラーになります。

Question

ExcelからWordを開いて置換処理をしたいのですが、エラーになります。

MyFile = Application.GetOpenFilename(FileFilter:="word文書,*.docx")
If MyFile = "False" Then
Exit Sub
End If

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open(MyFile)
Set objSelection = objWord.Selection
ojbDoc.ActiveWindow.ActivePane.View.Type = wdPrintview ＜ここで「変数が定義されていません」となります。

With Selection
.Find.Text = "開始日"
.Find.Forward = True
.Find.MatchWholeWord = True
.Find.Replacement.Text = "終了日"
xResult = .Find.Execute(Replace:=wdReplaceAll)
End With

当初エラーが発生している行は書いていませんでした。
「wdReplaceAll」でエラーが出たので調べたところ、Excel2013以降に出るようになったエラーのようで、
Viewを設定すると出なくなったと書いてあったので、追記してみました。
ですが、今度はその追記した行でエラーになってしまいます。

Excel/Word 2016、VBA7.1です。

Answer 1

「wdPrintView」はWordの組み込み定数ですので通常ではExcelVBAからは使用できません。
「CreateObject」を使用してWordを起動している所から、ExcelVBAのライブラリ参照でWordを参照するように設定していないと予想します。
よって上記コードでは宣言なしの変数として扱われています。

「wdPrintView」は数値で表すと3になりますので数値に書き換えて試してみてください
列挙型 : マイクロソフト Dev Center

Wordのライブラリの参照設定するには
ExcelVBEのメニュー［ツール］－［参照設定］をクリック
↓
［参照設定－VBAProject］ダイアログの［参照可能なライブラリファイル］欄で、
「Microsoft Word ○ Object Library」チェックボックスをOnに
（○の部分はバージョンに応じて15.0などの数字が表示されます）

ライブラリ参照を行うと下記のように書くことが可能です。

Dim objWord As Word.Application
Dim objDoc As Word.Document

Set objWord = New Word.Application
objWord.Visible = True
Set objDoc = objWord.Documents.Open(MyFile)
objDoc.ActiveWindow.ActivePane.View.Type = wdPrintView

Answer 2

これか。

ojbDoc.ActiveWindow.ActivePane.View.Type = wdPrintview
↓
objDoc.ActiveWindow.ActivePane.View.Type = wdPrintview

Comments

[mochinn]

まさかの書き間違えがありました。。。。お騒がせしてすみません。。。
が、御指摘頂いた箇所を修正しても、やはり同じ行で同じエラーになってしまいました。

[ttyp03]

wdPrintView がExcelには定義されていないからのようですね。
Const wdPrintView = 3
上記を定義するか、参照設定で、「Microsoft Word xx.x Object Library」を設定してみてください。

[mochinn]

ありがとうございます。
wdPrintView定義の方を試したところ、Wordの置換処理を変数と認識してしまうようでしたので、参照設定を試してみました。
View設定ではエラーが出なくなりましたが、今度はFindでエラーが出てしまいます。
以下のように変更してみました。
With Selection.Find
.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Execute FindText:="試験開始日", _
Replace:=wdReplaceAll, ReplaceWith:="治験開始日"

これの場合、「With Selection」の行で「引数の数が一致していません。または不正なプロパティを指定しています」と出てしまいます。

[ttyp03]

時間がなくて試してませんが、SelectionではなくてobjSelectionにしてみてはどうでしょうか。

[mochinn]

!!!!!!
objSelectionにしたら、無事動きました!!!!!
ありがとうございました。今日何時間も悩んでいたので、大変助かりました！