VB ET WORD

Le fichier Word est AIDE.DOC

' -------------------------------------------------------------
' Affichage d'une rubrique de l'aide
' Le fichier d'aide HTML est dans la variable globale GFicAide
'
' Création : webcyril - Février 2001
' --------------------------------------------------------------
Sub PRAfficheAide(signet As String)
    Dim NomFicAideComplet As String
    Dim Directory As String
    Dim RunString As String
    Dim Cmd As String
    Dim WW As Word.Application
    Dim MyDoc As Word.Document
  
    NomFicAideComplet = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "AIDE.DOC"
   
    If Dir(NomFicAideComplet) = "" Then
      MsgBox "aucune aide n'est disponible !", vbOkonly+vbExclamation
      Exit Sub
    End If
    
    On Error Resume Next
    Set WW = GetObject(, "word.application")
    If Err.Number <> 0 Then
        On Error GoTo 0
        On Error Resume Next
        Set WW = CreateObject("word.application")
        If Err.Number <> 0 Then
            MsgBox "Aide non accessible avec cette version de Word !", vbExclamation
            Exit Sub
        End If
        On Error GoTo 0
    Else
        On Error GoTo 0
        AppActivate WW.Caption
    End If
    
    ' ouverture du document en lecture-seule
    ' et en plein écran !
    WW.Application.Documents.Open Filename:=NomFicAideComplet, ReadOnly:=True

    ' recherche signet
    Set MyDoc = WW.ActiveDocument
    If MyDoc.Bookmarks.Exists(signet) = True Then
        MyDoc.Bookmarks(signet).Select
    End If
    
    ' on remonte d'un scroll-bar
    WW.Selection.MoveDown Unit:=wdScreen, Count:=1
    
    ' Word visible
    WW.Visible = True
    WW.WindowState = wdWindowStateMaximize
End Sub