Zoom, Unprotect-error in 2016

[anderjoa]

We have a PowerBuilder-application that opens document in Word.
With Office 2007 the following works for example:



Activedocument.ActiveWindow.ActivePane.View.Zoom.P ercentage = WORD_ZOOM_PERCENTAGE

.ActiveDocument.unProtect()

I am now testing Office 2016 and receive errors. I have looked at the Object Model and I don't see that anything has changed.

Any ideas?

[Guessed]

Does this help?
http://stackoverflow.com/questions/3...of-application

[anderjoa]

I'm not testing 2007 but 2016.
2007 runs ok.

[Cosmo]

I remember having a similar problem a while ago, not sure what it was that fixed it, but try adding this code before the 'Unprotect'

If Activedocument.ActiveWindow.View.SplitSpecial = wdPaneNone Then
Activedocument.ActiveWindow.ActivePane.View.Type = wdPrintView
Else
Activedocument.ActiveWindow.View.Type = wdPrintView
End If

[anderjoa]

Thanks a lot! This helps!

Activedocument.ActiveWindow.ActivePane.View.Type = wdPrintView
Activedocument.ActiveWindow.View.Type = wdPrintView