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

CAPTURER UNE PAGE WEB ET RECOPIE DANS WORD

	Description
Retour à la liste L'auteur ybenam 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é 6464 fois Niveau débutant Version(s) Foxpro : VFP 6.0
	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é ...

Contributions > 09 - Automation > Internet Explorer