saveas with review?

N

Nigel Gomm

i have powerpoint under automation and when i "saveas" (or savecopyas ) some
presentations i get a prompt...

"if you are planning on sending this presentation back to the original
author, you may want your changes marked as revisions......."

that i can't supress.

i'm guessing that at some point these presentations have been "sent" for
review.

how can i supress that prompt or remove the 'review' and/or 'sender'
information ?


i already have (in VFP)

oApp.AutomationSecurity = 3 && msoAutomationSecurityForceDisable
oApp.DisplayAlerts = 1 && no alerts
If oPres.customdocumentproperties.Count > 0
If !Isnull(oPres.customdocumentproperties["_adhocreviewcycleid"])
oPres.customdocumentproperties["_adhocreviewcycleid"].Delete
Endif
If !Isnull(oPres.customdocumentproperties["_authoremail"])
oPres.customdocumentproperties["_authoremail"].Delete
Endif
If !Isnull(oPres.customdocumentproperties["_AuthorEmailDisplayName"])
oPres.customdocumentproperties["_AuthorEmailDisplayName"].Delete
Endif
If !Isnull(oPres.customdocumentproperties["_ReviewingToolsShownOnce"])
oPres.customdocumentproperties["_ReviewingToolsShownOnce"].Delete
Endif
For i = oPres.SlideMaster.shapes.Count To 1 Step -1
sh = oPres.SlideMaster.shapes.item(i)
If sh.Type = 7
If sh.Visible = 0 && msoTriState.msoFalse
sh.Delete
Endif
Endif
Next
Endif

but still get that damn prompt...

I've also tried 'oPres.endreview' but get an error that i'm not in the
review cycle...


TIA

Nigel

(apologies to those who've already seen this in
microsoft.public.office.developer.automation)
 
S

Steve Rindsberg

Hi again, Nigel.
oApp.AutomationSecurity = 3 && msoAutomationSecurityForceDisable
Click to expand...

My dBase/FoxPro is all but rusted shut, but if I remember right, && sets off a
comment, doesn't it?

(In case one of our VB folks sees it and gets confused like I did at first)
 
N

Nigel Gomm

yes

i thought it best to say it was VFP and cut & paste rather than rewrite as
VB and make a mistake

n
 
Top