选中没有换行符的当前行
With Selection .HomeKey unit:=wdLine, Extend:=wdExtend .MoveEnd unit:=wdLine, Count:=1 End With If Selection.Text Like "*" & Chr(13) Then _ Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend