请问怎么对已插入到excel里的word对像进行操作

Question

请问怎么对插入到excel中word对像进行操作，如替换对像里的一些文字，如将"abc"替换成"def"，用程序。

Answer 1

已经找到访问的方法了，但是要选激活excel里的word对像
Set xls_app = CreateObject("excel.application")
xls_app.Visible = False
Set wbks = xls_app.Workbooks
Set sheet_s = wbk.Sheets
Set ole_1 = sheet_s("封面").OLEObjects(1)
 ole_1.Activate
但是在程序运行过程中，激活会使excel显示出来，批量运行多个文件时会出现错误，单步调状态下又没问题，像这个情况怎么解决。