word录制宏-插入页码-运行时错误5941，求大佬解决

413191246se

呵呵！最近，我看你是本论坛最活跃的专家了！现在，你已经是我的老师了！虽然我来论坛已经将近有 11 年了，但水平不高，仅仅初步掌握了一下基础 VBA 用法，像数组、函数、正则等高级应用，我是一窍不通。我的《插入页码公文一字线》宏，就算是抛砖引玉吧！不太适合 楼主 的问题，我对图文框也知之甚少，可以仅仅看作是给两位（包括 楼主）的借鉴吧！

batmanbbs

老师专家哪里谈得上，不会的东西太多了。现在刚刚入门，就是想通过解决实际问题来熟悉VBA，这种方式快速有效。但还是不如系统学习，因为仍不掌握VBA的各项方法和属性，更别说应用了。就像前面遇到那个控件问题，根本就不知道OLE和OBJECT，要不是守候老师解惑，根本就不会，就算看M$ WORD VBA教程也不会，所以系统学习还是很重要！可惜精力有限，又不是靠这个吃饭，所以学习还是远远不够的。

PS：现在论坛怎么觉得有点冷清，大佬高手基本不发声，学习的机会太少了：（

eh864166675

wordvba的书籍，我看京东就一本

413191246se

batmanbbs 发表于 2023-6-4 09:48
老师专家哪里谈得上，不会的东西太多了。现在刚刚入门，就是想通过解决实际问题来熟悉VBA，这种方式快速有 ...

可以翻看本论坛以前的高人大神各位老师的回复帖子，可能是有些问题比较低级，大佬们不会轻易出手。建议，还是将基础知识打牢，比如《微软官方 VBA 帮助文档》这个 VBAWD10.CHM 文档，前面的基础知识反复学习一下。然后，再看看比如像《VBA从入门到精通》这样的书籍。只要有学习 VBA 的热情就好，多来论坛帮助坛友实践中解决问题，提高自己。像我过去，自己编程《证书自动编号》、《千分位》、《人民币中文大写》等程序，完全“国产”（自己研制），虽然水平不高，但功能上几乎完全达标，能达到实用目的。兴趣是最好的老师！加油吧！但也要注意休息，劳逸结合。

413191246se

* 楼主，学习 Word VBA 的最好学习资料就是，免费的《微软官方 VBA 帮助文档》VBAWD10.CHM，请将该文档学习透彻后，再学习一下比如像《VBA从入门到精通》这样的深入书籍就更好了。
* 可别小看 VBAWD10.CHM！我从中学会了像 .MoveEnd/.MoveStart 等方法属性的运用，在实践中得心应手，受益匪浅。
*
* TO batmanbbs：可以找准一个方向或专题来深入探索，如：公文自动排版，或证书自动编号，或人民币中文大写等，也可以结合自己的工作以提高工效为前提。

周先生1573

batmanbbs 发表于 2023-6-1 09:57
你可以借这个机会正好认真学习一下啊^_^

给你简单弄了一下，没有考虑多节的问题，如果有多节，自己加个 ...

谢谢，能有文字版就最好啦

batmanbbs

周先生1573 发表于 2023-6-26 22:58
谢谢，能有文字版就最好啦

代码需要审核，而且审核非常慢，所以一般就截图。如有需要，可提供代码，就是需要耐心等待。。。

batmanbbs

周先生1573 发表于 2023-6-26 22:58
谢谢，能有文字版就最好啦

1. Sub 插入奇偶页码()
   
2. '
   
3. ' 注意：多个节需要添加循环
   
4. '
   
5.     Dim i As Byte
   
6.     With ActiveDocument
   
7.         ' 设置页面
   
8.         With .PageSetup
   
9.             .OddAndEvenPagesHeaderFooter = True
   
10.             .MirrorMargins = True
    
11.         End With
    
12.         ' 添加页码
    
13.         For i = 1 To 3 Step 2
    
14.             With .Sections(1).Footers(i)
    
15.                 With .PageNumbers
    
16.                     .NumberStyle = wdPageNumberStyleNumberInDash
    
17.                     .RestartNumberingAtSection = False
    
18.                     .StartingNumber = 1
    
19.                 End With
    
20.                 .Range.Fields.Add .Range, wdFieldPage
    
21.                 With .Range
    
22.                     With .Font
    
23.                         .Size = 14
    
24.                         .Name = "Times New Roman"
    
25.                     End With
    
26.                     With .ParagraphFormat
    
27.                         If i = 1 Then
    
28.                             .Alignment = wdAlignParagraphRight
    
29.                             .CharacterUnitRightIndent = 2
    
30.                         Else
    
31.                             .Alignment = wdAlignParagraphLeft
    
32.                             .CharacterUnitLeftIndent = 2
    
33.                         End If
    
34.                     End With
    
35.                 End With
    
36.             End With
    
37.         Next i
    
38.         '清除讨厌的页眉横线
    
39.         .Styles("页眉").ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
40.     End With
    
41. 
    
42. End Sub

复制代码

周先生1573

batmanbbs 发表于 2023-6-27 12:16

万分感谢，能设置横线格式为—，就是长横线就更加爱完美了

batmanbbs

周先生1573 发表于 2023-6-27 18:44
万分感谢，能设置横线格式为—，就是长横线就更加爱完美了

知道Quicker不，直接安装我编写的动作吧