主題 :利用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