有关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
    '根据区域不同,进行设置,如果未选定内容则在全文档中进行,反之则在选定区域中进行
    If Selection.Type = wdSelectionIP Then
        Set myRange = ActiveDocument.Content
    Else
        Set myRange = Selection.Range
    End If
    Application.ScreenUpdating = False '关闭屏幕更新
    For Each i In myRange.Paragraphs '在指定区域中循环
    H = H + 1 '计数
        With i.Range '对段落进行初始化设置,以达到要求
            .Font.Size = 17 '字号
            .Font.Name = "Rai" '字体
            .Font.Color = wdColorBlueGray
            .ParagraphFormat.SpaceBefore = 0 '段前为0
            .ParagraphFormat.SpaceAfter = 0 '段后为0
            .ParagraphFormat.LineSpacing = 23 '行距为23磅
            TP = i.Range.Information(wdVerticalPositionRelativeToPage) + 5 '取得段落的垂直位置
            For n = 0 To 3 '循环划直线
                Set MyLine = ActiveDocument.Shapes.AddLine(lp, TP + 8 * n, WP - RP, TP + 8 * n)
                MyLine.Name = "Line" & H & n
                MyLine.Line.ForeColor.RGB = RGB(Red:=150, Green:=150, Blue:=150)
                If n = 0 Then MyLine.Line.ForeColor.RGB = RGB(Red:=0, Green:=0, Blue:=150)
                If n = 2 Then MyLine.Line.Weight = 1.5 '当N为2时的直线为1.5磅
                If n = 3 Then MyLine.Line.ForeColor.RGB = RGB(Red:=150, Green:=0, Blue:=0)
            Next
            '组合四条直线
           Set Myshape = ActiveDocument.Shapes.Range(Array _
            ("Line" & H & 0, "Line" & H & 1, "Line" & H & 2, "Line" & H & 3)).Group
            Myshape.ZOrder msoSendBehindText '浮于文字下方

        End With
    Next
    Application.ScreenUpdating = True '恢复屏幕更新
End Sub

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

深入理解WORD高级排版之模板与加载项
WORD中四大核心技术是样式.域.宏和模板.本文集中讨论模板使用中的有关"模板与加载项"方面的疑问. 一.模板技术模板是一类特殊的Word文档,它提供了编辑文档的基本工具和文本格 ...
Word2000下创建名片制作模板(转)
Word2000下创建名片制作模板(转) 尽管Word2000提供的"向导"."信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活.我们用Wor ...
幻灯片更换模板_如何创建Google幻灯片模板
幻灯片更换模板 If you find yourself creating the same outline of a presentation over and over again, you ca ...
谷歌java模板_如何创建Google表格模板
谷歌java模板 If you find yourself creating the same spreadsheet outline over and over again in Google Sh ...
staruml画的图怎么加载到word_StarUML配置Word生成文档模板
许多UML建模工具可以自动生成文档,让需求人员.开发人员专心于需求.设计的建模.当然为了能够生成符合自己要求的模板,需对建模时的目录结构(模型和包)有所规划和要求,否则很难生成相应的文档.这要求提前了 ...
计算机软件制作程序,使用Word和Excel制作模板打印方法_计算机软件和应用程序_IT /计算机_资源...
使用Word和Excel制作模板A,并打印自我设计证书. 除了一些不固定的信息(例如姓名,等级,科目,奖项,讲师等)之外,其余内容都是固定的. 1.在具有五列的Excel表中创建一个新表,并将标题写在 ...
计算机英语教案模板,小学英语教案模板三篇
小学英语教案怎么写?无忧考网小编整理了小学英语教案模板三篇,希望对你有帮助! <How Do You Go to School?>教学设计模板一.教材分析: 本课是冀教版小学英语(三年级 ...
easypoi的使用（Word、Excel基于模板的导出）
Linux easypoi的使用(Word.Excel基于模板的导出) easypoi官网地址. easypoi 使用easypoi所需要的依赖 <dependency><group ...
前端表单 word_如何使用Microsoft Word创建可填写的表单
前端表单 word Creating forms with Microsoft Word is easy, but the challenge comes in when you decide to ...

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

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

最新文章

热门文章