批量处理每页的第一个表格表行高度和字体

菜菜行者

每页有几个表格，其中，每页的第一个表是只有一行的，现在想修改每页的第一个表格的行高和字体，这能批量吗？

谢谢各位老师了！！！

duquancai

能批量。。。。。。。。。。

小花鹿

能批量。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

菜菜行者

duquancai 发表于 2017-7-13 08:12
能批量。。。。。。。。。。

麻烦杜老师帮帮忙！

duquancai

菜菜行者 发表于 2017-7-13 23:07
麻烦杜老师帮帮忙！

能批量。。。。。。。。。不想写代码。。。。。。。。。。。。。。

413191246se

我来个 抛砖引玉 吧！（楼主未说明是设置表格最小值还是固定值，自己决定。）

1. Sub test()
   
2.     Dim i&
   
3.     Do
   
4.         i = i + 1
   
5.         Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
   
6. 
   
7.         'Sub 选定当前页()        'code by 守柔
   
8.         Dim CurrentPageStart As Long, CurrentPageEnd As Long
   
9.         Dim CurrentPage As Integer, Pages As Integer
   
10.         On Error Resume Next
    
11.         With Selection
    
12.             CurrentPage = .Information(wdActiveEndPageNumber)
    
13.             Pages = .Information(wdNumberOfPagesInDocument)
    
14.             CurrentPageStart = .GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=CurrentPage).Start
    
15.             If CurrentPage = Pages Then
    
16.                 CurrentPageEnd = ActiveDocument.Content.End
    
17.             Else
    
18.                 CurrentPageEnd = .GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=CurrentPage + 1).Start
    
19.             End If
    
20.             ActiveDocument.Range(CurrentPageStart, CurrentPageEnd).Select
    
21.         End With
    
22. '
    
23.         Selection.Tables(1).Select
    
24.     '
    
25.         Selection.Rows.HeightRule = wdRowHeightAtLeast '最小值
    
26. '        Selection.Rows.HeightRule = wdRowHeightExactly '固定值
    
27.         Selection.Rows.Height = CentimetersToPoints(0.9)
    
28.         
    
29.         Selection.Font.Name = "黑体"
    
30.         Selection.Font.Size = 14 '四号
    
31.         Selection.Font.Color = wdColorRed '红色
    
32.     Loop Until i = ActiveDocument.ComputeStatistics(wdStatisticPages)
    
33. End Sub

复制代码

duquancai

413191246se 发表于 2017-7-17 13:07
我来个 抛砖引玉 吧！（楼主未说明是设置表格最小值还是固定值，自己决定。）

考虑了：  如果有表格跨页的情况没有？如果有需要判断一下。如果不考虑有表格跨页   相对简单一点。

duquancai

413191246se 发表于 2017-7-17 13:07
我来个 抛砖引玉 吧！（楼主未说明是设置表格最小值还是固定值，自己决定。）

1. Sub shishi()
   
2.     Dim t As Table, p&, i&, x&
   
3.     With ActiveDocument
   
4.    
   
5. End Sub

复制代码

413191246se

不好意思，杜先生，我啥也没考虑，因为没那个能力！只能对付着用，不行算楼主的，呵呵！

菜菜行者

413191246se 发表于 2017-7-17 13:07
我来个 抛砖引玉 吧！（楼主未说明是设置表格最小值还是固定值，自己决定。）

灰常感谢您的帮助，谢谢！