jkluio668
12/25/2017 - 4:35 PM

vba_word 选中当前行

选中没有换行符的当前行

    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