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

CAPTURER UNE PAGE WEB ET RECOPIE 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 > Internet Explorer

CAPTURER UNE PAGE WEB ET RECOPIE DANS WORD
# 0000000564
ajouté le 12/05/2008 15:53:58 et modifié le 12/05/2008
consulté 3438 fois
Niveau débutant

Version(s) Foxpro :
VFP 6.0

Description

Capturer le contenu d' une page web (Url ou stockée sur disque) et  la recopier dans un fichier compatible (word ou frontpage par exemple).IExplore doit être disponible (même invisible).Idem pour word.

Pour les développeurs foxpro: capturer une page web et la recopier dans le presse papier (ceci est réalisé ici)............Problème : la recopier en tant qu'image JPG ???

benameuryousfi1@gmail.com

Code source :
&&Capturer une page Web dans la ClipBoard et la coller Word ou Frontpage par ex.

Clear
afile=getfile('htm|html|mht')        &&url ou fichier web sur disque
if empty(afile)
return
endi
afile=allt(afile)

if lower(substr(afile,1,7))#"http://"
afile="file:///"+afile
endi

apIE = Createobject([InternetExplorer.Application])
apIE.Navigate(afile)
do while apIE.busy or apIE.readystate<>4
enddo
apIE.visible=.f.
apIE.ExecWB(17,0)
apIE.ExecWB(12,0)

*run/n clipbrd

oWord = CREATEOBJECT("Word.Application")
oWord.Visible = .t.
oDoc = oWord.Documents.Add()
oRange = oDoc.Range()
oRange.paste ()
Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3