1.     ActiveDocument.BeginCommandGroup "aa" '开始记录操作
    2.     Application.Optimization = True '阻止界面刷新
    3.     Dim OrigSelection As ShapeRange, sh As Shape, cs As New ShapeRange
    4.     Set OrigSelection = ActiveSelectionRange
    5.     Set cs = OrigSelection.Shapes.FindShapes("", cdrCurveShape)
    6.         OrigSelection.ApplyNoFill'不填充颜色
    7.     'cs.ApplyUniformFill CreateCMYKColor(0, 100, 100, 0)
    8.     For Each sh In cs
    9.         sh.Outline.Color = CreateCMYKColor(65, 69, 0, 0)'更改颜色
    10.     Next
    11.     OrigSelection.ApplyUniformFill CreateCMYKColor(65, 69, 0, 0)'填充颜色
    12.     ActiveDocument.EndCommandGroup '结束记录操作
    13.     Application.Optimization = False '恢复界面刷新
    14.     ActiveWindow.Refresh '刷新当前界面