自分で解決したので、記載しておきます。
※検索しても不可能というコメントが多かったので、
この場を借りて提示しておきます。
VBA
1Public Function fWindow_Navigation(Switch As Boolean)
2
3 'ナビゲーションウィンドウ
4 With Application.TaskPanes(wdTaskPaneNav)
5 If .Visible <> Switch Then
6 .Visible = Switch
7 End If
8 End With
9
10End Function