|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
我新建一个按钮,
点击打开一个链接,但是运行的效果和我直接在IE上打开链接的效果不同请问是什么原因?Sub Exitdoc()
Dim ServerName, FoldName, Url2, tempstr, id, Msg, Style, Title, Help, Ctxt, Response, MyString
Formid = ThisDocument.Application.CommandBars("Km2000").Controls(3).Caption
caps = Split(ThisDocument.Application.CommandBars("Km2000").Controls(4).Caption, ";")
'Url = caps(1) & "/dzzw/dboutdoc.nsf/" & Replace(Formid, "+", "/") & "?editdocument&" & Now()
Url2 = caps(1) & "/dzzw/dboutdoc.nsf/Attach?OpenAgent&DocId=" & Replace(Formid, "+", "/")
Msg = "您决定退出 ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "退出提示" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MsgBox (Url2)
UserForm3.WebBrowser1.Navigate (Url2)
ThisDocument.Application.Quit SaveChanges:=False
Else ' 用户按下“否”。
ThisDocument.ActiveWindow.Document.Activate
End If
End Sub
[em25][em25][em25][em25] |
|