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です。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。