VBA中WORD操作

屏幕刷新：
Application.ScreenUpdating = True'恢復刷新
Application.ScreenUpdating = False'關閉刷新（這樣運行能快一些）

光標移動：
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend '選中光標左側一個字符
Selection.MoveRight Unit:=wdCharacter, Count:=1 '光標右移一個字符
Selection.MoveLeft Unit:=wdCharacter, Count:=1 '光標左移一個字符

選中內容的操作
Selection.Delete'刪除所選內容
Selection.Copy'復制所選內容到剪貼板
Selection.PasteAndFormat (wdFormatOriginalFormatting) '粘貼

'當前行
x = Selection.Information(wdFirstCharacterLineNumber) '當前行