Accueil > > > VB ET WORD
VB ET WORD
Information sur la source
Description
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
- 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
Conclusion
Excellent non !!
Sources du même auteur
INFORMATION (VERSION, TYPE, COPYRIGHT, DESCRIPTION D'UN FICH...INFORMATION (VERSION, TYPE, COPYRIGHT, DESCRIPTION D'UN FICHIER OCX, DLL OU EXE Routine VB pour récupérer les inforations Version, Type, Copyright et Description
d'un fichier DLL, OCX ou EXE choisi.
Cette routine permet de con...
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
WORD [ par dom ]
Comment récuperer le contenu d'un champ de formulaire access97 pour le placer dans un modèle de document word97.
enregistrer un document word [ par Christian ]
Bonjour à tous, et bravo pour la qualité de ce site sur VB "En Français".Depuis quelques jours je me prend la tête pour enregistrer un document Word à
Lancer une macro au démarrage d'un fichier Word [ par Super Franck ]
Comment lancer automatiquement une macro au démarrage d'un fichier Word
word [ par mich2000 ]
QUELLE EST LA COMMANDE EN VBPOUR CREER UN NOUVEAU FICHIER WORD ?mich2000
VBA - WORD [ par Blanche ]
Je désire faire une pause lors de l'exécution de la macro afin de permettre à l'utilisation de faire des corrections dans le document. Donc, une paus
Récupération des résultats d'une requête dans Word [ par Clement ]
est-il possible de récupérer les données d'une requête faites à partir d'une page ASP et de les insérer dans un fichier word ou texte (mais dans mon c
Mise à jour d'une formulaire créé en VBA/WORD [ par Blanche ]
J'ai créé un formulaire en VBA contenant les informations fixes qui apparaissent dans toutes mes documents Word. Ce que je voudrais faire, c'est donn
VBA : Automation d'Access vers Word [ par JS ]
Je suis à la recherche d'un code source en VBA pour Access faisant la chose suivante : 1. Lancer Word2. Charger un document type3. Remplacer des mots
Conversion Word -> HTML [ par Thermosam ]
Il me faudrait les sources d'un programme qui à partir d'un fichier Word génère un fichier correspondant en HTML (avec tous les TAGS).
tableau word [ par jeje ]
je voudrais remplir des tableaux qui sont sur un document word avec des info provenant d'une requète access.je ne sais pas comment identifier ces tabl
|
Derniers Blogs
NDEPEND V3. J'ADORE SON INTéGRATION AVEC VS2010NDEPEND V3. J'ADORE SON INTéGRATION AVEC VS2010 par tja
Après une petite introduction à son utilisation que vous pouvez lire ici j'ai également eu envie d'installer ma copie et de jouer un peu avec. Après les premières minutes de son utilisation. J'ai tout de suite ADORE. L'utilisation intuitive sans besoi...
Cliquez pour lire la suite de l'article par tja XNA 4.0 POUR CRéER DES JEUX 3D SOUS WINDOWS PHONE 7 SERIESXNA 4.0 POUR CRéER DES JEUX 3D SOUS WINDOWS PHONE 7 SERIES par RaptorXP
On savait déjà que le développement d'applications pour Windows Phone 7 Series se ferait par l'intermediaire de Silverlight et XNA. Les détails, et outils de développement (selon cetaines rumeurs) sont attendus pour le MIX10 la semaine prochaine à Las...
Cliquez pour lire la suite de l'article par RaptorXP [TOOLS] NDEPEND 3 DANS VISUAL STUDIO, WAAAAAAAOU!!![TOOLS] NDEPEND 3 DANS VISUAL STUDIO, WAAAAAAAOU!!! par JeremyJeanson
NDepend passé en version 3. Comme pour toute version majeur, la version 3 a son lots de nouveautés : performances, fonctionnalités accrues . etc . Mais dans tout cela il y a la fonctionnalité qui dénote. Le petit truc qui fait que NDepend me fait dire Waa...
Cliquez pour lire la suite de l'article par JeremyJeanson [WF4] GROSSES MéPRISES EN PERSPECTIVE SUR LE KIT DE MIGRATION WF3->WF4[WF4] GROSSES MéPRISES EN PERSPECTIVE SUR LE KIT DE MIGRATION WF3->WF4 par JeremyJeanson
Comme un certain nombre de fanatiques des flux RSS, je suis avec grand intérêt les articles de la team WCF/WF et forcément l'annonce d'hier concernant un kit de migration WF3->WF4 m'a fait chaud au c½ur ;) (pour rappel, mon post au sujet de la migratio...
Cliquez pour lire la suite de l'article par JeremyJeanson RéUNION DU CLUB MOSS PARISRéUNION DU CLUB MOSS PARIS par VANNESTE Xavier
Bonjour à tous la réunion du club moss aura lieu le 15 mars 2010 à 14 heures:
14:00 - 14:05 Paris, EROL GIRAUDY + Gaetan BOUVERET + Nicolas Georgeault intro Présentateur : Pierre Erol GIRAUDY14:05 - 14:30 Paris, Worflow - visio Services - We...
Cliquez pour lire la suite de l'article par VANNESTE Xavier
Logiciels
Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor Xlite (v 3.0 build 41150)XLITE (V 3.0 BUILD 41150)c'est un logiciel qui permet de téléphoner par Internet à l'aide d'un compte SIP pratique pour le... Cliquez pour télécharger Xlite Academy System (10.9.3.0)ACADEMY SYSTEM (10.9.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|