Creer ses etiquettes de reexpedition OleWord

Voici comment creer ses etiquettes de reexpedition
le code

Code:

1
2
3
4
5
6
7
8
9
10
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
// etiquettes de reexpedition
String Name = "C2160"; // type d'etiquette
String addr = "Dave Edson \r\n123 Skye St. \r\nOur Town \r\nWA  98004"; // adresse du destinataire
Variant AutoText = ""; // par default
Variant ExtractAddress = false; // par default
vMSWord.OlePropertyGet("MailingLabel").OleFunction("CreateNewDocument", Name.c_str(), addr.c_str(), WideString(AutoText), ExtractAddress);
}