edysoftware.com

MasterHelp has two type menus, menu bar and PopUp Menu, Menu bar create manual / not programmming, But popup menu is created by copied menu bar.

Public Sub AddPopupMasterHelp()
Dim i
Dim sty As CommandBar
Set mydoc = ActiveDocument
For Each sty In mydoc.CommandBars
If sty.Type = 2 Then
PopupMasterHelp (sty.Name)
End If
Next sty
End Sub

Public Sub PopupMasterHelp(nama As String)
Dim ShortCutMenu As CommandBar
Dim MasterHelp As CommandBarPopup
Set MasterHelp = ShortCutMenu.Controls.Add(Type:=msoControlPopup, Temporary:=True)
With MasterHelp
.BeginGroup = True
.Caption = “&Master Help”
.OnAction = “Men1″
End With

end sub

Public Sub Men1()
Dim cbrOriginal As CommandBarControl
Dim ctlCBarControl As CommandBarControl
Dim lngBarType As Long
Dim Ctrl As CommandBarControl
Dim ThesaurusMenu As CommandBarPopup
System.Cursor = wdCursorWait
Set ThesaurusMenu = CommandBars.ActionControl
Set cbrOriginal = CommandBars(”Menu bar”).Controls(”Format”)
For Each Ctrl In ThesaurusMenu.Controls
Ctrl.Delete
Next Ctrl

For Each ctlCBarControl In cbrOriginal.Controls
With ThesaurusMenu.Controls.Add(Type:=msoControlButton, Temporary:=True)
On Error Resume Next
If ctlCBarControl.BeginGroup Then .BeginGroup = True
.Parameter = ctlCBarControl.Parameter
ctlCBarControl.CopyFace
.PasteFace
.Caption = ctlCBarControl.Caption
.OnAction = ctlCBarControl.OnAction
End With
Next ctlCBarControl
End Sub

Public Sub hlpfile()
Dim ProjectPath$
Dim Project$
Dim dotpath$
Dim myTemplate
Dim TempPath$
Dim dot$
Dim masterdot$
Dim tempdot$
Dim masterhlp$
Dim temphlp$
Dim pesan
On Error Resume Next
Set myTemplate = ActiveDocument.AttachedTemplate
TempPath$ = myTemplate.path ‘& Application.PathSeparator
dot$ = “\” + myTemplate.Name
dotpath$ = Application.NormalTemplate.path
masterhlp$ = TempPath$ + “\MasterHelp.dot”
temphlp$ = dotpath$ + “\MasterHelp.dot”
If Not cekfile(dotpath$, “MasterHelp.dot”) Then
GoTo kirim
Else
GoTo bye
End If
kirim:

Continue Reading…