Discussion :

[PPhBourgeois]

Bonjour,

Comme c'est mon premier message, je commence par me présenter.
Je ne suis pas un professionnel de l'informatique, juste quelqu'un qui n'a pas peur de mettre de temps en temps ses mains dans les entrailles des logiciels et qui a déjà fait un peu de programmation.
Je débute complètement en VBA (je commence à apprendre en lisant sur le Web) et je suis nouveau sur ce Forum. J'espère que vous serez indulgents si j'écris des bêtises...

Je vous contacte car j'essaie d'écrire un script en VBA qui crée un document Word, qui copie du texte dans cet autre document en fonction de paramètres entrés par l'utilisateur dans une boîte de dialogue.
Le document en question est créé ainsi:

Code :

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

1
2
3
4
5
6
 
'Création d'un document Word
   Dim appWD As Word.Application
   Set appWD = CreateObject("Word.Application")
   appWD.Visible = True
   Set oDoc = appWD.Documents.Add

Jusque là, tout va bien.

J'aimerai ensuite que le script VBA mettre en gras le texte situé entre des parenthèses dans le document généré par le script. Et cela, je n 'y arrive pas.

J'utilise une routine que j'ai trouvée sur un autre forum pour tenter en vain de faire cela.
Voici la routine en question:

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
 
Private Sub dudule()
Selection.HomeKey unit:=wdStory
ScreenUpdating = False
With Selection.find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Font.Bold = True
    .MatchWildcards = True
    .Text = "(\(*\))"
    .Replacement.Text = "\1"
    .Forward = True
    .Execute Replace:=wdReplaceAll
End With
End Sub

J'ai essayé de faire différentes modification dans le code et de changer le document actif (comme ceci: oDoc.Activate), et après plusieurs heures d'essais divers, rien n'y fait...
J'ai l'impression qu'il y a des fondamentaux VBA que je n'ai pas appris/compris.

Si jamais une bonne âme pouvait m'aider, à réasoudre ce mystère ce serait génial...

Merci d'avance à vous!

[Heureux-oli]

Salut,

Si tu pars de Word, pas besoin de créer une nouvelle instance de Word.

Documents.Add devrait suffire.

Un peu de lecture là : http://heureuxoli.developpez.com/office/word/vba-word/

Malheureusement, tu ne nous donnes pas assez de renseignements.

[PPhBourgeois]

Bonjour,

Merci pour ta réponse. Ne pas créer de nouvelle instance de Word n'a malheureusement pas aidé à résoudre le problème.
Je suis cependant parvenu à trouver la solution en lisant ton intro au VBA Word. Merci !
Je n'avais pas bien compris la différence entre range et Selection. Et utiliser Selection sur un document qui n'est pas actif, cela ne peut jamais fonctionner :-)
(voir nouvelle version du code ci-dessous).


Belle journée !

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
 
Private Sub dudule ()
Set docRange = oDoc.Range(0, 0)
    ScreenUpdating = False
    With docRange.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Replacement.Font.Bold = True
        .MatchWildcards = True
        .Text = "(\(*\))"
        .Replacement.Text = "\1"
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With
    ScreenUpdating = True
End Sub

[Heureux-oli]

Salut,

J'ai d'autres choses en rayon.

http://heureuxoli.developpez.com/off...cument-tiroir/
Ce lien devrait t'aider un peu et le second est basé sur la recherche et le remplacement.
http://heureuxoli.developpez.com/off...-et-remplacer/

[Heureux-oli]

Salut,

Si tu utilises un objet document.

Code :

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

Set myRepDoc = documents.add

Dans ton code, tu peux utiliser

Code :

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

1
2
3
4
5
6
7
8
9
10
With myRepDoc.Range.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Replacement.Font.Bold = True
        .MatchWildcards = True
        .Text = "(\(*\))"
        .Replacement.Text = "\1"
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With

De cette manière, tu peux te passer d'une Selection