Méthodes d'accès à Word introuvable

Question

Bonsoir,

Je suis nouveau et je recherche comment trouver la classe symbolisant Word sous VB6. J'ai compris que Word est manipulable depuis une instance récupérée par CreateObject. Après, je ne sais pas. D'autre part, je dispose de MSDN Library - January 1999. 
Je n'y ai rien trouvé sur le sujet.

Merci à celle ou celui qui m'aidera.

PCPT · Answer

salut,

le createobject (application.word) te donnera un objet "sans aide"

passe plutôt par les références (du projet) et ajoute alors Microsoft Word XX.X Object Library (12.0 si tu as office 2007)

l'objet instancié se manipule alors presque comme du VBA word
là tu trouveras plus facilement des exemple et sur VbFrance et sur le NET
++

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

XDev2008 · Answer

Désolé, je ne comprend pas.
Je dispose de Word 2003.

PCPT · Answer

projet > références > coche ms word xx.x

et ce n'est alors plus 
set oword = createobject(....)

mais
set oword = new word.etc....

++

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

XDev2008 · Answer

Ok Merci et passes de bonnes fêtes.

MOUSSAOUIAAZIZ · Answer

Ce que tu entrain de chercher est un peu difficile pour débutant ; c’est pour cela tu n’a pas compris la repense de PCPT , mais essayer de jeter un œil sur cette source 



http://www.vbfrance.com/codes/PILOTAGE-WORD-VB_5120.aspx



Permet par du code  de piloter totalement Word et en plus c’est pour débutant.<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>





Bonne chance.

XDev2008 · Answer

Merci MOUSSAOUIAAZIZ. Il y a, je pense, l'ensemble des méthodes pour écrire dans un document Word. 
Mon problème est simple. Il s'agit d'ouvrir un document Word contenant une liste de titre de DVDs. Chaque titre est précédé par un nombre à trois chiffres. Par exemple: 062-AIRPORT.
L'appli doit ouvrir ce document. Charger l'ensemble de ces titres dans une collection afin de permettre trois opérations:
1.  Entrez un nouveau film. Il faut alors délivrer le nombre à trois chiffres pour créer une étiquette.
2. Chercher le nombre de copies pour un film donné.
3. L'insertion d'un film ajoute une ligne selon le modèle précédent.

Par avance Merci pour l'aide apportée.

MOUSSAOUIAAZIZ · Answer

Salut,  Je vais te simplifier les choses un peut, mais avant de taper votre code, assurer vous que les références suivantes sont cochées sous votre VB :
projet > références >
- Microsoft Office 11.0 object library
- Microsoft Word 11.0 object library


Dim docword As New Word.Application
Set docword = CreateObject("word.application")
docword.DisplayAlerts = False   'évite les erreurs de traitement
docword.Documents.Add     'ajoute un document vierge
'on va écrire  : liste de titre de DVDs
docword.Selection.TypeText Text:="liste de titre de DVDs"


Nb_ligne = 6     ' ici tu peu changer le nombre de ligne et de cololne
Nb_coclone = 2
'insérer un tableau
docword.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=Nb_ligne, NumColumns:=Nb_coclone

' supposans que nom(i) est la liste des titres et n(i) est la liste de nemeros 
' et que tu a N ligen a ecrire
N = 5  ' par exemple.
For i = 1 To N
    docword.Selection.TypeText Text:=n(i)
    docword.Selection.MoveRight Unit:=wdCell 'Pour se déplacer
    docword.Selection.TypeText Text:=nom(i)
    docword.Selection.MoveDown Unit:=wdLine, Count:=1
    docword.Selection.MoveLeft Unit:=wdCell
Next i


'enregistrer le document sous
docword.ActiveDocument.SaveAs FileName:="c:\MonDoc.doc"


docword.Application.Quit 'quitter word

XDev2008 · Answer

Je te remercie beaucoup MOUSSAOUIAAZIZ.
Je suis parvenu à construire l'appli. Elle fonctionne.

Bon réveillon de fin d'année.

Méthodes d'accès à Word introuvable

8 réponses

Votre réponse

Discussions similaires