有关Word创建英语练字模板的宏

宏代码如下

==============================================================

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
    '根据区域不同,进行设置,如果未选定内容则在全文档中进行,反之则在选