[已解决]杜先生及各位请进：如何选中插入页码后页码所在图文框？

413191246se

——因正在折腾公文格式，要求插入页码必须是4号半角宋体一字线，但插入页码域后一选择“外侧”页码跑了，一字线原地不动，所以，必须选中插入页码后页码所在图文框才行，但不知如何才能选中。
——请 杜先生 及各位朋友 指教，谢谢！

413191246se

参看了 守柔版主 的一句代码，另辟蹊径，解决了问题，应该是没问题了。页眉页脚这块不如文字好办，达到目的就行了。
***下面是《插入页码-公文一字线》的代码：

1. Sub test()
   
2. 
   
3. '插入页码_公文一字线
   
4.     On Error Resume Next
   
5.     ActiveDocument.StoryRanges(wdPrimaryFooterStory).Frames(1).Cut
   
6. 
   
7. '页码格式设为数字
   
8.     With Selection.Sections(1).Headers(1).PageNumbers
   
9.         .NumberStyle = wdPageNumberStyleArabic
   
10.         .HeadingLevelForChapter = 0
    
11.         .IncludeChapterNumber = False
    
12.         .ChapterPageSeparator = wdSeparatorHyphen
    
13.         .RestartNumberingAtSection = False
    
14.         .StartingNumber = 0
    
15.     End With
    
16. 
    
17. '插入页码(右侧)
    
18.     Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight, FirstPage:=True
    
19. 
    
20. '编辑页码
    
21.     ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Select
    
22.     Selection.MoveEnd Unit:=wdCharacter, Count:=-2
    
23. 
    
24. '页码前后插入一字线
    
25.     Selection.TypeText Text:=Chr(-24159)
    
26.     Selection.InsertSymbol Font:="宋体", CharacterNumber:=8212, Unicode:=True
    
27.     Selection.TypeText Text:=" "
    
28.     Selection.MoveRight Unit:=wdCharacter, Count:=1
    
29.     Selection.TypeText Text:=" "
    
30.     Selection.InsertSymbol Font:="宋体", CharacterNumber:=8212, Unicode:=True
    
31.     Selection.TypeText Text:=Chr(-24159)
    
32.     Selection.Paragraphs(1).Range.Select
    
33. 
    
34. '宋体、四号
    
35.     With Selection.Font
    
36.         .NameFarEast = "宋体"
    
37.         .NameAscii = "宋体"
    
38.         .NameOther = ""
    
39.         .Name = ""
    
40.         .Size = 14
    
41.         .Color = wdColorAutomatic
    
42.     End With
    
43. 
    
44. '右缩进
    
45.     Selection.ParagraphFormat.CharacterUnitRightIndent = 1.5
    
46. 
    
47. '关闭窗格、恢复页面视图
    
48.     ActiveWindow.ActivePane.Close
    
49.     ActiveWindow.View.Type = wdPrintView
    
50. End Sub

复制代码

duquancai

413191246se 发表于 2017-4-16 20:47
参看了 守柔版主 的一句代码，另辟蹊径，解决了问题，应该是没问题了。页眉页脚这块不如文字好办，达到目的 ...

Sub test1()
    Dim aSe As Section
    For Each aSe In ActiveDocument.Sections
        aSe.Footers(1).Range.Delete
        aSe.Footers(1).PageNumbers.Add 2, True
        With aSe.Footers(1).Range.Frames(1).Range
            .Collapse 0: .InsertAfter "一"
        End With
        With aSe.Footers(1).Range.Frames(1).Range
            .Collapse: .InsertAfter "一"
        End With
    Next
End Sub

413191246se

——阿弥陀佛！罪过！罪过！
——昨晚才看到 杜先生 回复。杜先生高明！厉害！
——我整合了一下 杜先生 的代码，原来没有页码时会出错，现在不会了，我认为此宏已经成功！
——非常感谢 杜先生！心里的感激无以言表，祝福 杜先生 一切安好！
——别累着，不愿意给我们指导就不必指导，好好休息！
——下面是改良的宏代码：

1. Sub 插入页码_公文一字线()
   
2. 'code by duquancai
   
3. 
   
4.     Dim aSe As Section
   
5.     For Each aSe In ActiveDocument.Sections
   
6.         aSe.Footers(1).Range.Delete
   
7.         
   
8.         '页码格式设为数字
   
9.         With aSe.Footers(1).Range.Sections(1).Headers(1).PageNumbers
   
10.             .NumberStyle = wdPageNumberStyleArabic
    
11.             .HeadingLevelForChapter = 0
    
12.             .IncludeChapterNumber = False
    
13.             .ChapterPageSeparator = wdSeparatorHyphen
    
14.             .RestartNumberingAtSection = False
    
15.             .StartingNumber = 0
    
16.         End With
    
17.         
    
18.         aSe.Footers(1).PageNumbers.Add 2, True '插入页码
    
19.         With aSe.Footers(1).Range.Frames(1).Range
    
20.             .Select
    
21.             
    
22.             '页码前后插入一字线
    
23.             Selection.TypeText Text:=Chr(-24159)
    
24.             Selection.InsertSymbol Font:="宋体", CharacterNumber:=8212, Unicode:=True
    
25.             Selection.TypeText Text:=" "
    
26.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
27.             Selection.TypeText Text:=" "
    
28.             Selection.InsertSymbol Font:="宋体", CharacterNumber:=8212, Unicode:=True
    
29.             Selection.TypeText Text:=Chr(-24159)
    
30.             Selection.Paragraphs(1).Range.Select
    
31.         
    
32.             '宋体、四号
    
33.             With Selection.Font
    
34.                 .NameFarEast = "宋体"
    
35.                 .NameAscii = "宋体"
    
36.                 .NameOther = ""
    
37.                 .Name = ""
    
38.                 .Size = 14
    
39.                 .Color = wdColorAutomatic
    
40.                 .Kerning = 0
    
41.                 .DisableCharacterSpaceGrid = True
    
42.             End With
    
43.             With Selection.ParagraphFormat
    
44.                 .CharacterUnitRightIndent = 1.5
    
45.                 .AutoAdjustRightIndent = False
    
46.                 .DisableLineHeightGrid = True
    
47.             End With
    
48.         End With
    
49.     Next
    
50. 
    
51. '关闭窗格、恢复页面视图
    
52.     ActiveWindow.ActivePane.Close
    
53.     ActiveWindow.View.Type = wdPrintView
    
54. End Sub

复制代码

ke3088

413191246se 发表于 2017-4-18 13:40
——阿弥陀佛！罪过！罪过！
——昨晚才看到 杜先生 回复。杜先生高明！厉害！
——我整合了一下 杜先生  ...

转帖sylun兄的一段代码：

Sub test()
    With ActiveDocument.Sections(1)
        .Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberOutside, FirstPage:=True
        With .Footers(wdHeaderFooterPrimary).Range.Frames(1).Range
            .InsertBefore "— "
            .InsertAfter " —"
            .Font.NameAscii = "宋体"
            .Font.Size = 14
            .ParagraphFormat.RightIndent = 14
            .ParagraphFormat.LeftIndent = 14
        End With
    End With
End Sub

ke3088

经过在多台电脑测试，sylun兄的代码在多节时，如果word没有设置过页码数字格式，效果颇佳；如果页码格式设置过为带短线的数字格式，第一节没有问题，其他节的页码为带短线的数字加上外面的中文长线。在sylun兄的代码前加上：
For Each sec In ActiveDocument.Sections
　　sec.Footers(wdHeaderFooterPrimary).PageNumbers.NumberStyle = wdPageNumberStyleArabic
Next sec
就可以完全达到公文的页码要求，完整代码如下：

Sub test()
    For Each sec In ActiveDocument.Sections
        sec.Footers(wdHeaderFooterPrimary).PageNumbers.NumberStyle = wdPageNumberStyleArabic
    Next sec
    With ActiveDocument.Sections(1)
        .Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberOutside, FirstPage:=True
         With .Footers(wdHeaderFooterPrimary).Range.Frames(1).Range
              .InsertBefore "- "
              .InsertAfter " -"
              .Font.NameAscii = "宋体"
              .Font.Size = 14
              .ParagraphFormat.RightIndent = 14
              .ParagraphFormat.LeftIndent = 14
         End With
     End With
End Sub