批量提取WORD简历中的出生年月信息,计算平均年龄

Option ExplicitSub GetAverageAge()    Dim wdcx As Object    Set wdcx = CreateObject("word.application")    Dim ss As String    ss = Dir(ThisWorkbook.Path & "\简历\")    Do        Dim wd As Object        Set wd = wdcx.documents.Open(ThisWorkbook.Path & "\简历\" & ss)        wdcx.Visible = True        With wd.tables(1).Range            Dim i As Long            For i = 1 To .Cells.Count                Dim t As String, y As String, j As Integer, h As Integer, xx As Integer, s As Long                t = .Cells(i).Range                If t Like "*出生年月*" Then                    y = Left(.Cells(i + 1).Range, Len(.Cells(i + 1).Range) - 1)                    j = Year(Date)                    h = VBA.Year(y)                    xx = j - h                    s = s + xx                    Exit For                End If            Next i        End With        wd.Save        wd.Close        Dim n As Long        n = n + 1        ss = Dir    Loop Until ss = ""    wdcx.Quit    Set wdcx = Nothing    Set wd = Nothing    MsgBox "平均年龄是" & VBA.Round(s / n, 0) & "岁"End Sub