| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1224 人关注过本帖
标题:如何判断,并删除word表格中没有数字的空行
只看楼主 加入收藏
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1712
专家分:3318
注 册:2012-2-29
结帖率:93.55%
收藏
已结贴  问题点数:20 回复次数:4 
如何判断,并删除word表格中没有数字的空行
各位大侠,请问如何删除word表格中没有数字的空行?谢谢!
汇总分析.rar (13.7 KB)
搜索更多相关主题的帖子: word 判断 表格 数字 删除 
2021-11-10 05:52
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
遍历各行数字单元格都为空就删除该行
2021-11-10 09:33
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1712
专家分:3318
注 册:2012-2-29
收藏
得分:0 
回复 2楼 吹水佬
谢谢!
2021-11-10 19:13
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏(1)
得分:20 
程序代码:
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
2021-11-10 21:02
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1712
专家分:3318
注 册:2012-2-29
收藏
得分:0 
回复 4楼 吹水佬
非常感谢,完美解决!

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

2021-11-11 05:48
快速回复:如何判断,并删除word表格中没有数字的空行
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032384 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved