sub Input
userNm = inputBox("Input your username")
ActiveDocument.Variables("yourVariable").SetContent userNm, true
end sub
2.运行外部程序
FUNCTION RunExe(cmd)
CreateObject("WScript.Shell").Exec(cmd)
END FUNCTION
SUB CallExample
RunExe("c:\Program Files\Internet Explorer\iexplore.exe")
END SUB
3.保存并退出
SUB SaveAndQuit
ActiveDocument.Save
ActiveDocument.GetApplication.Quit
END SUB
sub save
ActiveDocument.reload '加载
ActiveDocument.Save '保存
Application.Quit '退出
end sub
4.重新加载数据
SUB Reload
ActiveDocument.Reload'显示执行窗口= GUI上的“重新加载”按钮
END SUB
SUB DoReload
ActiveDocument.DoReload()'不显示执行窗口
END SUB
5.显示和隐藏工作表选项卡行
Sub ShowTab
set docprop = ActiveDocument.GetProperties
docprop.ShowTabRow=true
ActiveDocument.SetProperties docprop
End Sub
Sub HideTab
set docprop = ActiveDocument.GetProperties
docprop.ShowTabRow=false
ActiveDocument.SetProperties docprop
End Sub