Discussion :

[notar]

Bonjour,
Dans le but de modifier un texte word en bbcode perso, j'ai essayé de faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub bbcode()
'
' bbcode Macro
' portion de code de Oli
'
Dim wd
For Each wd In Selection.Find
If wd.Bold = True Then
wd.Text = "[b" & wd.Text & "b]"
End If
Next wd
 
End Sub

en me basant sur un code de Oli.

Malheureusement cela ne fonctionne pas puisque cela ne me rajoute pas les bbcode au mot en gras mais me met juste une suite de balises bbcode les unes derrière les autres.
Quelqu'un peut-il me donner la bonne syntaxe ?
Merci d'avance

[Heureux-oli]

Salut,

Je dirait que c'est normal.

Ton selection.find est simplement un point d'insertion.

Si ta sélection en change pas, les balises sont toutes ajoutées au même endroit.

un début là : http://heureuxoli.developpez.com/off...emplacer/#L3-A

[notar]

Merci,
mais à force de faire des essais dans tous les sens je suis complètement paumé.
Je sais bien que le but n'est pas d'avoir le code tout écrit ; mais la cela m'arrangerait vraiment.
Merci d'avance

[notar]

Eureka !
j'ai fini par trouver et c'est tout simple.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim wd
wd = Selection.Range
For Each wd In ActiveDocument.Words
'wd.Select
If wd.Bold = True Then
 
MsgBox (wd)
wd.Bold = False
wd.Text = "[b" & wd.Text & "b]"
 
End If
Next wd

Par contre, dans le résultat j'ai un espace

un texte ou un autre

un [btexte b] ou un autre

Qui a une idée d'où cela peut venir ?
Merci d'avance

[clementmarcotte]

Bonjour,

Eureka !
j'ai fini par trouver et c'est tout simple.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim wd
wd = Selection.Range
For Each wd In ActiveDocument.Words
'wd.Select
If wd.Bold = True Then
 
MsgBox (wd)
wd.Bold = False
wd.Text = "[b" & wd.Text & "b]"
 
End If
Next wd

Par contre, dans le résultat j'ai un espace


Qui a une idée d'où cela peut venir ?
Merci d'avance

Je pense que c'est la tendance générale de Word. Il me fait le coup manuellement. Mais, je n'ai jamais essayé par macro.

Si tu veux enlever l'espace, tu peux essayer, mais, je ne promets rien:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub bbcode()
'
' bbcode Macro
' portion de code de Oli
'
 Dim wd
For Each wd In Selection.Find
If wd.Bold = True Then
'En principe Trim() va supprimer les epaces aau début
'et à la fin du mot
wd.Text =trim(wd.text)
wd.Text = "[b" & wd.Text & "b]"
End If
Next wd