- 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
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