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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Circé
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".
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.
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.
