主題 :
利用Notes Script將Word功能表中的指定選項隱藏
分類
:
Notes Client
內文:
Dim xlFilename As String
Dim session As New NotesSession
xlFilename="C:\temp\test.doc"
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim w As New NotesUIWorkspace
Dim WordDocs As Variant
Dim WordDoc As Variant
Dim oMainMenuBar As Variant
Dim submenu As Variant
Dim control1 As Variant
Dim control2 As Variant
Dim control3 As Variant
Dim object As Variant
Dim WordObj As Variant
Dim prints As Variant
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Set db = session.CurrentDatabase
Set WordObj = CreateObject("Word.Application")
WordObj.visible = True
Set WordDocs = WordObj.Documents
Print "Opening.." & xlFilename &"...."
WordObj.Documents.Open xlFilename
Set WordDoc = WordObj.ActiveDocument
Set oMainMenuBar = WordObj.CommandBars.Item("Menu Bar")
Set submenu=oMainMenuBar.Controls("檔案(&F)")
Set control1=submenu.Controls("列印(&P)...")
Set control2=submenu.Controls("預覽列印(&V)")
Set control3=submenu.Controls("版面設定(&U)...")
control1.Enabled=False
control2.Enabled=False
control3.Enabled=False