Private Declare Function HtmlHelp Lib "hhctrl.ocx" _
Alias "HtmlHelpA" (ByVal hwndCaller As Long, _
ByVal pszFile As String, ByVal uCommand As _
Long, ByVal dwData As Long) As Long
 
Private Const HH_DISPLAY_TOPIC = &H0
Private Const HH_CLOSE_ALL = &H12

Private Sub cmdHilfe_Click()
 Dim Datei As String
 Dim strPfadGruppe As String
 'strPfadGruppe = Options.DefaultFilePath(wdWorkgroupTemplatesPath)
 'Datei = strPfadGruppe & "\Hilfe\hilfedatei.chm"
 Datei = "c:\hilfe\pts.chm"
    Call HtmlHelp(0, Datei, HH_DISPLAY_TOPIC, ByVal 0&)
End Sub

Private Sub cmdAbbrechen_Click()
'Call HtmlHelp(Me.hwnd, "", HH_CLOSE_ALL, 0)
        HtmlHelp Me.hwnd, "", HH_CLOSE_ALL, 0&
 
Unload Me
ActiveDocument.Saved = True
ActiveDocument.Close
End Sub

Herzliche Gr??e, die Judi!

Beitrag wurde zuletzt am 23.08.08 um 17:26:40 editiert.