1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OleFunction("ClearFormatting");
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertyGet("Replacement").OleFunction("ClearFormatting");
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Text", "toto"); // texte que l'on veut remplacer
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertyGet("Replacement").OlePropertySet("Text", "tata"); // texte qui va remplacer
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Forward",true);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Wrap", 1);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Format", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchCase", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchWholeWord", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchWildcards", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchSoundsLike", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchAllWordForms", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OleFunction("Execute", "toto", false, true, false, false, false, true, false, false, "tata", 2); |
Partager