aide VBA tabulation

Bonjour !

'JJK94' nous a écrit ...

comment retrouver en VBA les tabulations négatives d'un paragraphe .

Est-ce que les 'tabulations négatives' ont des ondes négatives ?
Si vous parlez du 'retrait gauche' c'est la propriété vba
monParagraphe.LeftIndent

Anacoluthe
« Il est impossible de prédire les conséquences positives ou négatives
du progrès de nos connaissances. »
- Pierre JOLIOT

Bonjour Anacoluthe,

'JJK94' nous a écrit ...

comment retrouver en VBA les tabulations négatives d'un paragraphe .

Est-ce que les 'tabulations négatives' ont des ondes négatives ?
Si vous parlez du 'retrait gauche' c'est la propriété vba
monParagraphe.LeftIndent

Après la sieste...
Moi, je comprends bien "tabulation négative". Cela ressemble à la
récupération de fichiers WordPerfect dans lequel on peut, très logiquement
d'ailleurs d'après le graphisme de la touche <Tab>, utiliser <Maj><Tab> pour
aller dans la marge sans passer par le retrait négatif de paragraphe.
Curieusement, Word autorise la pose de tabulations négatives mais pas son
accès direct (en tout cas, je ne connais pas).

En autoenregistrant une macro recherchant une tabulation à -1 cm, on obtient
quelque chose comme :
Selection.Find.ParagraphFormat.TabStops.Add Position:=_
CentimetersToPoints(-1), Alignment:=wdAlignTabLeft,
Leader:=wdTabLeaderSpaces

Mais je crois que la demande de JJK94 est "comment trouver toutes les
tabulations négatives".
Pas inintéressant pour toutes les supprimer par exemple lors d'un traitement
de fichiers WP.
Il faudrait quelque chose comme "-*".

--
Tisane

je m'explique : quand je parle de tabulations négatives , cela signifie que
quand je clique sur un paragraphe je vois apparaitre à l'écran des marqueurs
de tabulations ,à gauche et en dehors de la zone page .Pour en savoir plus
je clique sur Format/Tabulation et je vois apparaitre dans le controle
"Position" des valeurs négatives . En farfouillant un peu , word dit qu'il
accepte des valeurs de -55,87 à + 55,87 pour des valeurs de tabulation .

"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
eHIPG05vGHA.4296@TK2MSFTNGP06.phx.gbl...

Bonjour !

'JJK94' nous a écrit ...

comment retrouver en VBA les tabulations négatives d'un paragraphe .

Est-ce que les 'tabulations négatives' ont des ondes négatives ?
Si vous parlez du 'retrait gauche' c'est la propriété vba
monParagraphe.LeftIndent

Anacoluthe
« Il est impossible de prédire les conséquences positives ou négatives
du progrès de nos connaissances. »
- Pierre JOLIOT

oui , c'est cela ,
A partir d'Excel , je génère un document constitué de tableaux , d'images ,
et des paragraphes pré-établis et je me retrouve avec des caractères de
tabulations indésirables , ils n'existent pas dans les fichiers sources????
j'ai trouvé un moyen de retouver les tabulations personnalisés :

Dim wd As Document
Dim bm As Bookmark
Dim prs As Paragraphs
Dim pr As Paragraph
Dim tbs As TabStops
Dim tb As TabStop

Set wd = ActiveDocument

Set bm = wd.Bookmarks("ep_conclusion_neg")
Set prs = bm.Range.Paragraphs

For Each pr In prs
pr.Range.Select
Set tbs = pr.TabStops
MsgBox tbs.Count

For x = 1 To tbs.Count
If tbs(1).CustomTab = True Then
MsgBox PointsToCentimeters(tbs(1).Position)
tbs(1).Clear
End If
Next

avec ça ,j'efface toutes les tabulations personnalisées négatives et
positives

JJK

"Tisane" <b.tisane@laposte.net> a écrit dans le message de news:
uyNDB16vGHA.1424@TK2MSFTNGP02.phx.gbl...

Bonjour Anacoluthe,

'JJK94' nous a écrit ...

comment retrouver en VBA les tabulations négatives d'un paragraphe .

Est-ce que les 'tabulations négatives' ont des ondes négatives ?
Si vous parlez du 'retrait gauche' c'est la propriété vba
monParagraphe.LeftIndent

Après la sieste...
Moi, je comprends bien "tabulation négative". Cela ressemble à la
récupération de fichiers WordPerfect dans lequel on peut, très logiquement
d'ailleurs d'après le graphisme de la touche <Tab>, utiliser <Maj><Tab>
pour aller dans la marge sans passer par le retrait négatif de paragraphe.
Curieusement, Word autorise la pose de tabulations négatives mais pas son
accès direct (en tout cas, je ne connais pas).

En autoenregistrant une macro recherchant une tabulation à -1 cm, on
obtient quelque chose comme :
Selection.Find.ParagraphFormat.TabStops.Add Position:=_
CentimetersToPoints(-1), Alignment:=wdAlignTabLeft,
Leader:=wdTabLeaderSpaces

Mais je crois que la demande de JJK94 est "comment trouver toutes les
tabulations négatives".
Pas inintéressant pour toutes les supprimer par exemple lors d'un
traitement de fichiers WP.
Il faudrait quelque chose comme "-*".

--
Tisane

oui , c'est cela ,
A partir d'Excel , je génère un document constitué de tableaux ,
d'images , et des paragraphes pré-établis et je me retrouve avec des
caractères de tabulations indésirables , ils n'existent pas dans les
fichiers sources???? j'ai trouvé un moyen de retouver les tabulations
personnalisés : Dim wd As Document
Dim bm As Bookmark
Dim prs As Paragraphs
Dim pr As Paragraph
Dim tbs As TabStops
Dim tb As TabStop
Set wd = ActiveDocument
Set bm = wd.Bookmarks("ep_conclusion_neg")
Set prs = bm.Range.Paragraphs
For Each pr In prs
pr.Range.Select
Set tbs = pr.TabStops
MsgBox tbs.Count
For x = 1 To tbs.Count
If tbs(1).CustomTab = True Then
MsgBox PointsToCentimeters(tbs(1).Position)
tbs(1).Clear
End If
Next
avec ça ,j'efface toutes les tabulations personnalisées négatives et
positives

Si c'est aussi pour supprimes les positives, autrement dit "TOUTES" les
tabulations, tu t'es compliqué la vie me semble-t-il :
- menu Format | Tabulations, [Effacer tout]
Donne en VBA :
Selection.ParagraphFormat.TabStops.ClearAll
ActiveDocument.DefaultTabStop = CentimetersToPoints(1.25)

C'est tout. La 2e ligne est facultative si tu gardes les tabulations par
défaut d'origine.

--
Tisane

"Tisane" <b.tisane@laposte.net> a écrit dans le message de news:
uyNDB16vGHA.1424@TK2MSFTNGP02.phx.gbl...

Bonjour Anacoluthe,

'JJK94' nous a écrit ...

comment retrouver en VBA les tabulations négatives d'un paragraphe
.

Est-ce que les 'tabulations négatives' ont des ondes négatives ?
Si vous parlez du 'retrait gauche' c'est la propriété vba
monParagraphe.LeftIndent

Après la sieste...
Moi, je comprends bien "tabulation négative". Cela ressemble à la
récupération de fichiers WordPerfect dans lequel on peut, très
logiquement d'ailleurs d'après le graphisme de la touche <Tab>,
utiliser <Maj><Tab> pour aller dans la marge sans passer par le
retrait négatif de paragraphe. Curieusement, Word autorise la pose
de tabulations négatives mais pas son accès direct (en tout cas, je
ne connais pas). En autoenregistrant une macro recherchant une tabulation
à -1 cm, on
obtient quelque chose comme :
Selection.Find.ParagraphFormat.TabStops.Add Position:=_
CentimetersToPoints(-1), Alignment:=wdAlignTabLeft,
Leader:=wdTabLeaderSpaces

Mais je crois que la demande de JJK94 est "comment trouver toutes les
tabulations négatives".
Pas inintéressant pour toutes les supprimer par exemple lors d'un
traitement de fichiers WP.
Il faudrait quelque chose comme "-*".

--
Tisane

Bonjour !

'JJK94' nous a écrit ...

je m'explique : quand je parle de tabulations négatives , cela signifie que
quand je clique sur un paragraphe je vois apparaitre à l'écran des marqueurs
de tabulations ,à gauche et en dehors de la zone page .

et je me retrouve avec des caractères de tabulations indésirables

Ne pas confondre les tabulations et les taquets de tabulation !
Les tabulations en tant que telles ne peuvent être négatives.
La position des taquets peut être négative puisque l'origine
en est la marge gauche.
Même si vous n'avez que des taquets par défaut par exemple à 1,25cm,
vous avez des taquets négatifs à -1,25 -2,50 -3,75 etc
On peut placer également des taquets personnalisés négatifs dans
la limite des dimensions des pages Word (d'où le -55 +55).
Les taquets en position négative n'ont de fonction d'alignement
que pour autant on puisse écrire dans la marge. Sinon un tel
taquet se retrouve d'emblée dans la situation d'un taquet positif
dépassé sur la ligne, donc sans intérêt pour tabuler.
Voilà pourquoi j'ai parlé de retrait gauche comme préalable.

Si ce sont des taquets négatifs personnalisés que vous voulez
supprimer tout en gardant les positifs, votre macro est très
bien : il suffit d'ajouter un test sur tbs(1).Position avant
de faire un tbs(1).Clear

Enfin Tab et Maj+Tab sont aussi des touches de déplacement.
Elles fonctionnent dans un tableau par exemple, mais pas
dans un corps de texte évidemment puisque Tab sert d'abord
à insérer des tabulations.

La discussion est partie dans les 3 directions : caractère
de tabulation, taquets de tabulation, déplacement entre
tabulations. Du moment qu'on s'y retrouve :-)

Anacoluthe
« Il est impossible de prédire les conséquences positives ou négatives
du progrès de nos connaissances. »
- Pierre JOLIOT