Word 2004 / MacOS X 10.4 / Remplacer avec formatage gras [Résolu]

[RSCPBel]

Bonjour toutes/tous,

Je suis nouveau sur ce forum et débutant total en Visual Basic

J'utilise de temps à autre une macro que je me suis créée avec une ancienne version de Word il y a bien longtemps (Word 2001 si mes souvenirs sont bons, voire plus ancien).

Suite à un changement de machine, cette macro n'existe plus et j'ai donc voulu la recréer (création automatique dans Word).

J'ai beau chercher dans l'aide, je ne trouve pas pourquoi ça ne fonctionne pas !!!

Le but du jeu : ouvrir un fichier texte créé automatiquement dans une application FMP (ça je maîtrise ) et effectuer une série de rechercher/remplacer avec application du formatage "gras".

Si je me contente de la version automatique créée (extrait) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
With Selection.Find
        .Text = "Opérations :^t"
        .Replacement.Text = "^pOpérations : "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Le rechercher/remplacer fonctionne mais ma chaîne n'est pas mise en bold. Alors que, lors de l'enregistrement de la macro, cela fonctionnait parfaitement.

Si je modifie selon ce que j'ai trouvé dans l'aide en :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 With Selection.Find
        .Text = "Opérations :^t"
        .Font.Bold = False
        .Replacement.Text = "^pOpérations : "
        .Font.Bold = True
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Aucun remplacement n'est exécuté

Désolé d'être si nul
Que n'ai-je pas compris ???

Merci pour l'aide que vous voudrez bien m'apporter et... bonne année à toutes/tous.

Raymond Studer

[wape]

Bonjour,

Essaye d'effectuer les opérations suivantes :

1. Supprimer la ligne

Code :

.Font.Bold = False

2. Remplacer la ligne

Code :

.Font.Bold = True

par

Code :

.Replacement.Font.Bold = True

wape

[Heureux-oli]

Voila la façon d'y arriver :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Remplacement()
With Selection.Find
    .Text = "Bonjour"
    .Font.Bold = False
    With .Replacement
        .Text = "Hello"
        .Font.Bold = True
    End With
    .Forward = True
    .Wrap = wdFindContinue
 
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[RSCPBel]

Envoyé par wape

Bonjour,

Essaye d'effectuer les opérations suivantes :

1. Supprimer la ligne

Code :

.Font.Bold = False

2. Remplacer la ligne

Code :

.Font.Bold = True

par

Code :

.Replacement.Font.Bold = True

wape

Bonjour Wape,

Super !!!
Cela marche parfaitement.

Merci beaucoup.
Bon jour de l'an.

Raymond Studer

[RSCPBel]

Envoyé par Heureux-oli

Voila la façon d'y arriver :

Code :

Bonjour Heureux-oli,

Merci beaucoup de t'être penché sur mon problème.
By the way, comme on n'a jamais trop de cordes à son arc, et bien que mon outil de développement soit FileMaker Pro, peux-tu, ou l'un des colistiers, me recommander un ouvrage plus clair que l'aide incorporée au logiciel, qui puisse servir de référence pour Visual Basic ? De préférence en français et orienté vers le scripting de MS Word Mac ?

Merci encore.
Bonne fin de jour de l'an.

Raymond Studer.

[Sepia]

Salut,

Il existe plusieurs bons ouvrages en français sur la programmation des appli Office y compris sur Mac comme "VBA pour Word, Excel, Access : macros, code, programmation", "Initiation à la programmation VBA sous Word - Compétence expérience micro - Le plaisir d'apprendre - Synopsis" ou "Macros et VBA pour Word 2000 et 2002. 12 projets complets, avec CD-ROM", ainsi ques des bon sites dont celui de "developpez.com" (http://vb.developpez.com/faqvba/).

Pour débuter vraiment à la base, il doit exister aussi un "VB pour les nuls" qui sont assez souvent bien faits


Bonne lecture & A+

[RSCPBel]

Bonjour Sepia,

Merci pour ces références.
Je vais choisir un bouquin parmi ceux renseignés.
Très bonne journée.

Raymond Studer.