[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Bonjour
Dans une procédure visant à supprimer tous les paragraphes vides d'un document, je
souhaite concerver les paragraphes qui contiennent des sauts (page, section, colonne).
Ce que je cherche à faire :
If ActiveDocument.Paragraphs(X) ....contient saut de type.... then
Je travaille avec la version 2003 de Word
Merci d'avance
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Bonjour
Dans une procédure visant à supprimer tous les paragraphes vides d'un document, je
souhaite concerver les paragraphes qui contiennent des sauts (page, section, colonne).
Ce que je cherche à faire :
If ActiveDocument.Paragraphs(X) ....contient saut de type.... then
Je travaille avec la version 2003 de Word
Merci d'avance
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Bonjour
Dans une procédure visant à supprimer tous les paragraphes vides d'un document, je
souhaite concerver les paragraphes qui contiennent des sauts (page, section, colonne).
Ce que je cherche à faire :
If ActiveDocument.Paragraphs(X) ....contient saut de type.... then
Je travaille avec la version 2003 de Word
Merci d'avance
Bonjour[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour
Dans une procédure visant à supprimer tous les paragraphes vides d'un
document, je souhaite concerver les paragraphes qui contiennent des sauts
(page, section, colonne).
[...]Ce que je cherche à faire :
If ActiveDocument.Paragraphs(X) ....contient saut de type.... then
Je travaille avec la version 2003 de Word
Merci d'avance
Un saut n'est pas lié à un paragraphe, c'est un caractère particulier.
Pour connaître les sauts de page il faut rechercher les caractères de
valeur 12.
Une fin de paragraphe a pour valeur 13.
Donc la suite 13 12 13 correspond à un paragraphe ne contenant qu'un saut
de page.
Bel exercice de programmation en vue.
La fonction rechercher remplacer peut être une piste, surtout qu'elle est
très performante.
--
A+
Bonjour
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour
Dans une procédure visant à supprimer tous les paragraphes vides d'un
document, je souhaite concerver les paragraphes qui contiennent des sauts
(page, section, colonne).
[...]
Ce que je cherche à faire :
If ActiveDocument.Paragraphs(X) ....contient saut de type.... then
Je travaille avec la version 2003 de Word
Merci d'avance
Un saut n'est pas lié à un paragraphe, c'est un caractère particulier.
Pour connaître les sauts de page il faut rechercher les caractères de
valeur 12.
Une fin de paragraphe a pour valeur 13.
Donc la suite 13 12 13 correspond à un paragraphe ne contenant qu'un saut
de page.
Bel exercice de programmation en vue.
La fonction rechercher remplacer peut être une piste, surtout qu'elle est
très performante.
--
A+
Bonjour[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour
Dans une procédure visant à supprimer tous les paragraphes vides d'un
document, je souhaite concerver les paragraphes qui contiennent des sauts
(page, section, colonne).
[...]Ce que je cherche à faire :
If ActiveDocument.Paragraphs(X) ....contient saut de type.... then
Je travaille avec la version 2003 de Word
Merci d'avance
Un saut n'est pas lié à un paragraphe, c'est un caractère particulier.
Pour connaître les sauts de page il faut rechercher les caractères de
valeur 12.
Une fin de paragraphe a pour valeur 13.
Donc la suite 13 12 13 correspond à un paragraphe ne contenant qu'un saut
de page.
Bel exercice de programmation en vue.
La fonction rechercher remplacer peut être une piste, surtout qu'elle est
très performante.
--
A+
Re
En fait ce n'est pas si simple.
Le caractère 12 correspond à un saut, reste à déterminer de quoi.
Il y a bien une propriété de paragraphe qui est
PageBreakBefore qui indique si le paragraphe est précédé d'un saut de
page.
Pour les sections on a la propriété PageSetup.SectionStart.
mais j'avoue que je patauge un peu, il va falloir y passer un peu de temps
pour bien comprendre.
--
A+
Re
En fait ce n'est pas si simple.
Le caractère 12 correspond à un saut, reste à déterminer de quoi.
Il y a bien une propriété de paragraphe qui est
PageBreakBefore qui indique si le paragraphe est précédé d'un saut de
page.
Pour les sections on a la propriété PageSetup.SectionStart.
mais j'avoue que je patauge un peu, il va falloir y passer un peu de temps
pour bien comprendre.
--
A+
Re
En fait ce n'est pas si simple.
Le caractère 12 correspond à un saut, reste à déterminer de quoi.
Il y a bien une propriété de paragraphe qui est
PageBreakBefore qui indique si le paragraphe est précédé d'un saut de
page.
Pour les sections on a la propriété PageSetup.SectionStart.
mais j'avoue que je patauge un peu, il va falloir y passer un peu de temps
pour bien comprendre.
--
A+
J'ai ensuite essayé la propriété PageBreakBefore, mais là le résultat est moins probant
!
A la ligne : "ActiveDocument.Paragraphs(X).PageBreakBefore", j'ai "0" pour unique
résultat.
Ce que je cherche à faire dans un tableau :
- Récupérer le type du saut
- Localiser le saut
- Supprimer les paragraphes vides
- Repositionner le saut
- Re insérer le saut
En écrivant cela, il faudra aussi que je récupère les paramètres de mises en pages pour
les saut de section...
Bref, je n'ai pas fini
J'ai ensuite essayé la propriété PageBreakBefore, mais là le résultat est moins probant
!
A la ligne : "ActiveDocument.Paragraphs(X).PageBreakBefore", j'ai "0" pour unique
résultat.
Ce que je cherche à faire dans un tableau :
- Récupérer le type du saut
- Localiser le saut
- Supprimer les paragraphes vides
- Repositionner le saut
- Re insérer le saut
En écrivant cela, il faudra aussi que je récupère les paramètres de mises en pages pour
les saut de section...
Bref, je n'ai pas fini
J'ai ensuite essayé la propriété PageBreakBefore, mais là le résultat est moins probant
!
A la ligne : "ActiveDocument.Paragraphs(X).PageBreakBefore", j'ai "0" pour unique
résultat.
Ce que je cherche à faire dans un tableau :
- Récupérer le type du saut
- Localiser le saut
- Supprimer les paragraphes vides
- Repositionner le saut
- Re insérer le saut
En écrivant cela, il faudra aussi que je récupère les paramètres de mises en pages pour
les saut de section...
Bref, je n'ai pas fini
BonsoirJ'ai ensuite essayé la propriété PageBreakBefore, mais là le résultat est
moins probant !
A la ligne : "ActiveDocument.Paragraphs(X).PageBreakBefore", j'ai "0"
pour unique résultat.
Pas mieux.Ce que je cherche à faire dans un tableau :
- Récupérer le type du saut
- Localiser le saut
- Supprimer les paragraphes vides
- Repositionner le saut
- Re insérer le sautEn écrivant cela, il faudra aussi que je récupère les paramètres de mises
en pages pour les saut de section...
Bref, je n'ai pas fini
En effet.
Votre description est certainement un peu synthétique, mais pour supprimer
des paragraphes vides, le plus simple est d'utiliser la fonction de
recherche : on remplace tous les ^p^p par ^p, à faire passer
éventuellement plusieurs fois.
Ça ne supprime ni les saut de page, ni les sauts de section puisque le
saut est un caractère et donc il n'y a pas deux fins de paragraphes
successives quand un saut de page ou deux section est entre.
--
A+
Bonsoir
J'ai ensuite essayé la propriété PageBreakBefore, mais là le résultat est
moins probant !
A la ligne : "ActiveDocument.Paragraphs(X).PageBreakBefore", j'ai "0"
pour unique résultat.
Pas mieux.
Ce que je cherche à faire dans un tableau :
- Récupérer le type du saut
- Localiser le saut
- Supprimer les paragraphes vides
- Repositionner le saut
- Re insérer le saut
En écrivant cela, il faudra aussi que je récupère les paramètres de mises
en pages pour les saut de section...
Bref, je n'ai pas fini
En effet.
Votre description est certainement un peu synthétique, mais pour supprimer
des paragraphes vides, le plus simple est d'utiliser la fonction de
recherche : on remplace tous les ^p^p par ^p, à faire passer
éventuellement plusieurs fois.
Ça ne supprime ni les saut de page, ni les sauts de section puisque le
saut est un caractère et donc il n'y a pas deux fins de paragraphes
successives quand un saut de page ou deux section est entre.
--
A+
BonsoirJ'ai ensuite essayé la propriété PageBreakBefore, mais là le résultat est
moins probant !
A la ligne : "ActiveDocument.Paragraphs(X).PageBreakBefore", j'ai "0"
pour unique résultat.
Pas mieux.Ce que je cherche à faire dans un tableau :
- Récupérer le type du saut
- Localiser le saut
- Supprimer les paragraphes vides
- Repositionner le saut
- Re insérer le sautEn écrivant cela, il faudra aussi que je récupère les paramètres de mises
en pages pour les saut de section...
Bref, je n'ai pas fini
En effet.
Votre description est certainement un peu synthétique, mais pour supprimer
des paragraphes vides, le plus simple est d'utiliser la fonction de
recherche : on remplace tous les ^p^p par ^p, à faire passer
éventuellement plusieurs fois.
Ça ne supprime ni les saut de page, ni les sauts de section puisque le
saut est un caractère et donc il n'y a pas deux fins de paragraphes
successives quand un saut de page ou deux section est entre.
--
A+
Non, je ne peux pas uitiliser la méthode Rechercher/Remplacer car je veux conserver la
mise en page originale.
Pour cela, avant de supprimer un paragraphe vide, je récupère les valeurs "espace
avant", "espace après", "taille de la police" du paragraphe et j'injecte la somme de
ces valeurs soit au paragraphe précédent, soit au suivant en fonction des circonstances
(début ou fin de document, tableau...).
Voilà pourquoi je cherche à récuperer les sauts et leurs propriétés afin de pouvoir,
soit garder le paragraphe lié, soit remettre les saut en bonne place.
Non, je ne peux pas uitiliser la méthode Rechercher/Remplacer car je veux conserver la
mise en page originale.
Pour cela, avant de supprimer un paragraphe vide, je récupère les valeurs "espace
avant", "espace après", "taille de la police" du paragraphe et j'injecte la somme de
ces valeurs soit au paragraphe précédent, soit au suivant en fonction des circonstances
(début ou fin de document, tableau...).
Voilà pourquoi je cherche à récuperer les sauts et leurs propriétés afin de pouvoir,
soit garder le paragraphe lié, soit remettre les saut en bonne place.
Non, je ne peux pas uitiliser la méthode Rechercher/Remplacer car je veux conserver la
mise en page originale.
Pour cela, avant de supprimer un paragraphe vide, je récupère les valeurs "espace
avant", "espace après", "taille de la police" du paragraphe et j'injecte la somme de
ces valeurs soit au paragraphe précédent, soit au suivant en fonction des circonstances
(début ou fin de document, tableau...).
Voilà pourquoi je cherche à récuperer les sauts et leurs propriétés afin de pouvoir,
soit garder le paragraphe lié, soit remettre les saut en bonne place.
BonjourNon, je ne peux pas uitiliser la méthode Rechercher/Remplacer car je veux
conserver la mise en page originale.
Pour cela, avant de supprimer un paragraphe vide, je récupère les valeurs
"espace avant", "espace après", "taille de la police" du paragraphe et
j'injecte la somme de ces valeurs soit au paragraphe précédent, soit au
suivant en fonction des circonstances (début ou fin de document,
tableau...).
Voilà pourquoi je cherche à récuperer les sauts et leurs propriétés afin
de pouvoir, soit garder le paragraphe lié, soit remettre les saut en
bonne place.
Ah ! oui ....
Vous êtes sur de ne pas vouloir passer à Excel ? Parce que là au moins la
taille des cases est fixe.
J'ai peur que vous ne suiviez les pas de Sisyphe.
A toutes fins utiles je vous signale la propriété Range.Information, avec
la valeur wdVerticalPositionRelativeToPage, elle vous donne la position du
texte dans la page.
Ça vous permettra au moins de vérifier que les texte est au bon endroit.
--
A+
Bonjour
Non, je ne peux pas uitiliser la méthode Rechercher/Remplacer car je veux
conserver la mise en page originale.
Pour cela, avant de supprimer un paragraphe vide, je récupère les valeurs
"espace avant", "espace après", "taille de la police" du paragraphe et
j'injecte la somme de ces valeurs soit au paragraphe précédent, soit au
suivant en fonction des circonstances (début ou fin de document,
tableau...).
Voilà pourquoi je cherche à récuperer les sauts et leurs propriétés afin
de pouvoir, soit garder le paragraphe lié, soit remettre les saut en
bonne place.
Ah ! oui ....
Vous êtes sur de ne pas vouloir passer à Excel ? Parce que là au moins la
taille des cases est fixe.
J'ai peur que vous ne suiviez les pas de Sisyphe.
A toutes fins utiles je vous signale la propriété Range.Information, avec
la valeur wdVerticalPositionRelativeToPage, elle vous donne la position du
texte dans la page.
Ça vous permettra au moins de vérifier que les texte est au bon endroit.
--
A+
BonjourNon, je ne peux pas uitiliser la méthode Rechercher/Remplacer car je veux
conserver la mise en page originale.
Pour cela, avant de supprimer un paragraphe vide, je récupère les valeurs
"espace avant", "espace après", "taille de la police" du paragraphe et
j'injecte la somme de ces valeurs soit au paragraphe précédent, soit au
suivant en fonction des circonstances (début ou fin de document,
tableau...).
Voilà pourquoi je cherche à récuperer les sauts et leurs propriétés afin
de pouvoir, soit garder le paragraphe lié, soit remettre les saut en
bonne place.
Ah ! oui ....
Vous êtes sur de ne pas vouloir passer à Excel ? Parce que là au moins la
taille des cases est fixe.
J'ai peur que vous ne suiviez les pas de Sisyphe.
A toutes fins utiles je vous signale la propriété Range.Information, avec
la valeur wdVerticalPositionRelativeToPage, elle vous donne la position du
texte dans la page.
Ça vous permettra au moins de vérifier que les texte est au bon endroit.
--
A+
BonjourNon, je ne peux pas uitiliser la méthode Rechercher/Remplacer car je veux
conserver la mise en page originale.
Pour cela, avant de supprimer un paragraphe vide, je récupère les valeurs
"espace avant", "espace après", "taille de la police" du paragraphe et
j'injecte la somme de ces valeurs soit au paragraphe précédent, soit au
suivant en fonction des circonstances (début ou fin de document,
tableau...).
Voilà pourquoi je cherche à récuperer les sauts et leurs propriétés afin
de pouvoir, soit garder le paragraphe lié, soit remettre les saut en
bonne place.
Ah ! oui ....
Vous êtes sur de ne pas vouloir passer à Excel ? Parce que là au moins la
taille des cases est fixe.
J'ai peur que vous ne suiviez les pas de Sisyphe.
A toutes fins utiles je vous signale la propriété Range.Information, avec
la valeur wdVerticalPositionRelativeToPage, elle vous donne la position du
texte dans la page.
Ça vous permettra au moins de vérifier que les texte est au bon endroit.
--
A+
Bonjour
Non, je ne peux pas uitiliser la méthode Rechercher/Remplacer car je veux
conserver la mise en page originale.
Pour cela, avant de supprimer un paragraphe vide, je récupère les valeurs
"espace avant", "espace après", "taille de la police" du paragraphe et
j'injecte la somme de ces valeurs soit au paragraphe précédent, soit au
suivant en fonction des circonstances (début ou fin de document,
tableau...).
Voilà pourquoi je cherche à récuperer les sauts et leurs propriétés afin
de pouvoir, soit garder le paragraphe lié, soit remettre les saut en
bonne place.
Ah ! oui ....
Vous êtes sur de ne pas vouloir passer à Excel ? Parce que là au moins la
taille des cases est fixe.
J'ai peur que vous ne suiviez les pas de Sisyphe.
A toutes fins utiles je vous signale la propriété Range.Information, avec
la valeur wdVerticalPositionRelativeToPage, elle vous donne la position du
texte dans la page.
Ça vous permettra au moins de vérifier que les texte est au bon endroit.
--
A+
BonjourNon, je ne peux pas uitiliser la méthode Rechercher/Remplacer car je veux
conserver la mise en page originale.
Pour cela, avant de supprimer un paragraphe vide, je récupère les valeurs
"espace avant", "espace après", "taille de la police" du paragraphe et
j'injecte la somme de ces valeurs soit au paragraphe précédent, soit au
suivant en fonction des circonstances (début ou fin de document,
tableau...).
Voilà pourquoi je cherche à récuperer les sauts et leurs propriétés afin
de pouvoir, soit garder le paragraphe lié, soit remettre les saut en
bonne place.
Ah ! oui ....
Vous êtes sur de ne pas vouloir passer à Excel ? Parce que là au moins la
taille des cases est fixe.
J'ai peur que vous ne suiviez les pas de Sisyphe.
A toutes fins utiles je vous signale la propriété Range.Information, avec
la valeur wdVerticalPositionRelativeToPage, elle vous donne la position du
texte dans la page.
Ça vous permettra au moins de vérifier que les texte est au bon endroit.
--
A+