Få fat i dokumentinfo på word dokumenter

Er det doc eller docx/docm du vil have info om?

Det er Doc og har fundet dette på nette.
  objWord = CreateObject("Word.Application")
        '  objWord.Visible = False
        With objWord
            '.Visible = False
            .Documents.Open(strInFile)
            objDocProps = objWord.ActiveDocument.BuiltInDocumentProperties
                     
            DokInfo = (objDocProps(1).value)
            DokDato = (objDocProps(12).value)


Men det er lidt langsomt, vil godt se om der findes noget hurtigere, da det nogle gange er op til 30 dokumenter jeg åbner af gangen

lukkes