关于隐藏窗口的问题

[QunTin]

OLE1.DataField = "文本"
Set wapp = OLE1.object.Application

OLE1.object.Application.Visible = False
For Each win In OLE1.object.Application.Windows
win.Visible = True
Next

ole.object.application.ActiveDocument.SaveAs _
FileName:="temp_wd.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False

因为没有打开的文档,这一命令无效!

OLE1.object.Application.Visible = true

就能够通过

[hhjjhjhj]

有问题吗？
Application存在
ActiveDocument不存在（没有任何Document那里有活动Document）

[liangwu]

关注

[QunTin]

1、visible=true ActiveDocument就存在了?

visible不仅是可视的意思么？
2、那么想在后台实现这项操作该怎么办呢?

[QunTin]

up

[hhjjhjhj]

ole.object.SaveAs .......
试试
（因为ole.object实际上就是Document对象，ole.object.application应与ole.object.parent效果相同）

或
ole.object.application.Documents(1).SaveAs .......
试试

[since1990]

up

[QunTin]

问题解决，结贴