word本身不行了，需要用vba来实现，我做过类似的实现功能（批量修改属性）。不知道你会不会vba，给你段代码看看吧。For Each filePath In filePaths
Documents.Open (filePath)
If Not version = "" Then
Documents(filePath).CustomDocumentProperties("version") = version
End If
If Not copyrightYear = "" Then
Documents(filePath).CustomDocumentProperties("year") = year
End If
If Not bookNumber = "" Then
Documents(filePath).CustomDocumentProperties("bookNumber") = bookNumber
End If
If Not productID = "" Then
Documents(filePath).CustomDocumentProperties("productID") = productID
End If
Documents(filePath).Select
Selection.Fields.Update
Documents(filePath).Save
Documents(filePath).CloseNext filePath这段代码修改了“自定义”属性中的version、year、bookNumber、productID四个属性
