- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求教:如何批量删除word报表多余空行? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187820)
-- 发布时间：2023/8/14 20:21:00
-- 求教:如何批量删除word报表多余空行?
才疏学浅，如何批量删除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编辑过]
-- 发布时间：2023/8/14 20:29:00
--
是指"发文登记"里的空行？截图说明一下
-- 发布时间：2023/8/14 20:36:00
--
附件：
事业单位岗位聘用人员核准表
|
序号 |
单位名称 |
姓名 |
性 别 |
岗位类别 |
是否 晋升 |
起聘时间 |
聘用原因 |
备注 |
|||||
|
管理（职员） |
专技 |
工勤 |
|||||||||||
|
等级 |
领导 |
党群 |
其他 |
等级 |
等级 |
||||||||
|
1 |
永乐镇中心卫生院 |
张君 |
女 |
|
|
|
|
十级 |
|
是 |
2023-07 |
晋升等级 |
|
|
2 |
永乐镇中心卫生院 |
袁红梅 |
女 |
|
|
|
|
|
四级 |
是 |
2023-07 |
晋升等级 |
|
|
3 |
永乐镇中心卫生院 |
童玉军 |
男 |
|
|
|
|
十级 |
|
是 |
2023-07 |
晋升等级 |
|
|
4 |
永乐镇中心卫生院 |
黄洁 |
女 |
|
|
|
|
十二级 |
|
是 |
2023-07 |
晋升等级 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
-- 发布时间：2023/8/14 20:38:00
--
是指生成的word报表中的多余空行
-- 发布时间：2023/8/14 21:04:00
--
附件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:聘用发文- 副本.zip |
-- 发布时间：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
……