excel
1.先在尺标调整右缩进使文字宽度适当，文字设置为红色，然后运行此宏: Sub ins_enter() 'by sylun
excelhome '行末加硬回车for
word200派病对温显证酸对3 Application.ScreenUpdating = False With ActiveDocument.Content.Find .ClearFormatting .Font.Color = wdColorRed .Format = True Do While .Execute .***.Select With Selection Do .MoveStart wdLine, wdExtend If .Previous Like [! & Chr(11) & - & Chr(13) & ] Then .InsertBefore Chr(13) .Star系析牛早底办t = .Start + 1 Loop Until .Type = wdSelectionIP End With Loop End With Application.ScreenUpdating = True End Sub 2.复制加过硬回车的段落，选择相应数量的表行，粘贴
