Discussion :

[gloub gloub]

Bonjour le Forum !

Tout (ou presque) est dans le titre : dans une macro, j'ai besoin de coller du texte sans mise en forme (pour hériter de la mise en forme du texte au point d'insertion).

Code :

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

1
2
3
Sub Coller_sans_mise_en_forme()
    Selection.PasteAndFormat (wdPasteDefault)
End Sub

Tout fonctionne très bien, sauf que si le texte est surligné là où se trouve le point d'insertion, le surlignage disparaît au collage.
Quelqu'un sait-il ce qu'il faudrait faire pour que le texte collé soit lui aussi surligné ?
Merci !

[Invité]

Bonsoir,

Je n'ai pas fait l'essai, mais je pense qu'il faut faire un SetRange à partir de (Selection) jusqu'à (Selection + la longueur de la chaîne collée) et appliquer à la nouvelle sélection, le style du caractère (sélection - 1 caractère).

[gloub gloub]

Hem hem...merci pour ta réponse, mais vu mon niveau en VBA, je ne sais pas trop quoi en faire...

[Invité]

A tester :

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
 
Sub Test()
 
Dim NbCaracteres As Long
 
       With Selection
            .HomeKey Unit:=wdStory, Extend:=wdExtend
            NbCaracteres = .Characters.Count
       End With
 
       With ActiveDocument
            .Characters(NbCaracteres).Select
            Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)
       End With
 
End Sub

[gloub gloub]

Testé et approuvé !
Merci beaucoup pour ton aide !