Traduction du texte dans une présentation

[ab1to]

Bonjour,

J'ai réalisé une présentation ppt contenant des graphiques et du texte.

J'aimerais traduire le texte via une macro vba incluse dans ppt.

Est-ce possible ?

Il s'agit de faire une recherche dans toute la présentation afin de remplacer, p-ex, 'Regio' par 'Région', ...

Merci d'avance pour votre aide.

Anthony

[Philippe JOCHMANS]

Bonjour

Ce n'est pas une traduction que tu veux, c'est un remplacement, non ?

Philippe

[ab1to]

Oui, il s'agit de remplacer du texte en nl dans un champs par la traduction en fr.

C'est la fonction replace du menu que je voudrais insérer dans une macro afin de traduire toute une présentation. Et donc, rechercher une phrase ou un mot et le remplacer par sa traduction.

Anthony

[ab1to]

Bonjour,

J'ai essayé avec une ppt 2003 d'exécuter un 'replace all' d'un texte par un autre texte et d'enregistrer la macro, mais je n'ai pas eu de résultat.

Avez-vous une idée ?

Merci.

Anthony

[ab1to]

J'ai trouvé la macro suivante, mais qui ne fonctionne qu'à moitié dans mon cas.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub ReplaceText2()
 
Dim LastSlide, NumSlide As Integer
 
LastSlide = Application.ActivePresentation.Slides.Count
 
      Dim oSld As Slide
      Dim oShp As Shape
      Dim oTxtRng As TextRange
      Dim oTmpRng As TextRange
      Dim strWhatReplace As String, strReplaceText As String
 
      ' write find text
     strWhatReplace = "Regio"
     ' write change text
     strReplaceText = "Région"
 
     ' go during each slides
     For NumSlide = 1 To LastSlide
        'For Each oSld In ActivePresentation.Slides
     ' go during each shapes and textRanges
         For Each oShp In ActivePresentation.Slides(NumSlide).Shapes
             ' replace in TextFrame
             Set oTxtRng = oShp.TextFrame.TextRange
             Set oTmpRng = oTxtRng.Replace(FindWhat:=strWhatReplace, Replacewhat:=strReplaceText, WholeWords:=False)
 
             Do While Not oTmpRng Is Nothing
 
                 Set oTxtRng = oTxtRng.Characters _
                              (oTmpRng.Start + oTmpRng.Length, oTxtRng.Length)
                 Set oTmpRng = oTxtRng.Replace(FindWhat:=strWhatReplace, Replacewhat:=strReplaceText, WholeWords:=False)
             Loop
         Next oShp
     Next NumSlide
 End Sub

Cela fonctionne pour les champs texte, mais la macro se bloque lorsqu'elle rencontre du texte inséré dans une forme.

Malheureusement, je dois également modifier du texte dans un rectangle par-exemple.

Que puis-je modifier pour que cela fonctionne.

Merci d'avance.

Anthony

[pgz]

Bonsoir.

Un problème est que tu peux avoir des formes imbriquées dans des groupes, et éventuellement sur plusieurs niveau. Dans ce cas, une procédure itérative.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub subIterShapes(ByVal oShp As PowerPoint.Shape)
Dim oShpLoc As PowerPoint.Shape
 
Select Case oShp.Type
    Case msoAutoShape, msoTextBox, msoPlaceholder '... j'en ai sûrement oublié
        oShp.TextFrame.TextRange.Text = Replace(oShp.TextFrame.TextRange.Text, strWhatReplace, strReplaceText)
    Case msoGroup
        For Each oShpLoc In oShp.GroupItems
            Call subIterShapes(oShpLoc)
        Next oShpLoc
End Select
 
End Sub

Et dans la procédure principale, pour parcourir les diapos

Code :

1
2
3
4
5
6
7
8
9
10
11
12
...
Dim oSlide As PowerPoint.Slide
For Each oSlide In ActivePresentation.Slides
 
    For Each oShp In oSlide.Shapes
            Call subIterShapes(oShpLoc)
    Next oShp
 
Next oSlide
End Sub
 
...

C'est pour l'idée, et à mettre au point, bien sûr!

Cordialement,

PGZ

[ab1to]

Merci beaucoup pour votre aide.

La macro fonctionne, sauf lorsqu'il y a des lignes qui sont créées sur le slide (.line).

Pouvez-vous encore m'aider ???

Anthony

[pgz]

Bonjour.

Pour pouvoir continuer à t'aider, il faudrait maintenant que tu montres ce que tu as fait et ce qui pose pb.

Sans cela, je ne vois pas comment les lignes pourraient poser pb.

Cordialement,

PGZ