在做一个word的操作时是十分繁琐且不好处理的, 下面的宏模拟键盘输入,修改表格的宽度到 1.00 厘米 . 需要人手工激活窗口. 为脚本设置快捷键便可以愉快的玩耍了.

    1. dim wsh
    2. set wsh = createobject("wscript.shell")
    3. for i=1 to 10     
    4. wscript.sleep 300
    5. wsh.sendkeys "%jlw"
    6. wsh.SendKeys "1.00"
    7. wsh.SendKeys "{ENTER}"
    8. wsh.SendKeys "{TAB}"
    9. next
    BACKSPACE {BACKSPACE} or {BS}
    BREAK {BREAK}
    CAPS LOCK {CAPSLOCK}
    CLEAR {CLEAR}
    DELETE or DEL {DELETE} or {DEL}
    DOWN ARROW {DOWN}
    END {END}
    ENTER (numeric keypad) {ENTER}
    ENTER ~ (tilde)
    ESC {ESCAPE} or {ESC}
    HELP {HELP}
    HOME {HOME}
    INS {INSERT}
    LEFT ARROW {LEFT}
    NUM LOCK {NUMLOCK}
    PAGE DOWN {PGDN}
    PAGE UP {PGUP}
    RETURN {RETURN}
    RIGHT ARROW {RIGHT}
    SCROLL LOCK {SCROLLLOCK}
    TAB {TAB}
    UP ARROW {UP}
    F1 through F15 {F1} through {F15}
    To combine a key with Precede the key code with
    Shift + (plus sign)
    Ctrl ^ (caret)
    Alt % (percent sign)