Vb et word

Commenter

Contenu du snippet

Ce code permet d'ouvrir de puis VB un document
Word et se placer sur un signet donné !
Très pratique pour faire des aides en ligne
moins gourmande qu'une aide HTML !!

Source / Exemple : 


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

Conclusion :


Excellent non !!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (webcyril)