Bon il y a un en trop : { EQ O(a;{ EQ s UP6 (-)}) }
Voilà en recopiant à la main... Désolé pour l'erreur. Je vais encore avoir une mauvaise note...
-- Petit Denis
Geo
Coucou Geo wrote:
... Je préfère la solution éditeur d'équations...
Oui je comprends pourquoi :-)
Bon il y a un en trop : { EQ O(a;{ EQ s UP6 (-)}) }
Voilà en recopiant à la main... Désolé pour l'erreur. Je vais encore avoir une mauvaise note...
si ça continue tu vas redoubler une année sur le forum :-) Tu n'avais pas récupéré une macro qui fait la transcription ? elle était justement faite pour ça. Si ça peut te consoler, ça me permet de tester la macro inverse.
-- A+
Coucou Geo wrote:
... Je préfère la solution éditeur d'équations...
Oui je comprends pourquoi :-)
Bon il y a un en trop :
{ EQ O(a;{ EQ s UP6 (-)}) }
Voilà en recopiant à la main...
Désolé pour l'erreur. Je vais encore avoir une mauvaise note...
si ça continue tu vas redoubler une année sur le forum :-)
Tu n'avais pas récupéré une macro qui fait la transcription ?
elle était justement faite pour ça.
Si ça peut te consoler, ça me permet de tester la macro inverse.
Bon il y a un en trop : { EQ O(a;{ EQ s UP6 (-)}) }
Voilà en recopiant à la main... Désolé pour l'erreur. Je vais encore avoir une mauvaise note...
si ça continue tu vas redoubler une année sur le forum :-) Tu n'avais pas récupéré une macro qui fait la transcription ? elle était justement faite pour ça. Si ça peut te consoler, ça me permet de tester la macro inverse.
-- A+
Petit Denis
Bonsoir
si ça continue tu vas redoubler une année sur le forum :-) Tu n'avais pas récupéré une macro qui fait la transcription ? elle était justement faite pour ça.
Pfuuu, je fatigue... == Sub RemplaceChampParTexte() ' 'par l'ami Geo ' Dim T As String Dim aField As Field For Each aField In ActiveDocument.Fields T = aField.Code.Text aField.Select Selection.TypeText Text:="{" & T & "}" Next aField End Sub == Avec les champs imbriqués, j'obtiens cela : { EQ O(a; EQ sUP6 (-)) } et y'a comme un défaut !
Si ça peut te consoler, ça me permet de tester la macro inverse.
Ça se serait génial ! -- Petit Denis ^âne^ de service !
Bonsoir
si ça continue tu vas redoubler une année sur le forum :-)
Tu n'avais pas récupéré une macro qui fait la transcription ?
elle était justement faite pour ça.
Pfuuu, je fatigue...
== Sub RemplaceChampParTexte()
'
'par l'ami Geo
'
Dim T As String
Dim aField As Field
For Each aField In ActiveDocument.Fields
T = aField.Code.Text
aField.Select
Selection.TypeText Text:="{" & T & "}"
Next aField
End Sub
== Avec les champs imbriqués, j'obtiens cela :
{ EQ O(a; EQ sUP6 (-)) } et y'a comme un défaut !
Si ça peut te consoler, ça me permet de tester la macro inverse.
Ça se serait génial !
--
Petit Denis ^âne^ de service !
si ça continue tu vas redoubler une année sur le forum :-) Tu n'avais pas récupéré une macro qui fait la transcription ? elle était justement faite pour ça.
Pfuuu, je fatigue... == Sub RemplaceChampParTexte() ' 'par l'ami Geo ' Dim T As String Dim aField As Field For Each aField In ActiveDocument.Fields T = aField.Code.Text aField.Select Selection.TypeText Text:="{" & T & "}" Next aField End Sub == Avec les champs imbriqués, j'obtiens cela : { EQ O(a; EQ sUP6 (-)) } et y'a comme un défaut !
Si ça peut te consoler, ça me permet de tester la macro inverse.
Ça se serait génial ! -- Petit Denis ^âne^ de service !
Geo
Sub RemplaceChampParTexte() [...]
End Sub == > Avec les champs imbriqués, j'obtiens cela : { EQ O(a; EQ sUP6 (-)) } et y'a comme un défaut !
Si ça peut te consoler, ça me permet de tester la macro inverse.
Ça se serait génial !
Arrêtez de dire ça, je vais finir par le croire ;-) Le plus gros du travail est fait, mais je n'ai pas trop le temps de fignoler et les tests ont l'avantage de se mettre dans la peau d'un utilisateur réel et donc de voir les défaut lors de l'utilisation.
Pour le champ vers texte, cette version de macro ne traitait bien qu'un niveau de champ, il y avait eu un correctif derrière, mais voici, en avant-première, la dernière version qui donne bien : { EQ O(a; { EQ s UP6 (-) } ) } Il suffit de sélectionner un champ et sa traduction est écrite juste derrière. ========= Public Sub Champ_ChampVersTexte() Dim T As String Dim Champ As Field If Selection.Fields.Count = 0 Then MsgBox "Sélectionner un champ " & vbCrLf & _ " et relancer la commande.", vbCritical, "Erreur" Exit Sub End If
Selection.Fields(1).Select Set Champ = Selection.Fields(1) T = Replace(Champ.Code.Text, Chr(19), "{") T = Replace(T, Chr(21), "}") Champ.Select Selection.Collapse wdCollapseEnd Selection.TypeText Text:=" {" & T & "}" End Sub
-- A+
Sub RemplaceChampParTexte()
[...]
End Sub
== > Avec les champs imbriqués, j'obtiens cela :
{ EQ O(a; EQ sUP6 (-)) } et y'a comme un défaut !
Si ça peut te consoler, ça me permet de tester la macro inverse.
Ça se serait génial !
Arrêtez de dire ça, je vais finir par le croire ;-)
Le plus gros du travail est fait, mais je n'ai pas trop le temps de
fignoler et les tests ont l'avantage de se mettre dans la peau d'un
utilisateur réel et donc de voir les défaut lors de l'utilisation.
Pour le champ vers texte, cette version de macro ne traitait bien qu'un
niveau de champ, il y avait eu un correctif derrière, mais voici, en
avant-première, la dernière version qui donne bien :
{ EQ O(a; { EQ s UP6 (-) } ) }
Il suffit de sélectionner un champ et sa traduction est écrite juste
derrière.
========= Public Sub Champ_ChampVersTexte()
Dim T As String
Dim Champ As Field
If Selection.Fields.Count = 0 Then
MsgBox "Sélectionner un champ " & vbCrLf & _
" et relancer la commande.", vbCritical, "Erreur"
Exit Sub
End If
Selection.Fields(1).Select
Set Champ = Selection.Fields(1)
T = Replace(Champ.Code.Text, Chr(19), "{")
T = Replace(T, Chr(21), "}")
Champ.Select
Selection.Collapse wdCollapseEnd
Selection.TypeText Text:=" {" & T & "}"
End Sub
End Sub == > Avec les champs imbriqués, j'obtiens cela : { EQ O(a; EQ sUP6 (-)) } et y'a comme un défaut !
Si ça peut te consoler, ça me permet de tester la macro inverse.
Ça se serait génial !
Arrêtez de dire ça, je vais finir par le croire ;-) Le plus gros du travail est fait, mais je n'ai pas trop le temps de fignoler et les tests ont l'avantage de se mettre dans la peau d'un utilisateur réel et donc de voir les défaut lors de l'utilisation.
Pour le champ vers texte, cette version de macro ne traitait bien qu'un niveau de champ, il y avait eu un correctif derrière, mais voici, en avant-première, la dernière version qui donne bien : { EQ O(a; { EQ s UP6 (-) } ) } Il suffit de sélectionner un champ et sa traduction est écrite juste derrière. ========= Public Sub Champ_ChampVersTexte() Dim T As String Dim Champ As Field If Selection.Fields.Count = 0 Then MsgBox "Sélectionner un champ " & vbCrLf & _ " et relancer la commande.", vbCritical, "Erreur" Exit Sub End If
Selection.Fields(1).Select Set Champ = Selection.Fields(1) T = Replace(Champ.Code.Text, Chr(19), "{") T = Replace(T, Chr(21), "}") Champ.Select Selection.Collapse wdCollapseEnd Selection.TypeText Text:=" {" & T & "}" End Sub
