Macro de transfert de paragraphe

Le
Cestmoi
Bonsoir à tous,

Voilà mon problème:
J'ai Word 2003
J'ai un document intitulé ZZ.Dot où j'ai mis en paragraph du texte.
Je travail avec l'exploratieur du document.
Genre:
Titre 1: XXXXXX
normal:
je suis là.
Et vous

J'ouvre donc ce document puis un autre document où je désire copier certains
paragraph.

Voici la macro:
Selection.MoveDown Unit:=wdParagraph,Count:=1,Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter,Count:=1,Extend:=wdExtend
Selection.Copy
ActiveWindow.previous.Activate
Selection.Paste
Selection.TypeParagraph
ActiveWindow.Next.Activate
Selection.MoveDown Unit:=wdParagraph,Count:=1
Windows(1).Activate
End Sub

Or cela ne sélection pas le paragraphe en entier mais uniquement une phrase.

Peut-on m'aider SVP et me dire ce qui "cloche".
Vos réponses
Trier par : date / pertinence
Circé
Le #1057890
Bonjour,

Elle me paraît bien compliqué ta macro !

Pour copier le paragraphe sur lequel se trouve le curseur, il suffit
d'une ligne de code :

Selection.Paragraphs(1).Range.Copy

Circé
http://faqword.free.fr

Cestmoi avait écrit le 22/12/2004 :
Bonsoir à tous,

Voilà mon problème:
J'ai Word 2003
J'ai un document intitulé ZZ.Dot où j'ai mis en paragraph du texte.
Je travail avec l'exploratieur du document.
Genre:
Titre 1: XXXXXX
normal:
je suis là....
Et vous...

J'ouvre donc ce document puis un autre document où je désire copier certains
paragraph.

Voici la macro:
Selection.MoveDown Unit:=wdParagraph,Count:=1,Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter,Count:=1,Extend:=wdExtend
Selection.Copy
ActiveWindow.previous.Activate
Selection.Paste
Selection.TypeParagraph
ActiveWindow.Next.Activate
Selection.MoveDown Unit:=wdParagraph,Count:=1
Windows(1).Activate
End Sub

Or cela ne sélection pas le paragraphe en entier mais uniquement une phrase.

Peut-on m'aider SVP et me dire ce qui "cloche".


Publicité
Poster une réponse
Anonyme