VBA如何给WORD设置页面边框？

chenlifeng123

老师好。我通过手动录制宏，可以设置页面边框 (即在word文档的四周各添加一条线，正好封闭像一个大口形状)，代码如下。但该代码只是一时生效，当我新建一个word时就没有用了,请问如何修正录制的代码,或是有无其它方法解决呢?感谢老师~!

1. Sub 宏1()
   
2.     With Selection.Sections(1)
   
3.         With .Borders(wdBorderLeft)
   
4.             .LineStyle = wdLineStyleSingle
   
5.             .LineWidth = wdLineWidth050pt
   
6.             .Color = wdColorAutomatic
   
7.         End With
   
8.         With .Borders(wdBorderRight)
   
9.             .LineStyle = wdLineStyleSingle
   
10.             .LineWidth = wdLineWidth050pt
    
11.             .Color = wdColorAutomatic
    
12.         End With
    
13.         With .Borders(wdBorderTop)
    
14.             .LineStyle = wdLineStyleSingle
    
15.             .LineWidth = wdLineWidth050pt
    
16.             .Color = wdColorAutomatic
    
17.         End With
    
18.         With .Borders(wdBorderBottom)
    
19.             .LineStyle = wdLineStyleSingle
    
20.             .LineWidth = wdLineWidth050pt
    
21.             .Color = wdColorAutomatic
    
22.         End With
    
23.         With .Borders
    
24.             .DistanceFrom = wdBorderDistanceFromPageEdge
    
25.             .AlwaysInFront = True
    
26.             .SurroundHeader = False
    
27.             .SurroundFooter = False
    
28.             .JoinBorders = False
    
29.             .DistanceFromTop = 24
    
30.             .DistanceFromLeft = 24
    
31.             .DistanceFromBottom = 24
    
32.             .DistanceFromRight = 24
    
33.             .Shadow = False
    
34.             .EnableFirstPageInSection = True
    
35.             .EnableOtherPagesInSection = True
    
36.             .ApplyPageBordersToAllSections
    
37.         End With
    
38.     End With
    
39.     With Options
    
40.         .DefaultBorderLineStyle = wdLineStyleSingle
    
41.         .DefaultBorderLineWidth = wdLineWidth050pt
    
42.         .DefaultBorderColor = wdColorAutomatic
    
43.     End With
    
44. End Sub
    

复制代码

duquancai

1. Sub shishi()
   
2.     For i = 1 To 4
   
3.         ActiveDocument.Sections(1).Borders(-i).LineStyle = 1
   
4.     Next
   
5. End Sub

复制代码

chenlifeng123

duquancai 发表于 2017-1-19 20:47

感谢您的帮助与关注，上面不是我想要的答案哈。
已经解决，我要的答案是：

1. With ActiveDocument.Sections(1)
   
2.             .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
   
3.             .Borders(wdBorderRight).LineStyle = wdLineStyleSingle
   
4.             .Borders(wdBorderTop).LineStyle = wdLineStyleSingle
   
5.             .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
   
6.         End With
   
7.         ActiveDocument.ActiveWindow.View.DisplayPageBoundaries = True '本句对页面的边框显示起关键性作用，不能丢。有这一问也是因为之前没有加这一句话

复制代码

chenlifeng123

duquancai 发表于 2017-1-19 20:47

执行您的代码没有新建页面边框哈

duquancai

chenlifeng123 发表于 2017-1-20 16:44
执行您的代码没有新建页面边框哈

我回答你 很抱歉 是我错了！我不应该回答的。

chenlifeng123

duquancai 发表于 2017-1-20 16:56
我回答你 很抱歉 是我错了！我不应该回答的。

抱歉，回复迟了，同时让老师看到有些生气，是我做得不好，对不起~
可能我表达方式不当，但我并没有其它意思，我上一条消息只是说明无关告诉老师的代码在我这儿的执行结果。我这样做的原因，主要就是表达我对老师的付出表示尊重，总不能说您的代码一贴出来，我一点也没尝试或是尝试的结果也不公布。
如果在您那儿执行没有问题，那么说明是我电脑或是我的办公系统安装等等原因或是未知原因造成的。
我本意真的没有半点反感老师或是责任之类的话，是我表达不对，还请老师见谅。实在对不起~