Sub 宏4()
'
' 宏4 宏
'
'
    ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 69.75, 5.25, _
        3#, 699#).Select
    Selection.ShapeRange.Width = 4.25
    ActiveDocument.Shapes.AddTextbox(msoTextOrientationVerticalFarEast, 22.5 _
        , 28.5, 43.5, 629.25).Select
    Selection.ShapeRange.TextFrame.TextRange.Select
    Selection.Collapse
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.Orientation = wdTextOrientationHorizontal
    Selection.Orientation = wdTextOrientationUpward
    Selection.TypeText Text:= _
        "学院                             班级                           "
    Selection.TypeText Text:="        姓名"
    Selection.ShapeRange.Select
    ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 42.75, 513.75, _
        1.5, 114.75).Select
    Selection.ShapeRange.Flip msoFlipHorizontal
    Selection.ShapeRange.Flip msoFlipVertical
    ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 44.25, 337.5, _
        0#, 114.75).Select
    Selection.ShapeRange.Flip msoFlipVertical
    ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 44.25, 124.5, _
        0#, 122.25).Select
    Selection.ShapeRange.Flip msoFlipVertical
End Sub

Sub 宏4()
'
' 宏4 宏
'
'
    ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 69.75, 5.25, _
        3#, 699#).Select
    Selection.ShapeRange.Width = 4.25
    ActiveDocument.Shapes.AddTextbox(msoTextOrientationVerticalFarEast, 22.5 _
        , 28.5, 43.5, 629.25).Select
    Selection.ShapeRange.TextFrame.TextRange.Select
    Selection.Collapse
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.Orientation = wdTextOrientationHorizontal
    Selection.Orientation = wdTextOrientationUpward
    Selection.TypeText Text:= _
        "学院                             班级                           "
    Selection.TypeText Text:="        姓名"
    Selection.ShapeRange.Select
    ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 42.75, 513.75, _
        1.5, 114.75).Select
    Selection.ShapeRange.Flip msoFlipHorizontal
    Selection.ShapeRange.Flip msoFlipVertical
    ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 44.25, 337.5, _
        0#, 114.75).Select
    Selection.ShapeRange.Flip msoFlipVertical
    ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 44.25, 124.5, _
        0#, 122.25).Select
    Selection.ShapeRange.Flip msoFlipVertical
End Sub