word检视意见导出（VBA）

Private Sub CommandButton1_Click()
    'Dim Cmt As Comment
    Dim excelApp As Object
    Dim xlsWbk, objWdApp As Object
    Dim commentsArray
    Dim rows, temp, i, x, y As Integer
    Dim filename As String
    'Dim myWDoc As Word.Document

    Dim authorName As String

    '获取选择中文件的名字
    filename = Application.GetOpenFilename
    If filename = "False" Then
        Exit Sub
    End If

    Set objWdApp = CreateObject("word.application")
    objWdApp.Visible = False '隐式打开
    Set mywdoc = objWdApp.Documents.Open(filename)

    temp =
    x =
    y = 

    rows = mywdoc.Comments.Count
    ReDim commentsArray( To rows,  To )

    If rows =  Then
        MsgBox "没有批注!"
    End If

    With Worksheets()
        Do While .Cells(x, ) <> ""
            x = x +
        Loop

        If x >  Then
            y = x
            x = .Cells(x - , )
        Else
            x =
        End If

    End With

    For i =  To rows
        temp = temp + 
　　　　　x = x + 1

        '序号
        commentsArray(temp, ) = x
        '批注引用的内容
        commentsArray(temp, ) = mywdoc.Comments(i).Scope
        '批注内容
        commentsArray(temp, ) = mywdoc.Comments(i).Range
        '页/行
        commentsArray(temp, ) = "在第" & mywdoc.Comments(i).Scope.Information() & "页第" & mywdoc.Comments(i).Scope.Information() & "行"

        '作者
        authorName = mywdoc.Comments(i).Author
    Next

 
    Worksheets().Cells(, ) = mywdoc.Name
    Worksheets().Cells(, ) = authorName
    'mywdoc.BuiltinDocumentProperties (14) 获取总页数

    With Worksheets()

        .Range("A" & y).Resize(rows, ) = commentsArray
        .Columns.AutoFit
    End With
    mywdoc.Application.Quit
End Sub

Private Sub CommandButton2_Click()
    Worksheets().Range("A12").Resize(, ) = ""
    Worksheets().Cells(, ) = ""
    Worksheets().Cells(, ) = ""

End Sub

界面