OVH Cloud OVH Cloud

Petite macro VBA

5 réponses
Avatar
Emilie
Bonjour =E0 tous

Dans un document Word j'aimerais r=E9aliser une petite macro=20
qui me permette de rajouter une identation de 0.5 =E0 chaque=20
paragraphe du texte s=E9lectionn=E9 et qui rajoute le texte=20
suivant au d=E9but de chaque paragraphe "* texte ".

Voici un Exemple de texte s=E9lectionn=E9 (nombre de lignes=20
variables)
aaaaaaaaaaaaaaa + Retour chariot
bbbbbbbbbbbbbbb + Retour chariot
ccccccccccccccc + Retour chariot
.....
xxxxxxxxxxxxxxx

Voil=E0 le r=E9sultat d=E9sir=E9 :
* texte aaaaaaaaaaaaaaa + Retour chariot
* texte bbbbbbbbbbbbbbb + Retour chariot
* texte ccccccccccccccc + Retour chariot
.....
* texte xxxxxxxxxxxxxxx

L'instruction suivante quand le texte est s=E9lectionn=E9 me=20
donne l'identation que je d=E9sire :
Selection.ParagraphFormat.FirstLineIndent =3D=20
CentimetersToPoints(0.5)

Je n'arrive par contre pas =E0 faire =E9crire "* texte " au=20
d=E9but de chaque paragraphe du texte s=E9lectionn=E9.

Quelqu'un connait-il une instruction simple ?
Merci =E0 tous ceux qui pourront m'aider.

Emilie

5 réponses

Avatar
Geo
Bonjour Emilie


Bonjour à tous

Dans un document Word j'aimerais réaliser une petite macro
qui me permette de rajouter une identation de 0.5 à chaque
paragraphe du texte sélectionné et qui rajoute le texte
suivant au début de chaque paragraphe "* texte ".

Voici un Exemple de texte sélectionné (nombre de lignes
variables)
aaaaaaaaaaaaaaa + Retour chariot
bbbbbbbbbbbbbbb + Retour chariot
ccccccccccccccc + Retour chariot
.....
xxxxxxxxxxxxxxx

Voilà le résultat désiré :
* texte aaaaaaaaaaaaaaa + Retour chariot
* texte bbbbbbbbbbbbbbb + Retour chariot
* texte ccccccccccccccc + Retour chariot
.....
* texte xxxxxxxxxxxxxxx


Au moins ta présentation est claire.

Si ce n'est que pour la présentation, tu devrais pouvoir le faire avec
un style et comme on peut associer un style à un bouton qu'on met dans
une barre d'outils ce serait simple à faire.
Donc tu fais format style Nouveau
Tu choisis un nom, tu cliques sur format numérotation
Onglet Hiérarchisation
Tu choisis là où il y a Article I...
puis personnaliser
tu tapes le texte à mettre
tu choisis numérotation aucune
etc.

Après pour associer le format et le bouton
tu vas voir la faq de la webmistress marina
(où il y en plein d'autres bonnes choses aussi)
http://faqword.free.fr
ça doit y être expliqué

Si tu trouves pas ou n'y arrive pas reviens nous.
Si tu tiens à une macro aussi :-)
--
A+

Avatar
JièL Goubert
Bonjoir(c) Geo

Le 14/05/2004 18:50 vous nous disiez ceci :
Si tu tiens à une macro aussi :-)


;-)))))))))))))
ca démange, hein ? ;-)))))

--
JièL Des mangeurs

Avatar
Geo
Bonjour JièL Goubert


Bonjoir(c) Geo

Le 14/05/2004 18:50 vous nous disiez ceci :
Si tu tiens à une macro aussi :-)


;-)))))))))))))
ca démange, hein ? ;-)))))


Vi,
c'est d'ailleurs le titre qui m'a attiré :-)

--

A+


Avatar
Emilie
Bonjour,

Je préfèrerai une macro pour plein de raisons mais je ne
connais pas la syntaxe exacte ...
Avez-vous une idée ?

Merci

Emilie

-----Message d'origine-----
Bonjour Emilie


Bonjour à tous

Dans un document Word j'aimerais réaliser une petite
macro


qui me permette de rajouter une identation de 0.5 à
chaque


paragraphe du texte sélectionné et qui rajoute le texte
suivant au début de chaque paragraphe "* texte ".

Voici un Exemple de texte sélectionné (nombre de lignes
variables)
aaaaaaaaaaaaaaa + Retour chariot
bbbbbbbbbbbbbbb + Retour chariot
ccccccccccccccc + Retour chariot
.....
xxxxxxxxxxxxxxx

Voilà le résultat désiré :
* texte aaaaaaaaaaaaaaa + Retour chariot
* texte bbbbbbbbbbbbbbb + Retour chariot
* texte ccccccccccccccc + Retour chariot
.....
* texte xxxxxxxxxxxxxxx


Au moins ta présentation est claire.

Si ce n'est que pour la présentation, tu devrais pouvoir
le faire avec

un style et comme on peut associer un style à un bouton
qu'on met dans

une barre d'outils ce serait simple à faire.
Donc tu fais format style Nouveau
Tu choisis un nom, tu cliques sur format numérotation
Onglet Hiérarchisation
Tu choisis là où il y a Article I...
puis personnaliser
tu tapes le texte à mettre
tu choisis numérotation aucune
etc.

Après pour associer le format et le bouton
tu vas voir la faq de la webmistress marina
(où il y en plein d'autres bonnes choses aussi)
http://faqword.free.fr
ça doit y être expliqué

Si tu trouves pas ou n'y arrive pas reviens nous.
Si tu tiens à une macro aussi :-)
--
A+






.




Avatar
Emilie
J'ai enfin trouvé une solution :

Selection.ParagraphFormat.FirstLineIndent =
CentimetersToPoints(0.5)

Dim Para As Paragraph
For Each Para In Selection.Paragraphs
If Para.Range.Characters.Count > 1 Then
Para.Range.InsertBefore ("• ")
Next Para

Merci à tous

Emilie

-----Message d'origine-----
Bonjour,

Je préfèrerai une macro pour plein de raisons mais je ne
connais pas la syntaxe exacte ...
Avez-vous une idée ?

Merci

Emilie

-----Message d'origine-----
Bonjour Emilie


Bonjour à tous

Dans un document Word j'aimerais réaliser une petite
macro


qui me permette de rajouter une identation de 0.5 à
chaque


paragraphe du texte sélectionné et qui rajoute le texte
suivant au début de chaque paragraphe "* texte ".

Voici un Exemple de texte sélectionné (nombre de lignes
variables)
aaaaaaaaaaaaaaa + Retour chariot
bbbbbbbbbbbbbbb + Retour chariot
ccccccccccccccc + Retour chariot
.....
xxxxxxxxxxxxxxx

Voilà le résultat désiré :
* texte aaaaaaaaaaaaaaa + Retour chariot
* texte bbbbbbbbbbbbbbb + Retour chariot
* texte ccccccccccccccc + Retour chariot
.....
* texte xxxxxxxxxxxxxxx


Au moins ta présentation est claire.

Si ce n'est que pour la présentation, tu devrais pouvoir
le faire avec

un style et comme on peut associer un style à un bouton
qu'on met dans

une barre d'outils ce serait simple à faire.
Donc tu fais format style Nouveau
Tu choisis un nom, tu cliques sur format numérotation
Onglet Hiérarchisation
Tu choisis là où il y a Article I...
puis personnaliser
tu tapes le texte à mettre
tu choisis numérotation aucune
etc.

Après pour associer le format et le bouton
tu vas voir la faq de la webmistress marina
(où il y en plein d'autres bonnes choses aussi)
http://faqword.free.fr
ça doit y être expliqué

Si tu trouves pas ou n'y arrive pas reviens nous.
Si tu tiens à une macro aussi :-)
--
A+






.

.