Il faut utiliser le champ EQ pour superposer les caractères comme expliqué dans la faq : http://faqword.free.fr/articles.php?lng=fr&pg9" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faqword.free.fr/articles.php?lng=fr&pg9
Il faut utiliser le champ EQ pour superposer les caractères comme expliqué dans la faq : http://faqword.free.fr/articles.php?lng=fr&pg9" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faqword.free.fr/articles.php?lng=fr&pg9
Je souhaite ajouter une barre au dessus d'une lettre dans Word. Sauriez-vous comment faire ? Cette fonction existe-t-elle ?
Merci,
Petit Denis
Bonsoir Circé wrote:
Bonjour,
Il faut utiliser le champ EQ pour superposer les caractères comme expliqué dans la faq : http://faqword.free.fr/articles.php?lng=fr&pg9" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faqword.free.fr/articles.php?lng=fr&pg9
Il faut utiliser le champ EQ pour superposer les caractères comme expliqué dans la faq : http://faqword.free.fr/articles.php?lng=fr&pg9" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faqword.free.fr/articles.php?lng=fr&pg9
Je viens de faire mes devoirs : { EQ O(a;{ EQ s UP6 (-)}) }
Faut recopier à la main !
Et comme dit dans la FAQ :
"Au bout du compte, il est plus simple d'utiliser les caractères spéciaux !!!! :) "
... Je préfère la solution éditeur d'équations...
--
Petit Denis
Geo
Bonsoir Circé wrote:
Bonjour,
Il faut utiliser le champ EQ pour superposer les caractères comme expliqué dans la faq : http://faqword.free.fr/articles.php?lng=fr&pg9" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faqword.free.fr/articles.php?lng=fr&pg9
Il faut utiliser le champ EQ pour superposer les caractères comme expliqué dans la faq : http://faqword.free.fr/articles.php?lng=fr&pg9" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faqword.free.fr/articles.php?lng=fr&pg9
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