宏代码如下
==============================================================
Sub Add4line()
'注意录入的字体必须设置为"Times New Roman",字号为13.5号,并且每一行为一个段落
Dim i As Paragraph, MyLine As Shape, Myshape As Shape, myRange As Range, H As Integer
Dim WP As Single, PP As Single, TP As Single, lp As Single, RP As Single, n As Byte
On Error Resume Next '忽略错误
With ActiveDocument.PageSetup
WP = .PageWidth '页面宽度
lp = .LeftMargin '左页边距
RP = .RightMargin '右页边距
End With
'根据区域不同,进行设置,如果未选定内容则在全文档中进行,反之则在选