Re: Problème de mise en forme automatique à l'ouverture - niveaux 1 non souhaités
1 réponse
Romaric CHARTON
Bonjour à tous,
J'avais posté, il y a de cela quelques mois, un message concernant un
problème où des titres de niveau 1 étaient appliqués à l'ouverture
d'un document par la mise en forme auto.
Je viens de reçevoir la réponse d'un lecteur qui propose la macro ci
dessous,
donc je fais remonter l'info.
Merci Jean-François,
A plus,
Romaric
--------------
Je suis tombé par hasard sur ce post (14.04.2003 !).
Ci-dessous macro permettant de remettre au propre automatiquement.
Déclarer cette macro dans normal.dot et associer un menu à la macro.
....
Sub RAZNiveauParag()
'
' Réinitalise l'attribut niveau hiérarchique de tous
' les paragraphes du document actif.
'
Dim MonDoc As Document
Dim Parag As Paragraph
Dim ParagsDoc As Range
Application.ScreenUpdating = False
Set MonDoc = ActiveDocument
Set ParagsDoc = MonDoc.Range
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
Anacoluthe
Bonjour !
"Romaric CHARTON" nous a écrit ...
Je viens de reçevoir la réponse d'un lecteur qui propose la macro ci dessous, donc je fais remonter l'info.
Oui ça peut être bien utile quand il y a du tirage dans la hiérarchie ;-) - Merci pour ce retour -
Anacoluthe « La connaissance est la seule chose qui s'accroît lorsqu'on la partage. » - Sacha BOUDJEMA
Romaric -------------- Je suis tombé par hasard sur ce post (14.04.2003 !).
Ci-dessous macro permettant de remettre au propre automatiquement. Déclarer cette macro dans normal.dot et associer un menu à la macro. ....
Sub RAZNiveauParag() ' ' Réinitalise l'attribut niveau hiérarchique de tous ' les paragraphes du document actif. ' Dim MonDoc As Document Dim Parag As Paragraph Dim ParagsDoc As Range
Application.ScreenUpdating = False
Set MonDoc = ActiveDocument Set ParagsDoc = MonDoc.Range
Je viens de reçevoir la réponse d'un lecteur qui propose la macro ci
dessous,
donc je fais remonter l'info.
Oui ça peut être bien utile quand il y a du tirage
dans la hiérarchie ;-)
- Merci pour ce retour -
Anacoluthe
« La connaissance est la seule chose qui s'accroît
lorsqu'on la partage. »
- Sacha BOUDJEMA
Romaric
--------------
Je suis tombé par hasard sur ce post (14.04.2003 !).
Ci-dessous macro permettant de remettre au propre automatiquement.
Déclarer cette macro dans normal.dot et associer un menu à la macro.
....
Sub RAZNiveauParag()
'
' Réinitalise l'attribut niveau hiérarchique de tous
' les paragraphes du document actif.
'
Dim MonDoc As Document
Dim Parag As Paragraph
Dim ParagsDoc As Range
Application.ScreenUpdating = False
Set MonDoc = ActiveDocument
Set ParagsDoc = MonDoc.Range
Je viens de reçevoir la réponse d'un lecteur qui propose la macro ci dessous, donc je fais remonter l'info.
Oui ça peut être bien utile quand il y a du tirage dans la hiérarchie ;-) - Merci pour ce retour -
Anacoluthe « La connaissance est la seule chose qui s'accroît lorsqu'on la partage. » - Sacha BOUDJEMA
Romaric -------------- Je suis tombé par hasard sur ce post (14.04.2003 !).
Ci-dessous macro permettant de remettre au propre automatiquement. Déclarer cette macro dans normal.dot et associer un menu à la macro. ....
Sub RAZNiveauParag() ' ' Réinitalise l'attribut niveau hiérarchique de tous ' les paragraphes du document actif. ' Dim MonDoc As Document Dim Parag As Paragraph Dim ParagsDoc As Range
Application.ScreenUpdating = False
Set MonDoc = ActiveDocument Set ParagsDoc = MonDoc.Range