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) '当前行