word dosyalarındaki resim. silme

[shadowmann]

elimizde bir klasörde 5000e yakın fine readerda tarayıcıdan geçirdiğimiz döküman ve içlerinde de resimler var. imzalar gibi. sorum ise bu resimleri delphi aracılığıyla nasıl silebiliriz. (yada delphisiz nasıl sileriz )

[mege]

daha önce forumda word de dosya açma ve farklı kaydetme ile ilgili örnek kod vermiştim. orada farklı kaydederken salt text yaparsınız. textler kalır

tabi araya yine office girecek ama epey kolay yöntem

[kelaynak2]

Bende kodu vereyim.

Kod: Tümünü seç

Sub DocToTXT()
'
' DocTotxt Makro
' 
Dim strDocName As String 'dosya adı uzantısıyla birlikte
Dim intPos As Integer ' Tümcenin sonundaki noktayı bulmak için
Dim dosyalar As String
Dim Kaynak, hedef As String
Kaynak = "D:\doctotext\"   'InputBox("txt'ye dönüşecek Word belgelerinin(*.Doc) olduğu " & _
                                '  "dizin adını yazınız.")
hedef = "D:\doctotext\TXT\"                         'InputBox("Oluşan txt dosyalarının kaydedileceği " & _
                                '   "dizin adını yazınız.")
                                '  hedef=filesystemobject.  uildpath(kaynak,hedef);



dosyalar = Dir(Kaynak & "*.doc", vbDirectory)
Do While dosyalar <> ""
 If dosyalar <> "." And dosyalar <> ".." Then
 Documents.Open FileName:=Kaynak + dosyalar

  'Find position of extension in filename
    strDocName = ActiveDocument.Name
    intPos = InStrRev(strDocName, ".")
    'Strip off extension and add ".txt" extension
        strDocName = Left(strDocName, intPos - 1)
        strDocName = strDocName & ".txt"
        strDocName = hedef & strDocName

  ActiveDocument.SaveAs FileName:=strDocName, FileFormat:=wdFormatText

        ActiveWindow.Close
 End If
    dosyalar = Dir
Loop
End Sub

[mege]

viewtopic.php?p=26748#26748

delphi kullanın