1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
var app_word = new ActiveXObject("Word.Application");
app_word.Visible = true;
RW(app_word, "[Ca2NRIDO]", "ce qu'on veut écrire à la place de '[Ca2NRIDO]'");
RW(app_word, "[Ca2NRIDN]", "ce qu'on veut écrire a la place de '[Ca2NRIDN]'");
RW(app_word, "[CpyName]", "ce qu'on veut écrire à la place de '[CpyName]'");
//MR(app_word);
/****************** fonction qui permet de remplacer un tag *********************
****************** dans un document word quelque soit le ********************
******************* de word (97,2000, XP). ********************/
function RW( word, source , destination )
{
if ( word.Application.Version == 11 || word.Application.Version == 9 )
{
word.Selection.Find.Execute ( source , false, false, false, false , false, true ,1 , false, destination ,2, false, false,false, false);
}
else
{
word.Selection.Find.Execute ( source , false , false , false , false , true, true , 1 ,false, destination , 2 );
}
return true;
}
function Ecrit(word, chaine)
{
word.Selection.TypeText(chaine);
}
function MR(word)
{
word.Selection.MoveRight();
} |
Partager