Discussion :

[camzo]

Bonjour à tous,

J'ai trouvé le caractère qui remplace un saut de ligne : \r

j'ai tenté par "remplacer par" mais ça m'en fait trop !!

et oui, j'ai dans mon fichier :

une ligne avec "titre 1"
une ligne avec "titre 2"
une ligne avec "titre 3"

une ligne avec "titre 2"
une ligne avec "titre 3"

une ligne avec "titre 1"
une ligne avec "titre 2"
une ligne avec "titre 3"

tout ça, pour le faire basculer sur un autre logiciel

Je dois garder les "titre" donc impossible de faire remplacer tous les sauts de ligne par un espace car tout devient "titre 3"

Bref, il faut que je supprime les sauts de ligne seulement quand la ligne est vide !

Si quelqu'un a une idée, je le remercie d'avance


amicalement,
un documentaliste en Uruguay

[Heureux-oli]

tu dois tester les paragraphes avant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dim para as prargraph
 
For Each para in activedocument.paragraphs
     If para.words(0) = "" then
next para

[camzo]

merci merci,

j'ai corrigé "prargraph" par "paragraphs"

mais on me dit que : "para.words" pose problème

le message d'erreur étant : membre de méthode ou donnée introuvable

que dois-je dois-je faire faire ? ?

[Heureux-oli]

Logique,
Paragraph est un objet de la collection Paragraphs.

et donc, Prargraphs contient les Paragraph.
Et le Paragraph contient la collection Words qui elle même contient les Word ....
Ce qui nous amène à l'erreur !

Paragraphs contient des paragraph, mais pas de Words.

[camzo]

autant pour moi ,

en tout cas, je progresse car j'ai pas la même erreur !

maintenant c'est sur la ligne : "para As Prargraph" (le message étant "type défini par l'utilisateur non défini")


mais qu'entend-tu par tester les paragraphes ? je vois pas bien...

[Heureux-oli]

autant pour moi ,



maintenant c'est sur la ligne : "para As Prargraph" (le message étant "type défini par l'utilisateur non défini")


mais qu'entend-tu par tester les paragraphes ? je vois pas bien...

C'est Paragraph,

[camzo]

bon, ça beug toujours...

je récapitule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub saut_ligne()
Dim para As Paragraph
 
For Each para In ActiveDocument.Paragraphs
     If para.Words(0) = "" Then
Next para
End Sub

et je reviens encore à la même erreur : "type défini par l'utilisateur non défini"

...

[Heureux-oli]

Quelle version de Word possèdes-tu, j'ai écrit le code avec la version 2007.

[camzo]

word 2000

c'est gênant ?

[Heureux-oli]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Sub sautdeligne()
Dim para As Paragraph
 
For Each para In ActiveDocument.Paragraphs
    para.Range.Select
    if Selection.Words(1) = "" then ton action
Next para
 
End Sub

[camzo]

ok ok, je penserai à préciser ma version maintenant...

mais j'ai toujours la même erreur avec : .Words

mais le message d'erreur change : sub ou function non définie


ouïe ouïe ouïe !!!

[Heureux-oli]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Sub sautdeligne()
Dim para As Paragraph
 
For Each para In ActiveDocument.Paragraphs
    para.Range.Select
    Debug.print Selection.Words(1) 
Next para
 
End Sub

Essaie ceci et dis moi si tu as bien le premier mot de tous les paragraphes.

[camzo]

bon, ça me donne rien :

la macro marche, elle défile tout le long du texte mais c'est tout.

c'est normal ?

[Heureux-oli]

Dans l'éditeur VBA, tu devrais avoir des lignes dans la fenêtre exécution.
Et chaque ligne doit avoir le premier mot de ton paragraphe.

[camzo]

mince, je ne peux pas afficher le cript editor car ce n'est pas installer sur l'ordi !!!

je ne peux donc rien lire...

je sens que c'est vraiment mal parti malgré tes précieux efforts...

[Heureux-oli]

Tu fais Alt + F11
et ensuite
Ctrl + G

[camzo]

ok

ça me donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
DESPACHANTES 
 
 
 
 
COURIERS 
 
 
DEPOSITOFISCAL 
TRASLADO 
DIRECCIONGENERAL 
LIQUIDACIONDE 
CONFIGURA 
 
 
EXTENSION 
ILEGITIMIDAD 
PRESCRIPCIONADQUISITIVA
SU 
NO 
AUXILIATORIADE 
PROCESO 
REQUITISO
 
 
 
 
REQUISITOS

voili voilo...

[Heureux-oli]

On a donc bien le premier mot de chaque paragraphe.

Il faut faire un test sur le mot et si il ne contient rein, supprimer le saut de paragraphe.

J'ai essayé de comparer le mot avec une valeur "" mais j'y suis pas arrivé.

Je vais essayer de compter le nombre de lettre du mot.

[Heureux-oli]

Avec le nombre de lettre, on dirais que c'est bon.

[camzo]

ah, c'est cool que tu expliques comment tu réfléchis, comme ça, je piges toujours un peu plus le VB !!!

PS : je ne t'ai présenté qu'un échantillon... y en a beaucup beaucoup plus !