求助：一个文件中所有doc或docx的数据转换为一个csv

霖僡

将一个文件夹中所有的doc或docx文件里表格的数据提取保存到一个csv文件中，具体情况如图

wanghan519

只考虑第一张表大概：

1. #ANSI字符编码&cls&powershell -Version 5.1 -NoLogo -NoProfile -Command "gc -Encoding Oem -ReadCount 0 -LiteralPath '%~f0'|out-string|iex"&pause&exit/b
   
2. $wps = New-Object -ComObject Kwps.Application
   
3. $et = New-Object -ComObject Ket.Application
   
4. $wb = $et.Workbooks.Add()
   
5. $s = $wb.Sheets.Item(1)
   
6. dir *.doc? | %{
   
7.     $d = $wps.Documents.Open($_.FullName)
   
8.     $d.Tables.Item(1).Select()
   
9.     $wps.Selection.Copy()
   
10.     $s.UsedRange.ClearContents()
    
11.     $s.Range("A1").PasteSpecial()
    
12.     $s.SaveAs(($_.FullName -replace "docx?$", "csv"), 6)
    
13.     $d.Close()
    
14. }
    
15. 
    
16. $wps.Quit()
    
17. $wb.Close(0)
    
18. $et.Quit()

复制代码

应该对所有表再循环一重

aloha20200628

回复 1# 霖僡

以下代码存为 test.bat 运行，运行结果会在当前目录中生成 all.csv 文件，其中包含当前目录及其子目录下 *.doc，*.docx 文件中的全部表格数据，每个表格中的数据行与 all.csv 文件行依序对应...

1. 
   
2. 2>1/* ::
   
3. @echo off & dir /b/s/a-d *.docx *.doc|cscript /nologo /e:jscript "%~f0" "%cd%\all.csv"
   
4. pause&exit/b */
   
5. ws=WSH.stdin, fso=WSH.createObject('Scripting.FileSystemObject');       
   
6. v=WSH.arguments, cF=fso.CreateTextFile(v(0), 2, true);
   
7. wa=WSH.createObject('word.application'), wa.visible=false, wa.displayAlerts=0;
   
8. while (!ws.atendofstream) {
   
9.   f=ws.readline(), doc=wa.documents.open(f);
   
10.   for (t=1,tc=doc.tables.count; t<=tc; t++)
    
11.     for (r=1,rc=doc.tables(t).rows.count; r<=rc; r++) {
    
12.       line=[];
    
13.       for (c=1,cc=doc.tables(t).rows(r).cells.count; c<=cc; c++) {
    
14.         v=doc.tables(t).rows(r).cells(c).range.text;
    
15.         line.push(v.replace(/\x07|\r|\n/g, '')); }
    
16.       cF.writeLine(line.join(',')); }
    
17.   doc.close(false); }
    
18. cF.close(), wa.quit(), WSH.quit();
    

复制代码