Discussion :

[boboss123]

Bonjour,

Je voudrais faire une petite macro vite faite pour transformer une chaine de caractère (je connais bien les commandes vba sous excel mais pas du tout sous word).

Cette chaine de caractère représente un flux hexadécimal.
Ex : "01A2F2A0A3A1457821e4ff45"
1- cette chaine est placée à la première ligne du document (d’ailleurs, il n'y a que cette ligne dans mon document word)
2- cette chaine est de taille variable mais le nombre de caractères est multiple de 2

Je voudrais :
1- ajouter "{0x" en début de ligne
2- ajouter la chaine "0x," tous les deux caractères
3- ajout "};" en fin de ligne

Ce qui donnerait comme résultat par rapport à l'exemple cité précédemment :
"{0x01,0xA2,0xF2,0xA0,0xA3,0xA1,0x45,0x78,0x21,0xe4,0xff,0x45};"
=> Ce qui correspond à la syntaxe d'un tableau en langage C

#########################
optionnel :
- A la base la chaine est stockée dans le presse-papier : je voudrais que quand je lance la macro, que la chaine soit copiée à la première ligne du document word (pour m'éviter de faire ctrl+v)
- Une fois la macro terminée, j'aimerais que ma ligne soit mise dans le presse-papier


Merci d'avance,

[Heureux-oli]

Salut,

Le objets Word sont légèrement différents.

on accède à un paragraphe avec sont index.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Paragraphs(1)

On récupère son texte avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Paragraphs(1).Range.Text

On peut affecter ou récupérer du texte avec cette propriété.

Le collage reste le même pour Word ou pour Excel, juste que l'on passe par un objet sélection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Selection.Paste

Pour la copie, il faut sélectionner le texte avant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Activedocument.Paragraphs(1).Range.Select
Selection.Copy

[boboss123]

ok, merci beaucoup