質問: .Find.Execute(Replace:=wdReplaceAll) End With ### 当初エラーが発生している行は書いていませんでした。 「wdReplaceAll」でエラーが出たので調べたところ、Excel2013以降に出るようになったエラーのようで、 Viewを設定すると出なくなったと書いてあったので、追記してみました。 ですが、今度はその追記した行でエラーになってしまいます。 ### Excel/Word 2016、VBA7.1です。
回答: これか。 ``` ojbDoc.ActiveWindow.ActivePane.View.Type = wdPrintview ↓ objDoc.ActiveWindow.ActivePane.View.Type = wdPrintview ```