[Résolu]Perfectionner mon code VBA

Perfectionner mon code VBA [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 03-06-2006 à 21:52:26    

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
Reply

Marsh Posté le 03-06-2006 à 21:52:26   

Reply

Marsh Posté le 03-06-2006 à 22:07:19    

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
Reply

Marsh Posté le 03-06-2006 à 22:26:09    

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

Reply

Marsh Posté le 03-06-2006 à 22:55:08    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed