Attribute VB_Name = "NewMacros"
Sub pastespecial()
Attribute pastespecial.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.pastespecial"
'
' pastespecial 宏
'快捷键：alt－s,快速粘贴无格式文本
'
Selection.Collapse Direction:=wdCollapseStart
Selection.pastespecial DataType:=wdPasteText
End Sub
Sub indent()
Attribute indent.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.ind...