¿Cómo editar Word mediante programación?

Soy bueno fusionando archivos similares, ya sea Excel o Word. Puedes echar un vistazo a mi /z/q161555335.htm. Esto es para Excel, y también lo he hecho para Word. Puedes enviarme uno de los archivos de Word y el documento resumen (puedes modificar los datos que contiene antes de enviármelo si es confidencial) 908856685@qq.com, y te ayudaré a escribir el código. Debe ser rápido. . Suplemento: cree un nuevo documento en blanco, guárdelo en la carpeta de estos archivos, presione Alt y F11 al mismo tiempo para ingresar a la interfaz macro, haga clic en Insertar, Módulo en el menú y pegue el siguiente código: Sub test() Aplicación .ScreenUpdating = False Application.DisplayAlerts = wdAlertsNone Dim MyDir, Match As String MyDir = ThisDocument.Path & "\" ChangeFileOpenDirectory MyDir Match = Dir$("*.doc") Hacer si no LCase(Match) = LCase(ThisDocument.Name ) Luego Documents.Open Match ActiveDocument.SaveAs FileName:=Replace(Match, ".doc", ".txt"), FileFormat:=wdFormatText ActiveDocument.Close End If Match = Dir$ Bucle hasta Len(Match) = 0 Aplicación. DisplayAlerts = wdAlertsAll Application.ScreenUpdating = True End Sub Presione F5 directamente en esta interfaz para ejecutar esta macro y convertir todo en texto. Si su archivo es un archivo .docx, simplemente cambie el .doc en el código a .docx.