View>Show>Page Border

[ddonnahoe]

View>Show>Page Border
Is there any way throught VBA to toggle this function?
i.e....

If Activedocument.Page.Border.Show = False then
     Activedocument.Page.Border.Show = True
End If

I know this code is incorrect. That is why I pose the question.

Here is a workaround:

Sub ToggleBorders()
If ActiveDocument.Properties("PageBorder", 1) Then
ActiveDocument.Properties("PageBorder", 1) = False
Else
ActiveDocument.Properties("PageBorder", 1) = True
End If
SendKeys "%(vhp)"
End Sub

You can also use an API function SendMessage instead of SendKeys, but I was too lazy to search for it's number
---edit--
In this variant I got rid of SendKeys

Sub ToggleBorders()
If ActiveDocument.Properties("PageBorder", 1) Then
ActiveDocument.Properties("PageBorder", 1) = False
Else
ActiveDocument.Properties("PageBorder", 1) = True
End If
Application.FrameWork.Automation.Invoke "77f7f9eb-3e06-4899-9a8b-80d9e2aa68d3"
End Sub

I'll try to detect wheather PageBorder is enabled in document later and publish it on success