Discussion :

[d.tellier]

Bonjour,
j'ai un texte que je veux transformer.

Code
1259790
201116
2963104
2963114
411963
5658075
9633115
BD4145
EP40000
GLUBRAN
LAMESCI
TISCOL1
PROTOC

que je veux transformer en :

"1259790" ou "201116" ou "2963104" ou "2963114" ou "411963" ou "5658075" ou "9633115" ou "BD4145" ou "EP40000" ou "GLUBRAN" ou "LAMESCI" ou "TISCOL1" ou "PROTO"

Mais quand je lance ma macro

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
25
26
27
28
29
30
31
32
33
Sub zaza()
' Aller au début du document
  Selection.HomeKey Unit:=wdStory
' Ajoute un caractére " premiere ligne
  Selection.TypeText Text:=""""
' Aller à la fin du document
  Selection.EndKey Unit:=wdStory
' Efface le dernier caractére Fin de pargraphe du document
  Selection.TypeBackspace
' Selectionne toutes les lignes
  Selection.WholeStory
      With Selection.Find
        .Text = "^p"
        .Replacement.Text = """ ou """
        .Forward = True
'        .Wrap = wdFindAsk
'        .Format = False
'        .MatchCase = False
'        .MatchWholeWord = False
'        .MatchWildcards = False
'        .MatchSoundsLike = False
'        .MatchAllWordForms = False
         .Execute Replace:=wdReplaceAll
    End With
 
' Aller à la fin du document
    Selection.EndKey Unit:=wdStory
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
End Sub

j'ai un message Word qui me dit :


Donc je ne peux pas exécuter le reste de ma macro:

Code :

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

1
2
3
4
5
6
    Selection.EndKey Unit:=wdStory
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace

Parce qu'ensuite je voudrais mettre l'ensemble dans le presse papier.

merci.

[d.tellier]

Re,
J'ai essayé avec ça. mais ca ne marche pas mieux.

Code :

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

1
2
    ' Turn off display of messages and alerts.
    ThisApplication.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone

Merci de vos réponses

[jurassic pork]

hello,
tu peux essayer de mettre la propriété Wrap à wdFindContinue :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 With Selection.Find
        .Text = "^p"
        .Replacement.Text = """ ou """
        .Forward = True
        .Wrap = wdFindContinue
'        .Format = False
'        .MatchCase = False
'        .MatchWholeWord = False
'        .MatchWildcards = False
'        .MatchSoundsLike = False
'        .MatchAllWordForms = False
         .Execute Replace:=wdReplaceAll
    End With

Ami calmant, J.P

[d.tellier]

Bonsoir,
Ca marche bien .

merci beaucoup.