如何打开一个word文档后控制word窗口的大小和位置，并打开文档结构图

Question

如何打开一个word文档后控制word窗口的大小和位置，并打开文档结构图

Answer 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As LongPrivate Sub Command1_Click()
    Dim wdApp As Object
    Dim wdBook As Object
    Set wdApp = CreateObject("Word.Application")
    Set wdBook = wdApp.Documents.Open("c:\test.doc")
    wdApp.Visible = True
    
    If wdApp.ActiveWindow.View.SplitSpecial = wdPaneNone Then
        wdApp.ActiveWindow.ActivePane.View.Type = 1
        'wdapp.ActiveWindow.ActivePane.View.Type = 2
        'wdapp.ActiveWindow.ActivePane.View.Type = 3
        'wdapp.ActiveWindow.ActivePane.View.Type = 4
        'wdapp.ActiveWindow.ActivePane.View.Type = 5
        'wdapp.ActiveWindow.ActivePane.View.Type = 6
    Else
        wdApp.ActiveWindow.View.Type = 1
        'wdapp.ActiveWindow.View.Type = 2
        'wdapp.ActiveWindow.View.Type = 3
        'wdapp.ActiveWindow.View.Type = 4
        'wdapp.ActiveWindow.View.Type = 5
        'wdapp.ActiveWindow.View.Type = 6
    End If
    wdApp.ActiveWindow.DocumentMap = True  '显示文档结构
    
    Dim wHwnd As Long
    wHwnd = FindWindow("OpusApp", "Word窗体的标题")
    MoveWindow wHwnd, 100, 100, 400, 300, True
    
End Sub