如何只统计每页的表格

qnmf

我希望在每页的页脚添加一个针对当前页面表格的金额列汇总与统计表格行数
每页的表格行数不完全一致
谢谢

sylun

可试试如下代码：

1. Sub test()
   
2.     '假设是普通表格，没有合并单元格
   
3.     Dim i As Integer '页数计数
   
4.     Dim c As Integer '每页数据行数
   
5.     Dim sum As Single
   
6.     Dim myTextframe As Shape
   
7.     Dim aCell As Cell
   
8.    
   
9.     Application.ScreenUpdating = False
   
10.     For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
    
11.         With Selection
    
12.             .GoTo wdGoToPage, wdGoToAbsolute, i
    
13.             With ActiveDocument.PageSetup  '设置文本框位置与大小
    
14.                 Set myTextframe = ActiveDocument.Shapes.AddShape(msoShapeRectangle, _
    
15.                     .PageWidth / 2 - 100, .PageHeight - .BottomMargin - 20, 160, 16)
    
16.             End With
    
17.             With .Tables(1)
    
18.                 For Each aCell In .Columns(9).Cells
    
19.                     If aCell.Range.Information(wdActiveEndPageNumber) = i Then
    
20.                         c = c + 1
    
21.                         sum = sum + Val(Replace(aCell.Range.Text, ",", ""))
    
22.                     End If
    
23.                 Next
    
24.                 Stop
    
25.             End With
    
26.             With myTextframe
    
27.                 .Fill.Visible = msoFalse
    
28.                 .Line.Visible = msoFalse
    
29.                 With .TextFrame
    
30.                     .TextRange.Text = "本页" & IIf(i = 1, c - 1, c) & "行，共" & Format(sum, "standard") & "元"
    
31.                     .TextRange.Font.Bold = True
    
32.                     .TextRange.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
33.                     .MarginBottom = 0
    
34.                     .MarginLeft = 0
    
35.                     .MarginRight = 0
    
36.                     .MarginTop = 0
    
37.                 End With
    
38.             End With
    
39.         End With
    
40.         c = 0
    
41.         sum = 0
    
42.     Next
    
43.     Application.ScreenUpdating = True
    
44. End Sub

复制代码

cuanju

sylun 发表于 2020-2-29 21:40
可试试如下代码：

洋洋洒洒、蔚为大观！对word文本框的操作、word定位页码、word表格的操作的精华都在其中了！