Bir Word belgesindeki tüm resimleri nasıl kaydedilir

Resim sayısı fazla olan Word belgeleriyle çalışırken her birini tek tek kaydetmek hem sıkıcı hem de verimsiz olabilir. Neyse ki, gömülü tüm resimleri aynı anda hızlıca çıkarmanızı ve hiçbirinin kaçmamasını sağlayan birkaç pratik yöntem mevcut. Bu eğitimde, Word belgenizden resimleri kaydetmek için farklı ihtiyaçlara ve senaryolara uygun dört etkili çözüm öğreneceksiniz.

Tüm resimleri Farklı Kaydet özelliğini kullanarak kaydedin

Kutools for Word ile tüm resimleri kaydedin

Dosya uzantısını değiştirerek tüm resimleri kaydedin

Tüm resimleri otomatik olarak çıkarmak ve kaydetmek için VBA kodu kullanın

---

Tüm resimleri Farklı Kaydet özelliğini kullanarak kaydedin

Farklı Kaydet özelliği, Word belgenizdeki tüm resimleri aynı anda dışa aktarmanın en kolay yoludur. Özellikle eklenti veya gelişmiş yapılandırma gerektirmeyen basit bir çözüm arıyorsanız bu yöntem tam size göre! Nasıl kullanacağınızı aşağıda adım adım açıkladık:

1. Kaydetmek istediğiniz resimleri içeren belgeyi açarak başlayın. Ardından Word arayüzünde Dosya > Farklı Kaydet yoluna gidin.
2. Kaydetme Biçimini Belirtin Açılır liste menüsünden Web Sayfası (*.htm; *.html) seçeneğini belirleyin. Bu biçim, belgenin resimleri ve diğer medya öğelerinin ayrı bir dış klasöre çıkarılacak şekilde dışa aktarılmasını sağlar.
3. Kaydet 'e tıklayın.

   

Kaydettikten sonra, belirttiğiniz konumda bir .htm dosyası ve belgenizin adına göre adlandırılmış karşılık gelen bir klasör oluşturulur. Bu klasörde, belgeden çıkarılan tüm resimleri orijinal biçimlerinde bulursunuz. Bu yöntem hızlıdır ve çoğu standart Word belgesiyle sorunsuz çalışır. Ancak resim isimlendirmesi genel nitelikte olabilir ve nadiren bazı gelişmiş görüntü türleri tam olarak çıkarılamayabilir. Büyük belgelerde ise resimlerin sıralanması ekstra çaba gerektirebilir.

---

Kutools for Word ile tüm resimleri kaydedin

Kutools for Word, belgenizdeki tüm resimleri birkaç tıklamayla verimli bir şekilde dışa aktarmanıza olanak tanıyan özel özelliğine sahiptir: Resim/Tabloyu Görüntülere Dışa Aktar. Bu yöntem, çok sayıda resim içeren belgelerle çalışan ya da dışa aktarma formatı ve hedef klasörleri özelleştirmek isteyen kullanıcılar için özellikle kullanışlıdır.

1. Word Şeridi sekmesinde KUTOOLS PLUS>Diğer>Resim/Tabloyu Görüntülere Dışa Aktar'ye tıklayın.

   

2. Resim/Tabloyu Görüntülere Dışa Aktariletişim kutusunda, çıkarma seçeneklerini dikkatlice yapılandırın:
   • Türleri Pictures olarak ayarlayın; dışa aktarımınızda yalnızca Görüntüler yer alsın.
   • Tercih ettiğiniz resim biçimini (PNG, JPG veya BMP gibi) Dışa aktarma formatı açılır liste menüsünden seçin. Uygun biçimi seçmek, ilerideki kullanımlar için sorunsuz uyumluluğu garanti eder.
   • Tüm resimlerin kaydedileceği bir klasör belirlemek için düğmesine tıklayın. Görüntüleri yanlış bir konuma dışa aktarmamak için seçiminizi onaylayın.

     

3. Dışa Aktar 'a tıklayın. Belgedeki tüm resimler çıkarılacak ve seçtiğiniz klasöre ayrı dosyalar olarak kaydedilecektir.

Bu çözüm, toplu resim çıkarımını destekler, esnek biçimlendirme imkânı sunar ve tablo veya özel grafiklerle çalışırken ekstra avantajlar sağlar. Belgeniz karmaşık düzenler veya çeşitli görüntü türleri içeriyorsa, Kutools genel süreci büyük ölçüde basitleştirir. Dışa aktarım sırasında hata oluşmaması için hedef klasörün yazma izinlerine sahip olduğundan emin olun.

---

Dosya uzantısını değiştirerek tüm resimleri kaydedin

Yazılım kullanmak veya yerleşik özellikleri tercih etmemek istiyorsanız, Word belgenizi dosya türünü değiştirerek tüm resimleri manuel olarak çıkarabilirsiniz. Bu yöntem, .docx dosyalarının aslında belgenin tüm öğelerini içeren ZIP arşivlerinden oluştuğu gerçeğine dayanır. Biraz teknik olsa da, orijinal resim dosyalarına erişim açısından son derece etkilidir. Aşağıdaki adımları izleyin:

1. Word dosyanıza sağ tıklayıp Yeniden Adlandır'ı seçin.

   

2. Dosya uzantısını .zip olacak şekilde, .docx yerine değiştirin. Dosya uzantılarının Windows Gezgini'nde görünür olduğundan emin olun.

   

3. Enter tuşuna basın. Dosya türü değiştirme uyarısıyla karşılaşırsanız, devam etmek için Evet'e tıklayın.

   

4. ZIP arşivine sağ tıklayıp Şuraya Çıkar [dosya adı] seçeneğini seçin veya uyumlu herhangi bir arşiv çözme aracı kullanın.
5. Çıkarılan klasörlerin içindeki Word > Media dizinine gidin. Bu dizin, orijinal belgeye gömülü tüm resimleri içerir.

   

Bu yöntem, resimlere orijinal sıkıştırma ve kaliteleriyle ham erişim sağlar. Gelişmiş kullanıcılar veya toplu çıkarım için idealdir. Çıkarılan klasör içindeki dosyaları değiştirmemeye dikkat edin; aksi takdirde belgenin geri yüklenmesi zorlaşabilir. Sisteminiz varsayılan olarak dosya uzantılarını göstermiyorsa, bu işlem için Windows Gezgini ayarlarından uzantıları etkinleştirin.

---

Tüm gömülü resimleri otomatik olarak çıkarmak ve kaydetmek için VBA kodu kullanın

Bir VBA makrosu, etkin Word belgenizdeki tüm gömülü resimleri belirttiğiniz klasöre otomatik olarak çıkarma ve dışa aktarma imkânı sunar. Bu çözüm, özellikle çok sayıda resim içeren belgelerle sık sık çalışan ve minimum kullanıcı etkileşimiyle tekrarlanabilir bir süreç arayan kullanıcılar için idealdir. VBA yaklaşımı esnektir: dışa aktarma hedefini özelleştirebilir ve çıkarımı neredeyse hiç etkileşim gerektirmeden çalıştırabilirsiniz.

Bu yöntem, Word’de temel makro işlemlerine aşina olan kullanıcılar için en uygundur. Devam etmeden önce, makroların etkin olduğundan ve cihazınızda VBA çalıştırmaya izniniz bulunduğundan emin olun. Bu çözümün satır içi ve serbest resimler için işe yaradığını, ancak şekilleri veya grafikleri resim olarak dışa aktaramayabileceğini unutmayın.

1. Çıkarmak istediğiniz resimleri içeren Word belgesini açın. Belgenin etkin ve görünür olduğundan emin olun.

2. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

3. VBA penceresinde Ekle > Modül’e tıklayın. Ardından aşağıdaki VBA kodunu Modül paneline kopyalayıp yapıştırın:

VBA kodu: Etkin belgedeki tüm gömülü resimleri çıkar ve kaydet

Sub ExportImagesPreserveOriginal()
'Updated by Extendoffice.com
    Dim doc As Document
    Dim tempPath As String
    Dim exportFolder As String
    Dim fso As Object
    Dim htmlPath As String
    Dim imgFolder As String
    Dim file As Object
    Dim subFolder As Object
    Dim xTitleId As String
    Dim foundImages As Boolean
    
    On Error Resume Next
    xTitleId = "Kutools for Word"

    ' Ask user for destination folder
    exportFolder = InputBox("Enter the full folder path to save images:", xTitleId, "C:\ExtractedImages")
    If exportFolder = "" Then Exit Sub
    If Right(exportFolder, 1) <> "\" Then exportFolder = exportFolder & "\"

    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(exportFolder) Then fso.CreateFolder exportFolder

    ' Save current document as filtered HTML (temporary)
    Set doc = ActiveDocument
    tempPath = Environ("TEMP") & "\WordImageExport_"
    htmlPath = tempPath & Format(Now, "yyyymmdd_hhnnss") & ".htm"
    
    doc.SaveAs2 FileName:=htmlPath, FileFormat:=wdFormatFilteredHTML

    ' Find the generated "_files" folder that contains the images
    imgFolder = Left(htmlPath, Len(htmlPath) - 4) & "_files"
    
    foundImages = False
    If fso.FolderExists(imgFolder) Then
        For Each file In fso.GetFolder(imgFolder).Files
            If LCase(Right(file.Name, 4)) = ".jpg" Or _
               LCase(Right(file.Name, 4)) = ".png" Or _
               LCase(Right(file.Name, 4)) = ".gif" Or _
               LCase(Right(file.Name, 4)) = ".bmp" Then
                fso.CopyFile file.Path, exportFolder & file.Name, True
                foundImages = True
            End If
        Next file
    Else
        For Each subFolder In fso.GetFolder(fso.GetParentFolderName(htmlPath)).SubFolders
            If InStr(1, subFolder.Name, "_files", vbTextCompare) > 0 Then
                For Each file In subFolder.Files
                    fso.CopyFile file.Path, exportFolder & file.Name, True
                    foundImages = True
                Next file
            End If
        Next subFolder
    End If

    On Error Resume Next
    fso.DeleteFile htmlPath, True
    fso.DeleteFolder imgFolder, True

    If foundImages Then
        MsgBox "All images have been exported successfully to:" & vbCrLf & exportFolder, vbInformation, xTitleId
    Else
        MsgBox "No images found in the document.", vbExclamation, xTitleId
    End If
End Sub

4. Makroyu çalıştırmak için F5tuşuna basın. İstendiğinde, tüm resimlerin kaydedileceği hedef klasörü belirtin (örneğin,)C:\ExtractedImages).

Bu makro, etkin Word belgesindeki tüm satır içi ve serbest resimleri işleyecek ve her birini seçtiğiniz klasörde bir Oluşturulan Dosya olarak kopyalayacaktır. Klasörün mevcut olduğundan ve dosya yazma izniniz olduğundan emin olun. Ortaya çıkan resimler, orijinal Dosya Türü biçiminde kaydedilecektir. Hata alırsanız, Dosya Yolu ve makro güvenlik ayarlarınızı kontrol edin.

Bu VBA yöntemi, tekrarlayan görevlerde ve büyük miktarda resimle çalışırken son derece etkilidir. Ancak SmartArt veya denklemler gibi diğer grafik türlerini dışarı aktaramayabilir. VBA ile daha önce çalışmamış kullanıcıların, işleme başlamadan önce makro güvenliği ve yedekleme konularını gözden geçirmesi önerilir.

---