如何判断，并删除word表格中没有数字的空行 - 编程论坛

#2

吹水佬2021-11-10 09:33

遍历各行数字单元格都为空就删除该行

#3

schtg2021-11-10 19:13

回复 2楼吹水佬

谢谢！

#4

吹水佬2021-11-10 21:02

程序代码：

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
**COPY FILE "汇总分析 - 副本.doc" TO 汇总分析.doc
docFile = cDefPath + "汇总分析.doc"
word = CREATEOBJECT("Word.Application")
doc = word.Documents.Open(docFile)
FOR EACH table IN doc.tables
    FOR row=table.rows.count TO 3 STEP -1
        bDel = .T.
        FOR col=3 TO table.columns.count
            bDel = EMPTY(RTRIM(table.cell(row,col).range.text,0h20,0h0D,0h07))
            IF !bDel
                EXIT
            ENDIF
        ENDFOR
        IF bDel
            table.cell(row,3).delete(2)
        ENDIF
    ENDFOR
ENDFOR
doc.Close
word.Quit

#5

schtg2021-11-11 05:48

回复 4楼吹水佬

非常感谢，完美解决！

[此贴子已经被作者于2021-11-11 05:50编辑过]