Discussion :

[bboy-eazy]

Bonjour,

Je cherche à surligner d'une certaine couleur une partie d'un texte dans word. L'écriture se fait via excel.

Comment puis je procéder. je ne trouve rien sur internet.

merci d'avance bonne journée.

j'ai testé ceci mais cela ne fonctionne pas. Il ne reconnait pas l'objet. Y-a-t-il aussi une fonction du style Csurligner("partie de chaine") & "reste de la chaine"

Code :

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

1
2
WordDoc.Tables(1).Columns(1).Cells(1).Range.Text = "Témoin" & vbCr & "NaCl" & vbCr & JOUR
WordDoc.Tables(1).Columns(1).Cells(1).Range.Characters(1, 6).Font.ColorIndex = 3

merci d'avance et bonne journée

[unparia]

Bonjour
Question :
Qu'écrirais-tu en VBA/word depuis Word lui-même ?
Car là est la vraie question. Le succès du pilotage en automation d'une application A depuis une application B est inévitablement dépendant de la connaissance des instructions VBA qu'attend l'application B, l'application A n'étant là que pour "téléguider".
Si tu connais le code VBA/Word nécessaire, montre-le ici et nous complèterons par les instructions VBA/EXCEL de téléguidage
Si tu ne le connais pas -->> question à poser d'abord dans la section VBA/Word.

EDIT : Pour que tu comprennes mieux tout le sens de cela :
Ici, j'ignore même si

Code :

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

.Tables(1).Columns(1).Cells(1).Range.Text

correspond à quelque-chose que VBA/WORD comprend

[bboy-eazy]

Bonjour et merci unparia

j'ai donc pose la question sous word mais je n'ai pas eu de réponse. je ne suis donc pas plus avancé.

J'ai donc fait des recherches à droite et à gauche et j'en suis ici: Cela fonctionne dans Word.

j'ai deux questions:
- comment pouvoir changer la couleur du surlignage? car la il est jaune par défaut
- est il possible d'adapter ceci pour metre le code directement dans excel?

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
Sub surligner(LETXT As String)
If LETXT <> "" Then
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    With Selection.Find
        .Text = LETXT
        .Replacement.Text = LETXT
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End If
End Sub
Sub Main()
surligner ("Témoin")
End Sub

Que veux tu dire dans ton EDIT? Je pense que Word comprend bien ce language car il reconnait bien chaque objet. Y a t il une subtilité que je ne comprends pas?

merci d'avance

[unparia]

Que veux tu dire dans ton EDIT? Je pense que Word comprend bien ce language car il reconnait bien chaque objet. Y a t il une subtilité que je ne comprends pas?

Je n'en sais RIGOUREUSEMENT RIEN !
Pour mémoire ;

EDIT : Pour que tu comprennes mieux tout le sens de cela :
Ici, j'ignore même si
Code : Sélectionner tout - Visualiser dans une fenêtre à part

.Tables(1).Columns(1).Cells(1).Range.Text

correspond à quelque-chose que VBA/WORD comprend

Cela me parait clair, non ?
Ainsi que ceci :

Car là est la vraie question. Le succès du pilotage en automation d'une application A depuis une application B est inévitablement dépendant de la connaissance des instructions VBA qu'attend l'application B, l'application A n'étant là que pour "téléguider".
Si tu connais le code VBA/Word nécessaire, montre-le ici et nous complèterons par les instructions VBA/EXCEL de téléguidage
Si tu ne le connais pas -->> question à poser d'abord dans la section VBA/Word.

Et ... tu reviens maintenant avec une nouvelle question dont la réponse relève également de connaisances en VBA/WORD

[bboy-eazy]

bonjour,

a oui en effet je comprend mieux maintenant ahaha

Code :

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

Et ... tu reviens maintenant avec une nouvelle question dont la réponse relève également de connaisances en VBA/WORD

Exact, la première question n'est pas appropriée à ce forum. désolé c'est le matin

par contre la seconde l'est un peu plus quand meme je pense

Si tu connais le code VBA/Word nécessaire, montre-le ici et nous complèterons par les instructions VBA/EXCEL de téléguidage

c'est pour ca que je pose la seconde question: crois tu qu'il vaut mieux aussi la poser dans WORD?

merci

[unparia]

Et .... Il se trouve quoi ? --->> que tu dis précisément ne pas le connaître, ce code VBA/Word approprié ! (en partant de l'hypothèse selon laquelle il existe pour faire ce que tu veux)

crois tu qu'il vaut mieux aussi la poser dans WORD?

Quelle langue comprends-tu mieux ? Avec un peu de chance, je la connais et te répondrai dans cette langue...

Le pire :
- dans le code que tu montres, je ne vois aucune instruction de surlignage
- je ne connais rien à Word et à son VBA. Je viens toutefois d'ouvrir Word, juste pour voir ... --->> surprise ! il dispose d'un enregistreur de macro et tout et tout ...
--->> je la connais, maintenant ta solution ....
Tu vas en faire autant, oui ?????

[clementmarcotte]

Bonjour,

Bonjour
Ici, j'ignore même si

Code :

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

.Tables(1).Columns(1).Cells(1).Range.Text

correspond à quelque-chose que VBA/WORD comprend

Tu peux être rassuré, c'est oui. C'est le texte dans une cellule d'un tableau Word. Ceci dit, l'Objet Table de Word et l'objet Table d'Excel n'ont rien de commun.

[unparia]

Bonjour Clément
Merci pour cette information.
Comme dit plus haut, j'ignore tout de VBA/Word (que je n'utilise jamais).
Cela ne m'a pas empêché d'y trouver ce qu'il fallait pour renseigner bboy-eazy qui, lui, s'en sert
Amitiés

[bboy-eazy]

bonjour à tous les deux.


Merci bcp pour toutes ces informations. toujours aussi agréable de recevoir votre aide et vos explications.

Très bonne journée à vous