|
FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile |
| | | | | |
| Iniciado por Thiomina THIO, 12,may. 2020 14:49 - 2 respuestas |
| |
| | | |
|
| |
Miembro registrado
24 mensajes |
|
| Publicado el 12,mayo 2020 - 14:49 |
Bonjour ,
j'aimerai savoir si c'est possible
de rechercher si un document word ou pdf contient des images ou logos. |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
948 mensajes |
|
| Publicado el 12,mayo 2020 - 16:56 |
Bonjour,
pour Excel
NombreDeFeuille,i,NbrImageest un entier
PictureNameest une chaîne
xl,MyWorksheetsest un objet automationdynamique
MyPictureest une Image
xl=allouer un objet automation"Excel.Application"
IFxl=Null THEN
Trace("Erreur 'Excel.application' n'est pas installé sur ce poste !")
RETOUR
END
xl>>Visible=True
xl>>WorkBooks>>Open(ComplèteRep(fRepExe())+"excel avec deux images.xlsx")
NombreDeFeuille=xl>>Sheets>>Count
FOR i=1_TO_ NombreDeFeuille
Trace(xl>>Sheets(i)>>Name)
END
WHEN EXCEPTION IN
MyWorksheets=xl>>Worksheets("F2")
MyWorksheets>>Activate
NbrImage=MyWorksheets>>Shapes>>Count
Trace(NbrImage)
IFNbrImage>0THEN
FOR i=1_TO_ NbrImage
MyWorksheets>>Shapes(i)>>Select
MyWorksheets>>Shapes(i)>>CopyPicture(xlScreen,xlBitmap)
IFPressePapierFormat(ppfBitmap)THEN
IFPressePapier(MyPicture)THEN
PictureName=ChaîneConstruit("d:\temp\extractions\pic_%1.jpg",i)
dSauveImageJPEG(MyPicture,PictureName)
END
END
END
END
DO
Erreur("Oup'sss")
END
--
« L'erreur ne devient pas vérité parce qu'elle se propage et se multiplie ; la vérité ne devient pas erreur parce que nul ne la voit. » Gandhi |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
948 mensajes |
|
| Publicado el 16,mayo 2020 - 00:18 |
Bonsoir
Pour Word
WD est un objet automation dynamique
oDoc est un objet automation dynamique
WD = allouer un objet automation "Word.Application"
IF WD = Null THEN
Trace("Erreur 'Word.application' n'est pas installé sur ce poste !")
RETOUR
END
WHEN EXCEPTION IN
WD>>Visible = False
oDoc = WD>>Documents>>Open(ComplèteRep(fRepExe())+"word avec deux images.docx")
oDoc>>Repaginate
Trace("InlineShapes = "+ oDoc>>InlineShapes>>Count)
DO
Erreur("Oup'sss")
END
IF oDoc <> Null THEN oDoc>>Close; Libérer oDoc
IF WD <> Null THEN Libérer WD
Affiche dans la trace le nombre d'image en-dehors du haut et pied de page.
--
« L'erreur ne devient pas vérité parce qu'elle se propage et se multiplie ; la vérité ne devient pas erreur parce que nul ne la voit. » Gandhi |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|