Foxtable(狐表)用户栏目专家坐堂 → 求教:如何批量删除word报表多余空行?


  共有2905人关注过本帖树形打印复制链接

主题:求教:如何批量删除word报表多余空行?

帅哥哟,离线,有人找我吗?
kaihang666
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:48 积分:596 威望:0 精华:0 注册:2011/3/11 23:51:00
求教:如何批量删除word报表多余空行?  发帖心情 Post By:2023/8/14 20:21:00 [只看该作者]

才疏学浅,如何批量删除word报表中的空行?恳请大师赐教。
 Dim tm As String
With Tables("发文登记")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i As Integer = .TopPosition To .BottomPosition
            Dim p As Row = .Rows(i)
            If p("县以下")=False And p("聘用人数")=1 Then
                tm = ProjectPath & "Attachments\lg1.doc"   '指定模板文件
            End If
            If p("县以下")=False And p("聘用人数")>1 Then
                tm = ProjectPath & "Attachments\lg100.doc"   '指定模板文件
            End If
            
            Dim d As Date = p("发文日期")
            Dim fl As String = ProjectPath & "Reports\ligao\"& format(d,"yyyy") & "-" & p("文号") & p("主送单位") & "--拟稿" & ".doc"   '指定目标文件
            Dim wrt As New WordReport(Tables("发文登记"),tm,fl)   '定义一个WordReport
            wrt.BuildOne(p)
            wrt.quit()
        Next
    End If
End With     
[此贴子已经被作者于2023/8/14 20:56:11编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/14 20:29:00 [只看该作者]

是指"发文登记"里的空行?截图说明一下

 回到顶部
帅哥哟,离线,有人找我吗?
kaihang666
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:48 积分:596 威望:0 精华:0 注册:2011/3/11 23:51:00
  发帖心情 Post By:2023/8/14 20:36:00 [只看该作者]

附件:

事业单位岗位聘用人员核准表

序号

单位名称

姓名

岗位类别

是否

晋升

起聘时间

聘用原因

备注

管理(职员)

专技

工勤

等级

领导

党群

其他

等级

等级

1

永乐镇中心卫生院

张君

 

 

 

 

十级

 

2023-07

晋升等级

 

2

永乐镇中心卫生院

袁红梅

 

 

 

 

 

四级

2023-07

晋升等级

 

3

永乐镇中心卫生院

童玉军

 

 

 

 

十级

 

2023-07

晋升等级

 

4

永乐镇中心卫生院

黄洁

 

 

 

 

十二级

 

2023-07

晋升等级

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
kaihang666
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:48 积分:596 威望:0 精华:0 注册:2011/3/11 23:51:00
  发帖心情 Post By:2023/8/14 20:38:00 [只看该作者]

是指生成的word报表中的多余空行


 回到顶部
帅哥哟,离线,有人找我吗?
kaihang666
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:48 积分:596 威望:0 精华:0 注册:2011/3/11 23:51:00
  发帖心情 Post By:2023/8/14 21:04:00 [只看该作者]

附件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:聘用发文- 副本.zip


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/14 21:15:00 [只看该作者]

这种要生成报表后另外使用vba处理,类似:http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=95616

……
Dim tb = Doc.Tables(1)
Dim cell As object
For Each r As object In tb.Rows
    cell = r.Cells(2)
    Dim text1 = doc.Range(cell.Range.Start, cell.Range.End - 1).Text
    If len(text1) = 0 Then
        r.Delete
    End If
Next
……

 回到顶部