Sub 插入强化训练()

Sub 插入强化训练()
'
' 插入强化训练 宏
'
'
Selection.TypeText Text:="【】"
Selection.MoveLeft unit:=wdCharacter, Count:=1
Selection.TypeText Text:="强化训练"
'选择当前行
Selection.HomeKey unit:=wdLine
Selection.EndKey unit:=wdLine, Extend:=wdExtend


Selection.Font.Size = 12
End Sub