Word vba : pas copier éléments derrière texte
Résolu/Fermé
shimuno
Messages postés
28
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
29 février 2012
-
16 juin 2008 à 12:06
shimuno Messages postés 28 Date d'inscription lundi 26 novembre 2007 Statut Membre Dernière intervention 29 février 2012 - 16 juin 2008 à 18:18
shimuno Messages postés 28 Date d'inscription lundi 26 novembre 2007 Statut Membre Dernière intervention 29 février 2012 - 16 juin 2008 à 18:18
A voir également:
- Word vba : pas copier éléments derrière texte
- Supprimer une page word - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
- Word gratuit - Guide
- Signature électronique word - Guide
3 réponses
shimuno
Messages postés
28
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
29 février 2012
16 juin 2008 à 13:39
16 juin 2008 à 13:39
Pour être exact, le fichier que je veux copier a des images dans les en-têtes / pieds de page que je ne veux pas copier car le document où les informations sont collées a ses propres images.
m@rina
Messages postés
20069
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
24 avril 2024
11 271
16 juin 2008 à 13:46
16 juin 2008 à 13:46
Bonjour,
Si tu copies-colles tout le texte AVEC les sauts de section, tu récupéreras les entêtes, car ce sont les sauts de section qui contiennent la mise en page qui précède, y compris les entêtes (et pieds de page).
m@rina
Si tu copies-colles tout le texte AVEC les sauts de section, tu récupéreras les entêtes, car ce sont les sauts de section qui contiennent la mise en page qui précède, y compris les entêtes (et pieds de page).
m@rina
shimuno
Messages postés
28
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
29 février 2012
16 juin 2008 à 15:57
16 juin 2008 à 15:57
Oui, mais ce que je veux faire c'est les supprimer dans ce cas. Le fichier qui me pose problème tient sur une page. Unie idée de l'instruction VBA ?
m@rina
Messages postés
20069
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
24 avril 2024
11 271
16 juin 2008 à 16:49
16 juin 2008 à 16:49
Bonsoir,
S'il s'agit d'un fichier d'une page, je suppose que tu n'as pas de saut de section. Dans ce cas, la mise en page (entête compris) se trouve dans la dernière marque de paragraphe.
Il faut donc que tu copy sans cette dernière marque :
Sub copie_sans_entete()
With Selection
.WholeStory
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
.Copy
End With
End Sub
m@rina
S'il s'agit d'un fichier d'une page, je suppose que tu n'as pas de saut de section. Dans ce cas, la mise en page (entête compris) se trouve dans la dernière marque de paragraphe.
Il faut donc que tu copy sans cette dernière marque :
Sub copie_sans_entete()
With Selection
.WholeStory
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
.Copy
End With
End Sub
m@rina
shimuno
Messages postés
28
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
29 février 2012
16 juin 2008 à 18:18
16 juin 2008 à 18:18
Ca marche très bien, merci. Et encore merci pour le sommaire automatique sans numéro de page.