我擅長處理類似文件的合並工作，Excel或者Word都可以，妳可以看看我的 /z/q161555335.htm ，這是Excel的，Word的也做過。 妳可以把其中壹個Word文件和匯總文檔發我（保密的話可以修改裏面的數據再發我）908856685@qq.com，幫妳寫代碼，應該很快的。 補充： 新建壹 空白文檔 ，存盤到這些文件的文件夾，同時按Alt和F11進入宏界面，點菜單的插入，模塊，粘貼如下代碼： Sub test() Application.ScreenUpdating = False Application.DisplayAlerts = wdAlertsNone Dim MyDir, Match As String MyDir = ThisDocument.Path & "\" ChangeFileOpenDirectory MyDir Match = Dir$("*.doc") Do If Not LCase(Match) = LCase(ThisDocument.Name) Then Documents.Open Match ActiveDocument.SaveAs FileName:=Replace(Match, ".doc", ".txt"), FileFormat:=wdFormatText ActiveDocument.Close End If Match = Dir$ Loop Until Len(Match) = 0 Application.DisplayAlerts = wdAlertsAll Application.ScreenUpdating = True End Sub 在此界面直接按F5運行此宏，全部轉變為text。如果妳是.docx的文件，把代碼中的.doc都改為.docx就可以了。
上一篇:義烏找工作用什麽網站下一篇:c語言怎麽編求導