WORD文档在第4页后面执行程序

woyaofacai

在WORD文档中，通常前面为目录页，如果想在本篇文档中第5页才开始执行排版的VBA代码，如附件，，对第5页后面的所有文档统一改为宋体，字号为小五，段落为1.5位行距呢？ 测试1.rar (28.99 KB, 下载次数: 5)

2019-7-11 11:15 上传

点击文件名下载附件

，谢谢

ming0018

用range定位后　就可以了

woyaofacai

Application.ScreenUpdating = False
Dim aDoc As Document
Set aDoc = ActiveDocument
Dim aTable As Table
Dim rng As Range
Set rng = aDoc.Range(aDoc.Range(0, 0).GoTo(wdGoToPage, wdGoToAbsolute, 3).Start, aDoc.Content.End - 1)

后面执行时还是整个文档中的表格执行了

413191246se

楼主，请先将全文作为一个排版范围，然后，用代码再添加“目录”可不可以呢？

zhanglei1371

可以执行啊：

1. Sub 从第五页以后开始执行()
   
2. Dim aDoc As Document
   
3. Dim aTable As Table
   
4. Dim rng As Range
   
5.     Set aDoc = ActiveDocument
   
6.     Set rng = aDoc.Range(aDoc.Range(0, 0).GoTo(wdGoToPage, wdGoToAbsolute, 6).Start, aDoc.Content.End - 1)
   
7.     rng.Font.NameFarEast = "宋体"
   
8.     rng.Font.Size = 9
   
9.     rng.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
   
10. End Sub

复制代码

woyaofacai

zhanglei1371 发表于 2019-7-11 21:39
可以执行啊：

如果文档中存在N多个表格，也要对第5页后面的表格进行规范格式时，执行对齐或表格内的字体的VBA时，所有文档的表格都统一处理了，并没有区分是在第5页后才执行，有没有可以简化不管是文字或表格，只有在第5页后面才执行VBA？

413191246se

1. Sub test()
   
2.     Dim t As Table
   
3.     With Selection
   
4.         .GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="5"
   
5.         .EndKey Unit:=wdStory, Extend:=wdExtend
   
6.         .ClearFormatting
   
7.         With .Font
   
8.             .Kerning = 0
   
9.             .DisableCharacterSpaceGrid = True
   
10.         End With
    
11.         With .ParagraphFormat
    
12.             .Space15
    
13.             .AutoAdjustRightIndent = False
    
14.             .DisableLineHeightGrid = True
    
15.         End With
    
16.         For Each t In .Tables
    
17.             With t.Range.Rows
    
18.                 .WrapAroundText = False
    
19.                 .Alignment = wdAlignRowCenter
    
20.                 .Parent.Font.Color = wdColorRed
    
21.             End With
    
22.         Next
    
23.     End With
    
24. End Sub

复制代码

woyaofacai

413191246se 发表于 2019-7-12 15:27

我按上面的语句修改，页数执行始终不对，下面是我原的语句，请指教一下
Sub test()
   Dim MyTable As Table
Dim t As Table, n As Long, c As Cell
For Each wTab In ActiveDocument.Tables
    If Selection.Information(wdWithInTable) = True Then i = 1
    For Each t In ActiveDocument.Tables
Application.ScreenUpdating = False
For Each MyTable In ActiveDocument.Tables
MyTable.PreferredWidthType = wdPreferredWidthPercent
MyTable.PreferredWidth = 100
Next
Application.ScreenUpdating = True
For Each wCel In wTab.Range.Cells
      If Len(wCel.Range) > 2 Then
        If Len(wCel.Range) > 2 And IsNumeric(Left(wCel.Range, Len(wCel.Range) - 2)) Then
          wCel.Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        Else
        With t.Rows
             .WrapAroundText = False
             .Alignment = wdAlignRowLeft
             .HeightRule = wdRowHeightAtLeast
             .Height = CentimetersToPoints(0.6)
             End With
             With t.Range
             .Font.Name = "宋体"
             .Font.Name = "宋体"
             .Font.Size = 10
             End With
          For Each c In t.Range.Cells
            If c.Range Like "合计*" Then
                With c.Range
                   ' With .Font
                .ParagraphFormat.Alignment = wdAlignParagraphCenter
                End With
           End If
        Next
  End If
End If
Next
Next
Next
End Sub

413191246se

    楼主，你这句代码 For Each wTab In ActiveDocument.Tables 是处理全文表格，如果表格在第 1-4 页，这不是你的要结果。
    我的代码选定从第 5 页到文尾所有文字内容，这部分内容为 Selection，你要对这个 Selection（选定内容）处理，请将两处 ActiveDocument.Tables 写成 For Each wTab In Selection.Tables 才行（有时可以将 Selection 设为 Range 也行）。