WORD DOCX ve DOCM den Resim Çıkarma Programı

[Asri]

Docx ve Docm dosyalarında bulunan resimleri “resimler_dosyaadi.uzantisi” adındaki klasöre çıkarabilir siniz.
Bu işlem için, açılan pencereden sadece resimleri çıkartılacak docx ve docm dosyasını seçmeniz yeterli olacaktır.

Program AUTOIT script programı ile yazıldığı için bazı antivirusler uyarı verebilir yada programı silebilir.
Güven duymuyorsanız programı indirmeyiniz.


http://asriakdeniz.com/word-docx-den-resim-cikarma-programi

 

[Asri]

Autoit kodları.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=File 66.ico
#AutoIt3Wrapper_UseUpx=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Zip.au3>
#include <FileConstants.au3>
;#include <WinAPIFiles.au3>
#include <MsgBoxConstants.au3>

MsgBox($MB_SYSTEMMODAL, "Bilgi", "Excel ve farklı programlarım için," & @CRLF & "www.asriakdeniz.com  - asriakdeniz@gmail.com "& @CRLF & "Ziyaret ediniz.", 10)

Local $sFileOpenDialog = FileOpenDialog("Resimleri çıkartılacak Word DOCX dosyasını seçiniz.", @ScriptDir & "\", "Word (*.docx;*.docm)", $FD_FILEMUSTEXIST)
If @error Then
   MsgBox($MB_SYSTEMMODAL, "Bilgi", "Dosya seçilmedi, işlem yapılmadı.", 10)
   exit
endif

$sFileOpenDialog = StringReplace($sFileOpenDialog, "|", @CRLF)
$exceldosya =StringRegExpReplace($sFileOpenDialog, "^.*\\", "")

$klasor=@TempDir & "\x1998ydeneme2001z"
$zipdosya = @TempDir &  "\" & $exceldosya  & ".zip"

DirRemove($klasor, 1)

FileCopy(@ScriptDir & "\" & $exceldosya , $zipdosya, $FC_OVERWRITE + $FC_CREATEPATH)

_Zip_UnzipAll($zipdosya, $klasor, 1)
FileDelete($zipdosya )

DirCopy($klasor & "\word\media", @ScriptDir & "\resimler_" & $exceldosya  , $FC_OVERWRITE)

DirRemove($klasor, 1)

exit