Powerpoint Review Cycle

[NigelGomm]

(apologies to those who have seen this before but i need to repost using my
MSDN id)

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 (this is VFP so && = comments)

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 the prompt...

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


TIA

Nigel

 

[Peter Huang [MSFT]]

Hi Nigel

I am not familar with VFP, but I think it should use the same COM interface
to automation PowerPoint.
Here I VB6 code, and I did not get any prompt when call saveas or
savecopyas.
I think you may try the VB6 code below to see if this is a PowerPoint issue
or the VFP issue.
If you can reproduce the problem with VB6 code, can you send me your test
ppt file for me to reproduce.

thanks!

Private Sub Command1_Click()
Dim oApp As New PowerPoint.Application
oApp.Visible = msoTrue
Dim oPres As PowerPoint.Presentation
Set oPres = oApp.Presentations.Open("C:\Test.ppt")
oApp.AutomationSecurity = msoAutomationSecurityForceDisable '
msoAutomationSecurityForceDisable
oApp.DisplayAlerts = ppAlertsNone 'no alerts
If oPres.CustomDocumentProperties.Count > 0 Then
If Not IsNull(oPres.CustomDocumentProperties("_adhocreviewcycleid"))
Then
oPres.CustomDocumentProperties("_adhocreviewcycleid").Delete
End If
If Not IsNull(oPres.CustomDocumentProperties("_authoremail")) Then
oPres.CustomDocumentProperties("_authoremail").Delete
End If
If Not
IsNull(oPres.CustomDocumentProperties("_AuthorEmailDisplayName")) Then
oPres.CustomDocumentProperties("_AuthorEmailDisplayName").Delete
End If
If Not
IsNull(oPres.CustomDocumentProperties("_ReviewingToolsShownOnce")) Then
oPres.CustomDocumentProperties("_ReviewingToolsShownOnce").Delete
End If
For i = oPres.SlideMaster.Shapes.Count To 1 Step -1
Set sh = oPres.SlideMaster.Shapes(i)
If sh.Type = 7 Then
If sh.Visible = 0 Then '&& msoTriState.msoFalse then
sh.Delete
End If
End If
Next
End If
oPres.SaveCopyAs "c:\test1.ppt"
oApp.Quit
End Sub

Best regards,

Peter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.

 

[NigelGomm]

it's a Powerpoint issue.

It only occurs with some presentations... those that have been used (or i
guess are still engaged in) a send for review cycle.

I have one such presentation i can send for your testing if you wish.

I would have to send the presentation zipped because if i send the
presentation itself MS Outlook strips off the CustomDocumentProeprties and
whatever else is in there that causes the problem.

Nigel

 

[NigelGomm]

Peter,

did you get my email and attachment?

Nigel

 

[Peter Huang [MSFT]]

Hi

I have replied you in the email, please have a check.
If you still have any concern, please feel free to post here.

Best regards,

Peter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.