ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Rechercher toutes les occurences d'un mot dans word   


L'auteur

ybenam
Algérie Algérie
Membre Simple
# 0000002080
enregistré le 21/04/2008


Fiche personnelle

Note des membres
pas de note

Contributions > 09 - Automation > Word

Rechercher toutes les occurences d'un mot dans word
# 0000000578
ajouté le 20/05/2008 15:53:41 et modifié le 20/05/2008
consulté 7702 fois
Niveau débutant

Version(s) Foxpro :
VFP 6.0
Description
Ce programme recherche par automation toutes les occurences d'un mot dans un document Word ouvert et les encadre et les colorie. Le nombre d'occurences est affiché. benameuryousfi1@gmail.com
Code source :
&&Rechercher ,encadrer ,colorer et compter les occurences dun mot ...ici la lettre <A>... dans le document word ouvert

yrep=sys(5)+sys(2003)+"\"
messagebox("Rechercher ,encadrer ,colorer et compter les occurences d'un mot ici la lettre <A> dans le document word ;
ouvert",0+32,"Recherche d emot dans doc Word")
#DEFINE wdCollapseEnd 0
#DEFINE wdCollapseStart 1
#DEFINE CR CHR(13)
#DEFINE wdTexture25Percent  250
#DEFINE wdblue 2
#DEFINE wdyellow 7

PUBLIC oWord

oWord = CreateObject("Word.Application")
oWord.Visible = .T.  && Word obligatoirement visible.

afile=getfile('doc')
if empty(afile)
return
endi

oDocument = oWord.Documents.open(afile)
*expression .Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike,
* MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics,
* MatchAlefHamza, MatchControl)

myRange = oDocument.content
tr=0
&&MOT RECHERCHE DANS LE DOCUMENT WORD OUVERT
xtext="A"

do while .t.
with myRange.Find
.ClearFormatting
.Text=xtext
.forward=.t.
.Execute
********************
with myRange.Find
if .Found = .t.
.Parent.Borders.Enable = .t.   &&bordure
.Parent.Shading.Texture = wdTexture25Percent    &&remplissage
tr=tr+1
else
exit
endi
endwith
endwith
enddo

messagebox(str(tr)+ " occurences du mot <" +Myrange.find.text+"> trouvées dans "+afile+ "!")
Commentaires
Aucun commentaire enregistré ...
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3