[Résolu]Perfectionner mon code VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu]Perfectionner mon code VBA

TAM136

Bonjour à tous

J'utilise le code suivant:
For i = 1 To 3
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Next i

Mon objectif est de décomposer un mot, par ex, loi qui devient
l
o
i

Le problème est que je veux que ce code soit adaptable à tout mot quel que soit le nombre de lettres.
J'ai essayé
For i=1 To n
Le code ne produit aucun effet (même pas de message d'erreur)
Est-ce que l'instruction U bound peut être utilisée et comment? Je précise que les mots se trouvent dans un texte classique sous format word.

Merci de votre aide

Message édité par TAM136 le 03-06-2006 à 22:55:42

Publicité

galopin01

Bonsoir,
For i = 1 to Len("TonMot" )
ou
For i = 1 to Len(TaVariable)
A+

Message édité par galopin01 le 03-06-2006 à 22:08:09

---------------
roger

kiki29

Sans strictement rien connaitre à Word ...

Sub Decompo()
Dim i As Long
Dim Chaine As String
Chaine = ""
If Len(Selection) > 0 Then
For i = 1 To Len(Selection)
Chaine = Chaine & vbCrLf & Mid(Selection, i, 1)
Next i
Selection.TypeParagraph
With Selection
.InsertAfter Chaine
.Collapse Direction:=wdCollapseEnd
End With
End If
End Sub

TAM136

Merci à tous les deux pour votre réponse et surtout pour votre rapidité.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu]Perfectionner mon code VBA

Sujets relatifs
[Résolu] Problème MySQL 1&1 : plus de protection de chaine !	Problème excel... [RESOLU]
division de string[resolu]	[Resolu] string.lenght qui marche une fois sur deux
[VB6] Code 3343 - "Format de base de données non reconnu"	pb tableau[résolu]
Code non execute apres un for	extension d'un formule via VBA
[RESOLU] Changer largeur zone de liste access	pb de transition excel[resolu]
Plus de sujets relatifs à : [Résolu]Perfectionner mon code VBA

Page générée en 0.022 secondes