Vb et word

Soyez le premier à donner votre avis sur cette source.

Snippet vu 25 866 fois - Téléchargée 70 fois

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

Ajouter un commentaire

Commentaires

oliv_def
Messages postés
14
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
20 décembre 2007
-
salut a tous !
Je ne sais pas si c'est en rapport exact le prog posté, je cherche personnellement un prog qui va chercher des images dans un repertoire et qui les incorpore automatiquement dans un doc word : en gros si les images changent : le doc word est updaté automatiquement pas besoir de re-insérer les images une a une...

Quelqu'un a t il des pistes sur ce sujet SVP ?
Merci ;-) d'avance !
C'est cool comme idée :)
Comment je pourrais faire pour exporter le contenu d'un data report dans Word, afin de permettre Èa l'usager de refaire la mise en page Èa sa guise?
comment je peourais faire pour envoyer le contenu dun webbrowser dans word et que quand vient le temps de la convertion il ne te demande pas limprimant tout doit se faire dans le code merci de la reponsse
Pour mémère
Peux-tu envoyer ton code, plutôt de critiquer les autres ?
Quelle éducation ?
Idée intéressante...
Mais il est plus sur de revenir aux fichiers HTML...de loin plus portable..
Continues, Tu progresseras...

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.