Insérer un caractère Unicode dans une police spécifique

Question

Insérer un caractère Unicode dans une police spécifique

Anonyme

Je suis en train d'écrire une macro pour insérer des symboles automatiquement dans des cellules. Mon code ressemble au code VBA Word suivant :

Dim tbl As Table

Set tbl = ActiiveDocument.Tables(1)

tbl.cell(1, 1).Range.InsertSymbol Font:="CharisSIL", CharacterNnumber:=9121, Unicode:=True

J'obtiens un message d'erreur : "Cette méthode ou propriété n'est pas disponible car l'objet ne contient pas uniquement une catégorie ou une sélection."

Est-ce que quelqu'un peut corriger ce code pour moi ?

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

1 réponse

Answer 1

Bonjour

Je suis Adeyemi et je serais heureux de vous aider avec votre question.

Il semble qu’il y ait une faute de frappe dans votre code. Le mot 'ActiiveDocument' doit être 'ActiveDocument'. En outre, la méthode 'InsertSymbol' n’est pas disponible pour un objet 'Range' dans Word VBA. Vous pouvez utiliser la méthode 'Characters.Add' pour ajouter un caractère Unicode à une cellule d’un tableau. Voici comment modifier votre code :

'''vba Dim tbl As Table Set tbl = ActiveDocument.Tables(1)

à déterminer. Cellulaire(1, 1). Range.Characters.Add ChrW(9121)


Dans ce code, 'ChrW(9121)' est utilisé pour insérer le caractère Unicode avec la valeur décimale 9121. Remplacez 9121 par la valeur décimale du caractère Unicode que vous souhaitez insérer.

Veuillez noter que cela insérera le caractère Unicode dans la police par défaut du document. Si vous souhaitez changer la police du caractère inséré en « Charis SIL », vous pouvez le faire en ajoutant ces lignes:

'''vba
Dim rng As Range
Définir rng = tbl. Cellulaire(1, 1). Gamme
GNR. Réduire wdCollapseEnd
GNR. Caractères.Ajouter ChrW(9121)
rng.Font.Name = « Charis SIL »

Ce code insérera le caractère Unicode à la fin de la première cellule du tableau et changera sa police en « Charis SIL ». Veuillez remplacer « Charis SIL » par le nom de la police souhaitée s’il est différent.

J’espère que cela vous aidera

Redonner à la communauté. Aidez la personne suivante qui a ce problème en indiquant si cette réponse a résolu votre problème. Cliquez sur Oui ou Non ci-dessous

Cordialement Adeyemi

Cette réponse a été traduite automatiquement. Par conséquent, il peut y avoir des erreurs grammaticales ou des expressions étranges.