Discussion :

[pimos]

Bonjour,

Une fois de plus je suis au bout du roulot, j'espère avancer sur le sujet grâce à vous.

J'ai des spécifications dans des documents Word.
Je souhaite sortir de ces spécifications les règles de gestion et les intégrer dans un nouveau document Word avec un certain format (pour les intégrer dans un outil).
L'extraction des RG fonctionne (vous m'avez aidé sur cette partie déjà), c'est l'intrégation dans le document Word qui pose problème.

Le code s'exécute en VBA dans un doc Word.

1.création du document (le document de sortie n'existe pas, il faut le créer)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
NomFichierWord = ThisDocument.Path + "\result" + date_s + ".doc"
Dim FSO As New FileSystemObject
FSO.CreateTextFile (NomFichierWord)
 
'Créer une instance de word
Set oWord = CreateObject("Word.Application")
oWord.Documents.Open NomFichierWord
oWord.Visible = False
oWord.ShowMe

=>ce code ne me semble pas très propre. on doit pouvoir faire mieux.

2.ajout des différents styles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
            With ActiveDocument.Styles("Titre 1").Font
                .Bold = True
                .Italic = True
                .ColorIndex = wdBlack
                .Name = "Times New Roman"
                .Size = 14
            End With
            ActiveDocument.Styles.Add ("Nom_Exigence")
            With ActiveDocument.Styles("Nom_Exigence").Font
                .Bold = True
                .Italic = False
                .ColorIndex = wdBlack
                .Name = "Times New Roman"
                .Size = 12
            End With
            ActiveDocument.Styles.Add ("Descript_exigence")
            With ActiveDocument.Styles("Descript_exigence").Font
                .Bold = False
                .Italic = False
                .ColorIndex = wdBlack
                .Name = "Times New Roman"
                .Size = 10
            End With

=>L'ajout des styles dans le nouveau document ne fonctionne pas. Il fonctionne uniquement dans le document courant.

le code "ActiveDocument.Styles.Add ("Descript_exigence")" plante 1 fois 2 en me disant que le style existe déjà = je ne comprend pas ce comportement


3.ajout des lignes dans le document word

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
i=0
    oWord.Selection.TypeText Trim(toutesRGdoc(i))
    oWord.Selection.TypeParagraph
    For i = 1 To maxnb Step 2
        oWord.Selection.Style = ActiveDocument.Styles("Nom_Exigence")
        oWord.Selection.TypeText Trim(toutesRGdoc(i))
        oWord.Selection.TypeParagraph
        oWord.Selection.Style = ActiveDocument.Styles("Descript_exigence")
        oWord.Selection.TypeText Trim(toutesRGdoc(i + 1))
        oWord.Selection.TypeParagraph
    Next i
    oWord.Selection.TypeParagraph
    oWord.Documents.Save

toutesRGdoc est une liste de string
"oWord.Selection.Style = ActiveDocument.Styles("Nom_Exigence")" ne fonctionne pas avec le message = "le membre de la collection requis n'existe pas"
et même en faisant "oWord.Selection.Style "Titre 1"" = quand j'ouvre mon document il n'y a aucun format.

Je ne comprend pas comment on ajoute une nouvelle ligne dans un document Word en lui appliquant un Style. Mon document Word est bien généré mais aucun style n'est pris en compte.


J'espère avoir été claire

[Heureux-oli]

Salut,

Un morceau à la fois.
Pour la création du document, il n'est pas utile de passer par le File System Object.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim wApp As Word.Application
Dim oDoc As Document
 
Set wApp = New Word.Application
Set oDoc = wApp.Documents.Add

Mais, il me semble que Word est déjà ouvert ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomFichierWord = ThisDocument.Path + "\result" + date_s + ".doc"

Dans ce cas, pas besoin de déclarer ni d'instancier une fois de plus Word.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim oDoc As Document
Dim stNouvNom As String
 
stNouvNom = ActiveDocument.fullName
Set oDoc = Application.Documents.Add
odoc.SaveAs FileName:=stNouvNom

Par contre, pourquoi ajouter des styles dans ton document ?

Si tu crées un modèle avec tes styles, tu peux utiliser ce modèle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Documents.Add Template:="C:\temp\monModèle.dotm"

Je pense qu'on a déjà une bonne base pour te faire plancher toute la nuit !

[pimos]

Mais, il me semble que Word est déjà ouvert ?

Oui mais c'est le word contenant la macro. Je souhaite créer un nouveau document word "resultat.doc" qui contiendra uniquement les résultats d'une seule exécution. C'est pour cela que le créé un nouveau document.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim oDoc As Document
Dim stNouvNom As String
 
stNouvNom = ActiveDocument.fullName
Set oDoc = Application.Documents.Add
odoc.SaveAs FileName:=stNouvNom

=> ce morceau de code n'est donc pas utile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Documents.Add Template:="C:\temp\monModèle.dotm"

La complication de la macro par la création d'un dotm n'est pas utile puisque que je vais avoir 2 styles seulement.

Un coup de main sur les autres points STP.
Sachant que si tu n'as pas envie de te prendre la tête, c'est la non prise en compte des styles qui est bloquant pour moi.

[Heureux-oli]

Salut,

Le dot ou dotm, tu le fais à la main, tu éviteras les messages d'erreur.
Mais c'est une question de choix.

Si word est ouvert, seule cette ligne est utile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim odoc As Document
Dim stNouvNom As String
 
stNouvNom = ActiveDocument.Path + "\result" + date_s + ".doc"
Set oDoc = Documents.Add Template:="C:\temp\monModèle.dotm"
odoc.SaveAs FileName:=stNouvNom

[pimos]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim odoc As Document
Dim stNouvNom As String
 
stNouvNom = ActiveDocument.Path + "\result" + date_s + ".doc"
Set oDoc = Documents.Add Template:="C:\temp\monModèle.dotm"
odoc.SaveAs FileName:=stNouvNom

Oui mais là tu ne créé pas un nouveau document.
tu insères le dotm dans le doc Word de la macro et le doc de la macro s'enregistre dans un nouveau nom.
Tu créé un nouveau document contenant et ma macro et mon futur contenu!? j'étais partis sur un mode de fonctionnement comme avec un programme .NET C#:
un doc Word: avec la macro qui pourra être utilisé à volonté
un doc Word: contenant uniquement le résultat d'une exécution de la macro

Une idée sur "c'est la non prise en compte des styles qui est bloquant pour moi. "

[Heureux-oli]

Salut,

A je ne crée pas de nouveau document ?

Pourtant, j'aurais juré que cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oDoc = Documents.Add Template:="C:\temp\monModèle.dotm"

ajoute un nouveau document à la collection des documents et ce nouveau document est basé sur le modèle passé en paramètre.

La macro peut être contenue dans un autre document sans problème.

Si les styles sont contenu dans le modèle, tu devrais débloquer la situation.
La gestion des style en VBA n'est pas insurmontable mais est souvent une source de problème.
Il faut normalement tester l'existence des styles avent de les utiliser ou de les créer.
Si ils sont contenu dans le document, ce problème est évité.

[pimos]

Bonjour,

Je comprends ta façon de tourner le problème. J'ai donc réaliser la création du fichier comme tu me l'as conseillé (je suis tellement mauvais en VBA Word).

1. Le document nouvellement créé contient bien les styles
(je mettrais un récapitulatif du code une fois le problème générale résolut)

2.
Par contre l'ajout avec un style ne fonctionne toujours pas
oDoc étant le document resultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
With oDoc.Selection
        .Style = "Titre 1"
        .TypeText Trim(toutesRGdoc(i))
        .TypeParagraph
        For i = 1 To maxnb Step 2
            'oDoc.Selection.Style = ActiveDocument.Styles("Nom_Exigence")
            .Style = "Nom_Exigence"
            .TypeText Trim(toutesRGdoc(i))
            .TypeParagraph
            .Style = "Descript_exigence"
            .TypeText Trim(toutesRGdoc(i + 1))
            .TypeParagraph
        Next i
        oDoc.Selection.TypeParagraph
    End With
    oDoc.Documents.Save

"oDoc.Selection", "oDoc.Documents" ,... : ya rien qui marche

Merci pour tes retours.

PI:
Pour mon fichier c'est un dot et non un dotm car je suis en Word 2002.

[pimos]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    i = 0
    oDoc.Select
    With Selection
        .Style = "Titre 1"
        .TypeText Trim(toutesRGdoc(i))
        .TypeParagraph
        For i = 1 To maxnb Step 2
            'oDoc.Selection.Style = ActiveDocument.Styles("Nom_Exigence")
            nbRGtrouveDsDoc = nbRGtrouveDsDoc + 1
            .Style = "Nom_Exigence"
            .TypeText Trim(toutesRGdoc(i))
            .TypeParagraph
            .Style = "Descript_exigence"
            .TypeText Trim(toutesRGdoc(i + 1))
            .TypeParagraph
        Next i
        .TypeParagraph
    End With
    oDoc.Save

Le code suivant fonctionne par contre les RG du fichier N sont effacés par celle du fichier N+1.

Une idée?

[pimos]

PROBLEME RESOLU

Création du fichier résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'création du nom et patch du fichier resultat
NomFichierWord = ThisDocument.Path + "\result" + date_s + ".doc"
'création du nom et patch du fichier dot contenant les styles
NomFichierDot = ThisDocument.Path + "\modelePerso.dot"
'création d'un nouveau document Word avec prise en compte du fichier dot
Set oDoc = Documents.Add(NomFichierDot, , , False)
'enregistrement sur le disque du nouveau document
oDoc.SaveAs FileName:=NomFichierWord

Ajout de String dans le document Result

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'sélection du document resultxxxxxxxx.doc
oDoc.Select
'aller à la fin de la sélection
Selection.EndOf
    'on travaille sur l'objet Selection
    With Selection
         'on positionne le style
        .Style = "Titre 1"
        'on ajoute la ligne String
        .TypeText Trim(toutesRGdoc(i))
        'on ajoute un saut de ligne
        .TypeParagraph
    End With
    'sauvegarde du document
    oDoc.Save

On ferme le fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oDoc.Close