Bonjour,
Je veux créer une présentation Powerpoint à partir d'un bon nombre de
fichiers Word.
Tous ces fichiers Word ( ce n'est pas moi qui les ai créés ) sont entourés
d'un même cadre de couleur.
Seulement voilà , une fois sur dix lorsque j'incorpore un dossier Word dans
une diapositive Powerpoint le texte est décalé par rapport au cadre.
J'ai essayé de sélectionner le texte pour le recopier sur une page vierge
mais un morceau du cadre subsiste.
Avez vous une idée pour extraire ce texte sans le cadre ?
Merci d'avance
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
Geo
Bonjour à lapache qui nous a écrit :
Bonjour, Je veux créer une présentation Powerpoint à partir d'un bon nombre de fichiers Word. Tous ces fichiers Word ( ce n'est pas moi qui les ai créés ) sont entourés d'un même cadre de couleur. Seulement voilà , une fois sur dix lorsque j'incorpore un dossier Word dans une diapositive Powerpoint le texte est décalé par rapport au cadre. J'ai essayé de sélectionner le texte pour le recopier sur une page vierge mais un morceau du cadre subsiste. Avez vous une idée pour extraire ce texte sans le cadre ? Merci d'avance
Ça dépend sans doute comment le cadre a été fait. Essayez d'enregistrer le document en format RTF. Le cadre aura peut-être disparu à l'ouverture.
Sinon, si vous ne savez pas comment le cadre a été fait, mettez un échantillon sur cjoint.com qu'on puisse regarder.
-- A+
Bonjour à lapache qui nous a écrit :
Bonjour,
Je veux créer une présentation Powerpoint à partir d'un bon nombre de fichiers Word.
Tous ces fichiers Word ( ce n'est pas moi qui les ai créés ) sont entourés d'un même
cadre de couleur.
Seulement voilà , une fois sur dix lorsque j'incorpore un dossier Word dans une
diapositive Powerpoint le texte est décalé par rapport au cadre.
J'ai essayé de sélectionner le texte pour le recopier sur une page vierge mais un
morceau du cadre subsiste.
Avez vous une idée pour extraire ce texte sans le cadre ?
Merci d'avance
Ça dépend sans doute comment le cadre a été fait.
Essayez d'enregistrer le document en format RTF.
Le cadre aura peut-être disparu à l'ouverture.
Sinon, si vous ne savez pas comment le cadre a été fait, mettez un
échantillon sur cjoint.com qu'on puisse regarder.
Bonjour, Je veux créer une présentation Powerpoint à partir d'un bon nombre de fichiers Word. Tous ces fichiers Word ( ce n'est pas moi qui les ai créés ) sont entourés d'un même cadre de couleur. Seulement voilà , une fois sur dix lorsque j'incorpore un dossier Word dans une diapositive Powerpoint le texte est décalé par rapport au cadre. J'ai essayé de sélectionner le texte pour le recopier sur une page vierge mais un morceau du cadre subsiste. Avez vous une idée pour extraire ce texte sans le cadre ? Merci d'avance
Ça dépend sans doute comment le cadre a été fait. Essayez d'enregistrer le document en format RTF. Le cadre aura peut-être disparu à l'ouverture.
Sinon, si vous ne savez pas comment le cadre a été fait, mettez un échantillon sur cjoint.com qu'on puisse regarder.
-- A+
lapache
Merci pour votre réponse. Je vous donne le lien " cjoint " Si vous pouvez m'aider ce serait super !
http://cjoint.com/?hhsLgg6qM3
"Geo" a écrit dans le message de news:
Bonjour à lapache qui nous a écrit :
Bonjour, Je veux créer une présentation Powerpoint à partir d'un bon nombre de fichiers Word. Tous ces fichiers Word ( ce n'est pas moi qui les ai créés ) sont entourés d'un même cadre de couleur. Seulement voilà , une fois sur dix lorsque j'incorpore un dossier Word dans une diapositive Powerpoint le texte est décalé par rapport au cadre. J'ai essayé de sélectionner le texte pour le recopier sur une page vierge mais un morceau du cadre subsiste. Avez vous une idée pour extraire ce texte sans le cadre ? Merci d'avance
Ça dépend sans doute comment le cadre a été fait. Essayez d'enregistrer le document en format RTF. Le cadre aura peut-être disparu à l'ouverture.
Sinon, si vous ne savez pas comment le cadre a été fait, mettez un échantillon sur cjoint.com qu'on puisse regarder.
-- A+
Merci pour votre réponse.
Je vous donne le lien " cjoint "
Si vous pouvez m'aider ce serait super !
http://cjoint.com/?hhsLgg6qM3
"Geo" <Geo@sans.pub> a écrit dans le message de
news:mn.3c117d872046e541.41568@sans.pub...
Bonjour à lapache qui nous a écrit :
Bonjour,
Je veux créer une présentation Powerpoint à partir d'un bon nombre de
fichiers Word.
Tous ces fichiers Word ( ce n'est pas moi qui les ai créés ) sont
entourés d'un même cadre de couleur.
Seulement voilà , une fois sur dix lorsque j'incorpore un dossier Word
dans une diapositive Powerpoint le texte est décalé par rapport au cadre.
J'ai essayé de sélectionner le texte pour le recopier sur une page vierge
mais un morceau du cadre subsiste.
Avez vous une idée pour extraire ce texte sans le cadre ?
Merci d'avance
Ça dépend sans doute comment le cadre a été fait.
Essayez d'enregistrer le document en format RTF.
Le cadre aura peut-être disparu à l'ouverture.
Sinon, si vous ne savez pas comment le cadre a été fait, mettez un
échantillon sur cjoint.com qu'on puisse regarder.
Merci pour votre réponse. Je vous donne le lien " cjoint " Si vous pouvez m'aider ce serait super !
http://cjoint.com/?hhsLgg6qM3
"Geo" a écrit dans le message de news:
Bonjour à lapache qui nous a écrit :
Bonjour, Je veux créer une présentation Powerpoint à partir d'un bon nombre de fichiers Word. Tous ces fichiers Word ( ce n'est pas moi qui les ai créés ) sont entourés d'un même cadre de couleur. Seulement voilà , une fois sur dix lorsque j'incorpore un dossier Word dans une diapositive Powerpoint le texte est décalé par rapport au cadre. J'ai essayé de sélectionner le texte pour le recopier sur une page vierge mais un morceau du cadre subsiste. Avez vous une idée pour extraire ce texte sans le cadre ? Merci d'avance
Ça dépend sans doute comment le cadre a été fait. Essayez d'enregistrer le document en format RTF. Le cadre aura peut-être disparu à l'ouverture.
Sinon, si vous ne savez pas comment le cadre a été fait, mettez un échantillon sur cjoint.com qu'on puisse regarder.
-- A+
Geo
Ce sont des zones de texte, voici une petite macro qui les supprime sur le document actif : Sub SuppCadre() Dim z As Shape Dim i As Integer For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoTextBox Then z.Delete End If Next End Sub
On espère qu'il n'y a pas d'autres zones de texte dans vos documents, sinon il faudrait affiner par exemple avce la taille, sur votre document les différents coté du cadre font en hauteur et largeur : 72 621 72 603 720 72 720 72 Pour traiter tous vos documents d'un coup, voyez la batchmacro d'anacoluthe : http://faqword.free.fr/download.php?lng=fr&pgs6
-- A+
Ce sont des zones de texte, voici une petite macro qui les supprime sur
le document actif :
Sub SuppCadre()
Dim z As Shape
Dim i As Integer
For i = ActiveDocument.Shapes.Count To 1 Step -1
Set z = ActiveDocument.Shapes(i)
If z.Type = msoTextBox Then
z.Delete
End If
Next
End Sub
On espère qu'il n'y a pas d'autres zones de texte dans vos documents,
sinon il faudrait affiner par exemple avce la taille, sur votre
document les différents coté du cadre font en hauteur et largeur :
72 621
72 603
720 72
720 72
Pour traiter tous vos documents d'un coup, voyez la batchmacro
d'anacoluthe :
http://faqword.free.fr/download.php?lng=fr&pgs6
Ce sont des zones de texte, voici une petite macro qui les supprime sur le document actif : Sub SuppCadre() Dim z As Shape Dim i As Integer For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoTextBox Then z.Delete End If Next End Sub
On espère qu'il n'y a pas d'autres zones de texte dans vos documents, sinon il faudrait affiner par exemple avce la taille, sur votre document les différents coté du cadre font en hauteur et largeur : 72 621 72 603 720 72 720 72 Pour traiter tous vos documents d'un coup, voyez la batchmacro d'anacoluthe : http://faqword.free.fr/download.php?lng=fr&pgs6
-- A+
lapache
Merci beaucoup , je vais voir ça. "Geo" a écrit dans le message de news:
Ce sont des zones de texte, voici une petite macro qui les supprime sur le document actif : Sub SuppCadre() Dim z As Shape Dim i As Integer For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoTextBox Then z.Delete End If Next End Sub
On espère qu'il n'y a pas d'autres zones de texte dans vos documents, sinon il faudrait affiner par exemple avce la taille, sur votre document les différents coté du cadre font en hauteur et largeur : 72 621 72 603 720 72 720 72 Pour traiter tous vos documents d'un coup, voyez la batchmacro d'anacoluthe : http://faqword.free.fr/download.php?lng=fr&pgs6
-- A+
Merci beaucoup , je vais voir ça.
"Geo" <Geo@sans.pub> a écrit dans le message de
news:mn.3cca7d87ecbb312a.41568@sans.pub...
Ce sont des zones de texte, voici une petite macro qui les supprime sur le
document actif :
Sub SuppCadre()
Dim z As Shape
Dim i As Integer
For i = ActiveDocument.Shapes.Count To 1 Step -1
Set z = ActiveDocument.Shapes(i)
If z.Type = msoTextBox Then
z.Delete
End If
Next
End Sub
On espère qu'il n'y a pas d'autres zones de texte dans vos documents,
sinon il faudrait affiner par exemple avce la taille, sur votre document
les différents coté du cadre font en hauteur et largeur :
72 621
72 603
720 72
720 72
Pour traiter tous vos documents d'un coup, voyez la batchmacro
d'anacoluthe :
http://faqword.free.fr/download.php?lng=fr&pgs6
Merci beaucoup , je vais voir ça. "Geo" a écrit dans le message de news:
Ce sont des zones de texte, voici une petite macro qui les supprime sur le document actif : Sub SuppCadre() Dim z As Shape Dim i As Integer For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoTextBox Then z.Delete End If Next End Sub
On espère qu'il n'y a pas d'autres zones de texte dans vos documents, sinon il faudrait affiner par exemple avce la taille, sur votre document les différents coté du cadre font en hauteur et largeur : 72 621 72 603 720 72 720 72 Pour traiter tous vos documents d'un coup, voyez la batchmacro d'anacoluthe : http://faqword.free.fr/download.php?lng=fr&pgs6
-- A+
lapache
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en fait je n'ai jamais utilisé de macro . Y a t il quelque part un petit tuto pour ça ?
J'imagine qu'il faut d'abord l'enrégistrer ? Où ?
et ensuite l'appliquer . Comment ?
Merci d'avance.
"Geo" a écrit dans le message de news:
Ce sont des zones de texte, voici une petite macro qui les supprime sur le document actif : Sub SuppCadre() Dim z As Shape Dim i As Integer For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoTextBox Then z.Delete End If Next End Sub
On espère qu'il n'y a pas d'autres zones de texte dans vos documents, sinon il faudrait affiner par exemple avce la taille, sur votre document les différents coté du cadre font en hauteur et largeur : 72 621 72 603 720 72 720 72 Pour traiter tous vos documents d'un coup, voyez la batchmacro d'anacoluthe : http://faqword.free.fr/download.php?lng=fr&pgs6
-- A+
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en fait
je n'ai jamais utilisé de macro . Y a t il quelque part un petit tuto pour
ça ?
J'imagine qu'il faut d'abord l'enrégistrer ? Où ?
et ensuite l'appliquer . Comment ?
Merci d'avance.
"Geo" <Geo@sans.pub> a écrit dans le message de
news:mn.3cca7d87ecbb312a.41568@sans.pub...
Ce sont des zones de texte, voici une petite macro qui les supprime sur le
document actif :
Sub SuppCadre()
Dim z As Shape
Dim i As Integer
For i = ActiveDocument.Shapes.Count To 1 Step -1
Set z = ActiveDocument.Shapes(i)
If z.Type = msoTextBox Then
z.Delete
End If
Next
End Sub
On espère qu'il n'y a pas d'autres zones de texte dans vos documents,
sinon il faudrait affiner par exemple avce la taille, sur votre document
les différents coté du cadre font en hauteur et largeur :
72 621
72 603
720 72
720 72
Pour traiter tous vos documents d'un coup, voyez la batchmacro
d'anacoluthe :
http://faqword.free.fr/download.php?lng=fr&pgs6
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en fait je n'ai jamais utilisé de macro . Y a t il quelque part un petit tuto pour ça ?
J'imagine qu'il faut d'abord l'enrégistrer ? Où ?
et ensuite l'appliquer . Comment ?
Merci d'avance.
"Geo" a écrit dans le message de news:
Ce sont des zones de texte, voici une petite macro qui les supprime sur le document actif : Sub SuppCadre() Dim z As Shape Dim i As Integer For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoTextBox Then z.Delete End If Next End Sub
On espère qu'il n'y a pas d'autres zones de texte dans vos documents, sinon il faudrait affiner par exemple avce la taille, sur votre document les différents coté du cadre font en hauteur et largeur : 72 621 72 603 720 72 720 72 Pour traiter tous vos documents d'un coup, voyez la batchmacro d'anacoluthe : http://faqword.free.fr/download.php?lng=fr&pgs6
-- A+
Geo
Bonjour à lapache qui nous a écrit :
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en fait je n'ai jamais utilisé de macro . Y a t il quelque part un petit tuto pour ça ?
Votre question au départ était de récupérer le texte pour faire des diapos, là on supprime seulement l'encadrement. Dans votre exemple, il y a aussi des dessins comme "FFvoile" "Securimar", vous voulez aussi les récupérer ? Parce que si c'est pour faire des diapos uniquement avec le texte, au sens strict de Word, autant faire une macro PowerPoint qui génère les diapos. Ça dépend du nombre de fichiers. Pour 10 ça ne vaut pas le coup, mais pour 200 c'est intéressant.
-- A+
Bonjour à lapache qui nous a écrit :
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en fait je n'ai
jamais utilisé de macro . Y a t il quelque part un petit tuto pour ça ?
Votre question au départ était de récupérer le texte pour faire des
diapos, là on supprime seulement l'encadrement.
Dans votre exemple, il y a aussi des dessins comme "FFvoile"
"Securimar", vous voulez aussi les récupérer ?
Parce que si c'est pour faire des diapos uniquement avec le texte, au
sens strict de Word, autant faire une macro PowerPoint qui génère les
diapos. Ça dépend du nombre de fichiers. Pour 10 ça ne vaut pas le
coup, mais pour 200 c'est intéressant.
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en fait je n'ai jamais utilisé de macro . Y a t il quelque part un petit tuto pour ça ?
Votre question au départ était de récupérer le texte pour faire des diapos, là on supprime seulement l'encadrement. Dans votre exemple, il y a aussi des dessins comme "FFvoile" "Securimar", vous voulez aussi les récupérer ? Parce que si c'est pour faire des diapos uniquement avec le texte, au sens strict de Word, autant faire une macro PowerPoint qui génère les diapos. Ça dépend du nombre de fichiers. Pour 10 ça ne vaut pas le coup, mais pour 200 c'est intéressant.
-- A+
lapache
Merci bien,
Je vais voir ça. Et je reviendrai en cas de problème.
"Geo" a écrit dans le message de news:
Bonjour à lapache qui nous a écrit :
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en fait je n'ai jamais utilisé de macro . Y a t il quelque part un petit tuto pour ça ?
Votre question au départ était de récupérer le texte pour faire des diapos, là on supprime seulement l'encadrement. Dans votre exemple, il y a aussi des dessins comme "FFvoile" "Securimar", vous voulez aussi les récupérer ? Parce que si c'est pour faire des diapos uniquement avec le texte, au sens strict de Word, autant faire une macro PowerPoint qui génère les diapos. Ça dépend du nombre de fichiers. Pour 10 ça ne vaut pas le coup, mais pour 200 c'est intéressant.
-- A+
Merci bien,
Je vais voir ça. Et je reviendrai en cas de problème.
"Geo" <Geo@sans.pub> a écrit dans le message de
news:mn.42467d870e4898c1.41568@sans.pub...
Bonjour à lapache qui nous a écrit :
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en
fait je n'ai jamais utilisé de macro . Y a t il quelque part un petit
tuto pour ça ?
Votre question au départ était de récupérer le texte pour faire des
diapos, là on supprime seulement l'encadrement.
Dans votre exemple, il y a aussi des dessins comme "FFvoile" "Securimar",
vous voulez aussi les récupérer ?
Parce que si c'est pour faire des diapos uniquement avec le texte, au sens
strict de Word, autant faire une macro PowerPoint qui génère les diapos.
Ça dépend du nombre de fichiers. Pour 10 ça ne vaut pas le coup, mais pour
200 c'est intéressant.
Je vais voir ça. Et je reviendrai en cas de problème.
"Geo" a écrit dans le message de news:
Bonjour à lapache qui nous a écrit :
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en fait je n'ai jamais utilisé de macro . Y a t il quelque part un petit tuto pour ça ?
Votre question au départ était de récupérer le texte pour faire des diapos, là on supprime seulement l'encadrement. Dans votre exemple, il y a aussi des dessins comme "FFvoile" "Securimar", vous voulez aussi les récupérer ? Parce que si c'est pour faire des diapos uniquement avec le texte, au sens strict de Word, autant faire une macro PowerPoint qui génère les diapos. Ça dépend du nombre de fichiers. Pour 10 ça ne vaut pas le coup, mais pour 200 c'est intéressant.
-- A+
lapache
Je reviens avec une nouvelle page.
http://cjoint.com/?hilQzFXBA0
En fait j'ai exécuté la macro que vous m'avez donné. Elle a bien fonctionné sur la première page mais pas sur celle-ci. Ensuite cette macro a une nouvelle fois bien fonctionné sur une troisième page.
Voyez vous une différence entre ce cadre et le premier ?
Je confirme que c'est uniquement le cadre que je veux enlever . L'en tête de la FFV et de Sécurimar doivent être conservés.
Merci d'avance "Geo" a écrit dans le message de news:
Bonjour à lapache qui nous a écrit :
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en fait je n'ai jamais utilisé de macro . Y a t il quelque part un petit tuto pour ça ?
Votre question au départ était de récupérer le texte pour faire des diapos, là on supprime seulement l'encadrement. Dans votre exemple, il y a aussi des dessins comme "FFvoile" "Securimar", vous voulez aussi les récupérer ? Parce que si c'est pour faire des diapos uniquement avec le texte, au sens strict de Word, autant faire une macro PowerPoint qui génère les diapos. Ça dépend du nombre de fichiers. Pour 10 ça ne vaut pas le coup, mais pour 200 c'est intéressant.
-- A+
Je reviens avec une nouvelle page.
http://cjoint.com/?hilQzFXBA0
En fait j'ai exécuté la macro que vous m'avez donné. Elle a bien fonctionné
sur la première page mais pas sur celle-ci. Ensuite cette macro a une
nouvelle fois bien fonctionné sur une troisième page.
Voyez vous une différence entre ce cadre et le premier ?
Je confirme que c'est uniquement le cadre que je veux enlever . L'en tête de
la FFV et de Sécurimar doivent être conservés.
Merci d'avance
"Geo" <Geo@sans.pub> a écrit dans le message de
news:mn.42467d870e4898c1.41568@sans.pub...
Bonjour à lapache qui nous a écrit :
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en
fait je n'ai jamais utilisé de macro . Y a t il quelque part un petit
tuto pour ça ?
Votre question au départ était de récupérer le texte pour faire des
diapos, là on supprime seulement l'encadrement.
Dans votre exemple, il y a aussi des dessins comme "FFvoile" "Securimar",
vous voulez aussi les récupérer ?
Parce que si c'est pour faire des diapos uniquement avec le texte, au sens
strict de Word, autant faire une macro PowerPoint qui génère les diapos.
Ça dépend du nombre de fichiers. Pour 10 ça ne vaut pas le coup, mais pour
200 c'est intéressant.
En fait j'ai exécuté la macro que vous m'avez donné. Elle a bien fonctionné sur la première page mais pas sur celle-ci. Ensuite cette macro a une nouvelle fois bien fonctionné sur une troisième page.
Voyez vous une différence entre ce cadre et le premier ?
Je confirme que c'est uniquement le cadre que je veux enlever . L'en tête de la FFV et de Sécurimar doivent être conservés.
Merci d'avance "Geo" a écrit dans le message de news:
Bonjour à lapache qui nous a écrit :
Bon je m'aperçois quand même que je vais avoir quelques problèmes : en fait je n'ai jamais utilisé de macro . Y a t il quelque part un petit tuto pour ça ?
Votre question au départ était de récupérer le texte pour faire des diapos, là on supprime seulement l'encadrement. Dans votre exemple, il y a aussi des dessins comme "FFvoile" "Securimar", vous voulez aussi les récupérer ? Parce que si c'est pour faire des diapos uniquement avec le texte, au sens strict de Word, autant faire une macro PowerPoint qui génère les diapos. Ça dépend du nombre de fichiers. Pour 10 ça ne vaut pas le coup, mais pour 200 c'est intéressant.
-- A+
Geo
Bonjour
Je reviens avec une nouvelle page.
http://cjoint.com/?hilQzFXBA0
En fait j'ai exécuté la macro que vous m'avez donné. Elle a bien fonctionné sur la première page mais pas sur celle-ci. Ensuite cette macro a une nouvelle fois bien fonctionné sur une troisième page.
Voyez vous une différence entre ce cadre et le premier ?
Les 4 zones de texte ont été regroupées pour être déplacées en bloc. Je suggère donc de les dégrouper auparavant : Sub SuppCadre() Dim z As Shape Dim i As Integer ' Dégrouper For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoGroup Then z.Ungroup End If Next ' Supprimer les zones de texte For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoTextBox Then z.Delete End If Next End Sub
-- A+
Bonjour
Je reviens avec une nouvelle page.
http://cjoint.com/?hilQzFXBA0
En fait j'ai exécuté la macro que vous m'avez donné. Elle a bien fonctionné sur la
première page mais pas sur celle-ci. Ensuite cette macro a une nouvelle fois bien
fonctionné sur une troisième page.
Voyez vous une différence entre ce cadre et le premier ?
Les 4 zones de texte ont été regroupées pour être déplacées en bloc.
Je suggère donc de les dégrouper auparavant :
Sub SuppCadre()
Dim z As Shape
Dim i As Integer
' Dégrouper
For i = ActiveDocument.Shapes.Count To 1 Step -1
Set z = ActiveDocument.Shapes(i)
If z.Type = msoGroup Then
z.Ungroup
End If
Next
' Supprimer les zones de texte
For i = ActiveDocument.Shapes.Count To 1 Step -1
Set z = ActiveDocument.Shapes(i)
If z.Type = msoTextBox Then
z.Delete
End If
Next
End Sub
En fait j'ai exécuté la macro que vous m'avez donné. Elle a bien fonctionné sur la première page mais pas sur celle-ci. Ensuite cette macro a une nouvelle fois bien fonctionné sur une troisième page.
Voyez vous une différence entre ce cadre et le premier ?
Les 4 zones de texte ont été regroupées pour être déplacées en bloc. Je suggère donc de les dégrouper auparavant : Sub SuppCadre() Dim z As Shape Dim i As Integer ' Dégrouper For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoGroup Then z.Ungroup End If Next ' Supprimer les zones de texte For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoTextBox Then z.Delete End If Next End Sub
-- A+
lapache
Merci beaucoup, je vais essayer ça.
"Geo" a écrit dans le message de news:
Bonjour
Je reviens avec une nouvelle page.
http://cjoint.com/?hilQzFXBA0
En fait j'ai exécuté la macro que vous m'avez donné. Elle a bien fonctionné sur la première page mais pas sur celle-ci. Ensuite cette macro a une nouvelle fois bien fonctionné sur une troisième page.
Voyez vous une différence entre ce cadre et le premier ?
Les 4 zones de texte ont été regroupées pour être déplacées en bloc. Je suggère donc de les dégrouper auparavant : Sub SuppCadre() Dim z As Shape Dim i As Integer ' Dégrouper For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoGroup Then z.Ungroup End If Next ' Supprimer les zones de texte For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoTextBox Then z.Delete End If Next End Sub
-- A+
Merci beaucoup, je vais essayer ça.
"Geo" <Geo@sans.pub> a écrit dans le message de
news:mn.49dc7d873ccc47e6.41568@sans.pub...
Bonjour
Je reviens avec une nouvelle page.
http://cjoint.com/?hilQzFXBA0
En fait j'ai exécuté la macro que vous m'avez donné. Elle a bien
fonctionné sur la première page mais pas sur celle-ci. Ensuite cette
macro a une nouvelle fois bien fonctionné sur une troisième page.
Voyez vous une différence entre ce cadre et le premier ?
Les 4 zones de texte ont été regroupées pour être déplacées en bloc.
Je suggère donc de les dégrouper auparavant :
Sub SuppCadre()
Dim z As Shape
Dim i As Integer
' Dégrouper
For i = ActiveDocument.Shapes.Count To 1 Step -1
Set z = ActiveDocument.Shapes(i)
If z.Type = msoGroup Then
z.Ungroup
End If
Next
' Supprimer les zones de texte
For i = ActiveDocument.Shapes.Count To 1 Step -1
Set z = ActiveDocument.Shapes(i)
If z.Type = msoTextBox Then
z.Delete
End If
Next
End Sub
En fait j'ai exécuté la macro que vous m'avez donné. Elle a bien fonctionné sur la première page mais pas sur celle-ci. Ensuite cette macro a une nouvelle fois bien fonctionné sur une troisième page.
Voyez vous une différence entre ce cadre et le premier ?
Les 4 zones de texte ont été regroupées pour être déplacées en bloc. Je suggère donc de les dégrouper auparavant : Sub SuppCadre() Dim z As Shape Dim i As Integer ' Dégrouper For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoGroup Then z.Ungroup End If Next ' Supprimer les zones de texte For i = ActiveDocument.Shapes.Count To 1 Step -1 Set z = ActiveDocument.Shapes(i) If z.Type = msoTextBox Then z.Delete End If Next End Sub
