pour creer cette macro je l'ai enregistre une premiere fois... mais elle ne
fonctionne pas correctement !
j'ouvre un doc word (version XP)
je cree un style
je formate le texte avec ce style
macro :
je le selectionne le doc
je copie
j'ouvre un deuxieme doc
je saisis du texte
j'utilise collage special (texte sans mise en forme)
je colle
le texte collé apparait avec la mise en forme (style) du premier doc...
voila la macro
Sub Macro4()
'
' Macro4 Macro
'
Selection.WholeStory
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.TypeText Text:="erfgrggt'g"
Selection.PasteAndFormat (wdPasteDefault)
End Sub
A la place de wdPasteDefault, met wdFormatPlainText.
Circé http://faqword.free.fr
val a formulé ce vendredi :
Sub Macro4() ' ' Macro4 Macro ' Selection.WholeStory Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.TypeText Text:="erfgrggt'g" Selection.PasteAndFormat (wdPasteDefault) End Sub
val
bonsoir
oui ça fonctionne... merci mais je voudrais ameliorer la macro. j'espere que je n'abuse pas de votre temps.
1) je voudrais inserer le fichier non pas dans un nouveau doc comme c'est le cas avec ma macro mais dans un doc principal deja enregistre et que j'aurais ouvert. attention ce doc principal n'est pas toujours le meme... est ce possible ?
2) je voudrais choisir dans le doc principal l'endroit ou j'insere le fichier.
3) je voudrais inserer dans le doc principal uniquement le contenu du fichier et non pas comme c'est encore le cas avec ma macro le texte "erfgrggtg" + le contenu du fichier.
j'ai resolu ce probleme en modifiant cette ligne : Selection.TypeText Text:="erfgrggt'g" par cette autre ligne : Selection.TypeText Text:="" est ce la bonne solution ? en tous cas cela fonctionne.
merci encore pour votre reponse.
val
Bonjour,
A la place de wdPasteDefault, met wdFormatPlainText.
Circé http://faqword.free.fr
val a formulé ce vendredi :
Sub Macro4() ' ' Macro4 Macro ' Selection.WholeStory Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.TypeText Text:="erfgrggt'g" Selection.PasteAndFormat (wdPasteDefault) End Sub
bonsoir
oui ça fonctionne... merci
mais je voudrais ameliorer la macro. j'espere que je n'abuse pas de votre
temps.
1) je voudrais inserer le fichier non pas dans un nouveau doc comme c'est le
cas avec ma macro mais dans un doc principal deja enregistre et que j'aurais
ouvert. attention ce doc principal n'est pas toujours le meme... est ce
possible ?
2) je voudrais choisir dans le doc principal l'endroit ou j'insere le
fichier.
3) je voudrais inserer dans le doc principal uniquement le contenu du
fichier et non pas comme c'est encore le cas avec ma macro le texte
"erfgrggtg" + le contenu du fichier.
j'ai resolu ce probleme en modifiant cette ligne :
Selection.TypeText Text:="erfgrggt'g"
par cette autre ligne :
Selection.TypeText Text:=""
est ce la bonne solution ? en tous cas cela fonctionne.
merci encore pour votre reponse.
val
Bonjour,
A la place de wdPasteDefault, met wdFormatPlainText.
Circé
http://faqword.free.fr
val a formulé ce vendredi :
Sub Macro4()
'
' Macro4 Macro
'
Selection.WholeStory
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.TypeText Text:="erfgrggt'g"
Selection.PasteAndFormat (wdPasteDefault)
End Sub
oui ça fonctionne... merci mais je voudrais ameliorer la macro. j'espere que je n'abuse pas de votre temps.
1) je voudrais inserer le fichier non pas dans un nouveau doc comme c'est le cas avec ma macro mais dans un doc principal deja enregistre et que j'aurais ouvert. attention ce doc principal n'est pas toujours le meme... est ce possible ?
2) je voudrais choisir dans le doc principal l'endroit ou j'insere le fichier.
3) je voudrais inserer dans le doc principal uniquement le contenu du fichier et non pas comme c'est encore le cas avec ma macro le texte "erfgrggtg" + le contenu du fichier.
j'ai resolu ce probleme en modifiant cette ligne : Selection.TypeText Text:="erfgrggt'g" par cette autre ligne : Selection.TypeText Text:="" est ce la bonne solution ? en tous cas cela fonctionne.
merci encore pour votre reponse.
val
Bonjour,
A la place de wdPasteDefault, met wdFormatPlainText.
Circé http://faqword.free.fr
val a formulé ce vendredi :
Sub Macro4() ' ' Macro4 Macro ' Selection.WholeStory Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.TypeText Text:="erfgrggt'g" Selection.PasteAndFormat (wdPasteDefault) End Sub
Geo
Bonjour val
bonsoir
oui ça fonctionne... merci mais je voudrais améliorer la macro. j'espère que je n'abuse pas de votre temps.
1) je voudrais insérer le fichier non pas dans un nouveau doc comme c'est le cas avec ma macro mais dans un doc principal déjà enregistre et que j'aurais ouvert. attention ce doc principal n'est pas toujours le même... est ce possible ?
Utiliser comme référence activedocument ou des variables de type document Dans un cas comme le vôtre je ferais dim Doc1 as document dim Doc2 as document set doc1 = activedocument set doc2 = Documents.Add DocumentType:=wdNewBlankDocument ' doc2 est VIDE doc1. Selection.Copy doc2.selection.TypeText Text:="erfgrggt'g" mais se pose la question du positionnement :
2) je voudrais choisir dans le doc principal l'endroit ou j'insère le fichier.
Utiliser les signets
3) je voudrais insérer dans le doc principal uniquement le contenu du fichier et non pas comme c'est encore le cas avec ma macro le texte "erfgrggtg" + le contenu du fichier.
Un petit coup d'oeil, même un grand dans la faq de la webmistress marina (où il y en plein d'autres bonnes choses aussi) http://faqword.free.fr
Il y a un didacticiel pour débuter avec les macros. -- A+
Bonjour val
bonsoir
oui ça fonctionne... merci
mais je voudrais améliorer la macro. j'espère que je n'abuse pas de
votre temps.
1) je voudrais insérer le fichier non pas dans un nouveau doc comme
c'est le cas avec ma macro mais dans un doc principal déjà enregistre
et que j'aurais ouvert. attention ce doc principal n'est pas toujours
le même... est ce possible ?
Utiliser comme référence activedocument ou des variables de type document
Dans un cas comme le vôtre je ferais
dim Doc1 as document
dim Doc2 as document
set doc1 = activedocument
set doc2 = Documents.Add DocumentType:=wdNewBlankDocument
' doc2 est VIDE
doc1. Selection.Copy
doc2.selection.TypeText Text:="erfgrggt'g"
mais se pose la question du positionnement :
2) je voudrais choisir dans le doc principal l'endroit ou j'insère le
fichier.
Utiliser les signets
3) je voudrais insérer dans le doc principal uniquement le contenu du
fichier et non pas comme c'est encore le cas avec ma macro le texte
"erfgrggtg" + le contenu du fichier.
Un petit coup d'oeil, même un grand dans la faq de la webmistress marina
(où il y en plein d'autres bonnes choses aussi)
http://faqword.free.fr
Il y a un didacticiel pour débuter avec les macros.
--
A+
oui ça fonctionne... merci mais je voudrais améliorer la macro. j'espère que je n'abuse pas de votre temps.
1) je voudrais insérer le fichier non pas dans un nouveau doc comme c'est le cas avec ma macro mais dans un doc principal déjà enregistre et que j'aurais ouvert. attention ce doc principal n'est pas toujours le même... est ce possible ?
Utiliser comme référence activedocument ou des variables de type document Dans un cas comme le vôtre je ferais dim Doc1 as document dim Doc2 as document set doc1 = activedocument set doc2 = Documents.Add DocumentType:=wdNewBlankDocument ' doc2 est VIDE doc1. Selection.Copy doc2.selection.TypeText Text:="erfgrggt'g" mais se pose la question du positionnement :
2) je voudrais choisir dans le doc principal l'endroit ou j'insère le fichier.
Utiliser les signets
3) je voudrais insérer dans le doc principal uniquement le contenu du fichier et non pas comme c'est encore le cas avec ma macro le texte "erfgrggtg" + le contenu du fichier.
Un petit coup d'oeil, même un grand dans la faq de la webmistress marina (où il y en plein d'autres bonnes choses aussi) http://faqword.free.fr
Il y a un didacticiel pour débuter avec les macros. -- A+
Anacoluthe
Bonjour !
'val' nous a écrit ...
Selection.TypeText Text:="" est ce la bonne solution ? en tous cas cela fonctionne.
Tant mieux. Pourtant cette instruction ne fait rien du tout ! :-D
Anacoluthe « Si l'on peut trouver moins que rien, c'est que rien vaut déjà quelque chose. » - Raymond DEVOS
Bonjour !
'val' nous a écrit ...
Selection.TypeText Text:=""
est ce la bonne solution ? en tous cas cela fonctionne.
Tant mieux. Pourtant cette instruction ne fait rien du tout ! :-D
Anacoluthe
« Si l'on peut trouver moins que rien,
c'est que rien vaut déjà quelque chose. »
- Raymond DEVOS
Selection.TypeText Text:="" est ce la bonne solution ? en tous cas cela fonctionne.
Tant mieux. Pourtant cette instruction ne fait rien du tout ! :-D
Anacoluthe « Si l'on peut trouver moins que rien, c'est que rien vaut déjà quelque chose. » - Raymond DEVOS
val
bonjour
je ne m'en sort pas ! en essayant d'utiliser vos conseils ma macro ne fonctionne pas. je n'ai pas l'habitude de creer des macros je je fais certainement des erreurs... je vais retravailler dessus.
en tous cas merci pour votre message et pour votre lien...
val
1) je voudrais insérer le fichier non pas dans un nouveau doc comme c'est le cas avec ma macro mais dans un doc principal déjà enregistre et que j'aurais ouvert. attention ce doc principal n'est pas toujours le même... est ce possible ?
Utiliser comme référence activedocument ou des variables de type document Dans un cas comme le vôtre je ferais dim Doc1 as document dim Doc2 as document set doc1 = activedocument set doc2 = Documents.Add DocumentType:=wdNewBlankDocument ' doc2 est VIDE doc1. Selection.Copy doc2.selection.TypeText Text:="erfgrggt'g" mais se pose la question du positionnement :
2) je voudrais choisir dans le doc principal l'endroit ou j'insère le fichier.
Utiliser les signets
3) je voudrais insérer dans le doc principal uniquement le contenu du fichier et non pas comme c'est encore le cas avec ma macro le texte "erfgrggtg" + le contenu du fichier.
Un petit coup d'oeil, même un grand dans la faq de la webmistress marina (où il y en plein d'autres bonnes choses aussi) http://faqword.free.fr
Il y a un didacticiel pour débuter avec les macros. -- A+
bonjour
je ne m'en sort pas ! en essayant d'utiliser vos conseils ma macro ne
fonctionne pas. je n'ai pas l'habitude de creer des macros je je fais
certainement des erreurs...
je vais retravailler dessus.
en tous cas merci pour votre message et pour votre lien...
val
1) je voudrais insérer le fichier non pas dans un nouveau doc comme
c'est le cas avec ma macro mais dans un doc principal déjà enregistre
et que j'aurais ouvert. attention ce doc principal n'est pas toujours
le même... est ce possible ?
Utiliser comme référence activedocument ou des variables de type document
Dans un cas comme le vôtre je ferais
dim Doc1 as document
dim Doc2 as document
set doc1 = activedocument
set doc2 = Documents.Add DocumentType:=wdNewBlankDocument
' doc2 est VIDE
doc1. Selection.Copy
doc2.selection.TypeText Text:="erfgrggt'g"
mais se pose la question du positionnement :
2) je voudrais choisir dans le doc principal l'endroit ou j'insère le
fichier.
Utiliser les signets
3) je voudrais insérer dans le doc principal uniquement le contenu du
fichier et non pas comme c'est encore le cas avec ma macro le texte
"erfgrggtg" + le contenu du fichier.
Un petit coup d'oeil, même un grand dans la faq de la webmistress marina
(où il y en plein d'autres bonnes choses aussi)
http://faqword.free.fr
Il y a un didacticiel pour débuter avec les macros.
--
A+
je ne m'en sort pas ! en essayant d'utiliser vos conseils ma macro ne fonctionne pas. je n'ai pas l'habitude de creer des macros je je fais certainement des erreurs... je vais retravailler dessus.
en tous cas merci pour votre message et pour votre lien...
val
1) je voudrais insérer le fichier non pas dans un nouveau doc comme c'est le cas avec ma macro mais dans un doc principal déjà enregistre et que j'aurais ouvert. attention ce doc principal n'est pas toujours le même... est ce possible ?
Utiliser comme référence activedocument ou des variables de type document Dans un cas comme le vôtre je ferais dim Doc1 as document dim Doc2 as document set doc1 = activedocument set doc2 = Documents.Add DocumentType:=wdNewBlankDocument ' doc2 est VIDE doc1. Selection.Copy doc2.selection.TypeText Text:="erfgrggt'g" mais se pose la question du positionnement :
2) je voudrais choisir dans le doc principal l'endroit ou j'insère le fichier.
Utiliser les signets
3) je voudrais insérer dans le doc principal uniquement le contenu du fichier et non pas comme c'est encore le cas avec ma macro le texte "erfgrggtg" + le contenu du fichier.
Un petit coup d'oeil, même un grand dans la faq de la webmistress marina (où il y en plein d'autres bonnes choses aussi) http://faqword.free.fr
Il y a un didacticiel pour débuter avec les macros. -- A+
