UTILISATION INTELLIGENTE DE WORD POUR REALISER LES ETATS WORD, BOOKMARK, REPORT, AUTOMATION, ASIMENGO, Source N°44998

Information sur la source

Catégorie :Divers Classé sous : WORD, BOOKMARK, REPORT, AUTOMATION, ASIMENGO Niveau : Initié Date de création : 09/12/2007 Vu / téléchargé: 6 824 / 950

Auteur : asimengo

Site perso

Ecrire un message privé

Note :

10,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Il s'agit d'une petite classe simple et intelligente qui permet d'utiliser Word pour l'édition des états.

Domaine application:
- Secretariat : Impression des lettres types et documents avec des espaces à remplir
- Developpement : Tout état basé sur un recordset à un seul enregistrement

Prerequis:
- Ouvrir Word
- Construire l'état avec toutes les mises en forme, aussi beau qu'on le souhaite
- Définir les signets dans le document. (Remplacer les ... par des signets)
- Enregistrer le document et mettre un mot de passe si besoin

Source

Tout est dans le Zip, mais l'utilisation est aussi simple que le code ci-dessous
Private Cls1 As ClsManageWordBookmarks
Private Sub CmBouttons_Click(Index As Integer)
With Cls1
Select Case Index
Case 0: .PrintDoc
Case 1: .ViewDoc
Case 2: .SaveAs [Text1]
End Select
End With
End Sub
...

Tout est dans le Zip, mais l'utilisation est aussi simple que le code ci-dessous

Private Cls1 As ClsManageWordBookmarks

Private Sub CmBouttons_Click(Index As Integer)
    With Cls1
        Select Case Index
            Case 0: .PrintDoc
            Case 1: .ViewDoc
            Case 2: .SaveAs [Text1]
        End Select
    End With
End Sub

...

Conclusion

Ce concept a beaucoup d'applications, par exemple la traduction des états devient plus facile suivant ce principe, ...

Il s'agit d'une idée originale qui me trotte depuis dans la tête que je partage avec vous.
J'aimerais bien avoir des suggestions pour l'amélioration du code et surtout pour la rendre plus rapide.

ASIMENGO

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

ClsManageWordBookmarks.cls 13 026 octets
Fiche Personne.doc24 064 octets
Form1.frm 4 131 octets
Projet1.vbp 854 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de asimengo

Sources de la même categorie

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

Commentaires

Commentaire de asimengo le 11/12/2007 06:10:02

Du fait que certains ne savent pas ce qu'est un signet sous Word, une recherche rapide sous google me donne les liens ci-dessous à leur intention.

http://www.alphaquark.com/Informatique/Word.htm#signets

http://www.winaide.net/article11.html

Par rapport à la question d'un ami de savoir l'utilité de ce code. Je dois préciser que la classe est la plus importante le reste sert juste à montrer son utilisation.
Avec cet outil je gagne un temps énorme à la création des états. La plupart des clients ont déjà des états sous word pour leur gestion manuelle avant de demander qu'on automatise l'activité. Avec cette classe vous avez juste à recupérer à l'identique ce qui existe déjà, graphique, mise en forme, ...., la seule chose à faire est d'y rajouter des signets avec des noms spécifiques.

Pour mon utilisation j'ai une table de correspondance avec nom de signet et nom du champ de ma BD, de ce fait je peux même rajouter des signets au gré (champs complementaires) sans devoir toucher au source du programme, n'est ce pas génial ca.

Une des contraintes de cet utilitaire est d'avoir Word. J'ai download la visionneuse je ferai des recherches pour voir comment l'utiliser.

J'aimerai par contre avoir l'avis des specialistes en utilisation des ressources pour me donner des idées d'optimisation. Je le trouve un peu long à décharger bien que je pense avoir déjà fait du mieux pour l'optimiser. Donc il devrait avoir surement quelque chose de plus à faire la dessus, alors vos avis.
Commentaire de peug le 17/12/2007 07:52:02

J'aime bien. De plus l'utilisation d'une classe est très pratique et "propre".
Mais je me suis toujours demandé si un poste n'a pas Word donc pas de référence "Microsoft Word 11 Object Library"... Ca plante ? (je vais pas désinstaller mon office pour autant ! :) ou encore s'il a la version 12 et non 11.

Comment ce la réagit et comment y pallier ?
Commentaire de Renfield le 17/12/2007 08:55:02 administrateur CS

11 et superieur géré, si la reference 11.0 est choisie.

si pas d'office => crash

l'idéal est d'utiliser plutot du 'late binding'...
Dim oApp As Variant
Dim oDocument as Variant
Set oApp = CreateObject("Word.Application")
...

ainsi, pas de soucis de version
Commentaire de asimengo le 17/12/2007 16:06:06

@Peug: Merci pour la note, qui a dit que ce n'était pas flatteur, lol

@Renfield: Merci pour cet astuce, effectivement c'est idéal.

Mais en fait je savais ce que je voulais mais pas les instructions qui vont avec, alors avec une declaration explicite (je ne sais comment dire le contraire du late binding), je suis assisté en codant et je peux parcourir toutes les propriétés et méthodes des objects, ainsi savoir ce qui est possible.
Au fait Renf, maintenant que t'es là, y'a pas de lacunes d'utilisation de ressources que tu as détecté là. Je pense que l'algo c'est OK, mais j'aimerai pouvoir ne pas charger word en entier mais juste utiliser les dll dont j'ai besoin pour imprimer, visualiser et enregistrer en .doc ou .rtf
Commentaire de Gael51 le 17/12/2007 20:07:04

Super idée,félicitation.

Quelqu'un pourrait il faire quelque chose de semblable en .net ?

ça serait super
Commentaire de asimengo le 18/12/2007 08:06:52

@GAEL51: Il te suffit de compiler la classe dans une dll et tu pourras l'utiliser ou tu veux.

Ajouter un commentaire

Discussions en rapport avec ce code source

pb de macro word + formulaire par steph

VBA : Automation d'Access vers Word par JS

ole automation C'EST LENT !!!!! par raff

AUTOMATION +ACCESS +WORD +RUNTIME par donbuz

pb d'activeX dans mon automation Word par deubal

Erreur Automation Word par stefsoft

Pb Erreur automation -2147221231 par grouzieres

automation avec word dans visual basic 6 par mosi

word sans automation par rvicko

Automation Access Word par jeremy276