Note: The other languages of the website are Google-translated. Back to English

Word belgesine dosya adıyla birden çok resim nasıl eklenir?

Word belgesinde, Ekle işlevini kullanarak aynı anda birden çok resmi hızlı bir şekilde ekleyebilirsiniz. Ancak bazen resimleri eklerken dosya yolunu ve adlarını başlık olarak eklemeniz gerekir. Word dosyasında bu görevle nasıl başa çıkabilirsiniz?

VBA kodunu kullanarak dosya adıyla birden fazla resim ekleyin

Kutools for Word kullanarak dosya adıyla birden fazla resim ekleyin


VBA kodunu kullanarak dosya adıyla birden fazla resim ekleyin

Aşağıdaki VBA kodu, resimleri eklerken dosya yolunu ve adını başlık olarak eklemenize yardımcı olabilir, lütfen şu şekilde yapın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Ve sonra tıklayın Ekle > modül, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın:

VBA kodu: Dosya adıyla birden çok resim ekleyin:

Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub

3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın, bir Gözat penceresi görüntülenir, lütfen eklemek istediğiniz resimleri içeren klasörü seçin, ekran görüntüsüne bakın:

doc dosya adı 1 olan resimleri ekle

4. Sonra tıklayın OK düğmesi, seçilen klasördeki tüm resimler Word belgesine eklendi ve dosya yolu ve adı da başlık olarak eklendi, ekran görüntüsüne bakın:

doc dosya adı 2 olan resimleri ekle


Kutools for Word kullanarak dosya adıyla birden fazla resim ekleyin

Eğer varsa Kutools for Word, Onun ile Görüntüler özelliği, dosya yolu ve adı ile birden çok resmi Word belgesine hemen ekleyebilirsiniz.

Kutools for Word : 100'den fazla kullanışlı Word eklentisi ile 60 günde sınırlama olmaksızın ücretsiz deneyin. 

Kurduktan sonra Kutools for Wordlütfen şunu yapın:

1. Tıkla Kutools > Görüntüler, ekran görüntüsüne bakın:

doc dosya adı 3 olan resimleri ekle

2. Dışarı fırladı Resimleri Ekle iletişim kutusu, lütfen aşağıdaki işlemleri yapın:

  • (1.) Tıklayın Dosya Ekle or Klasör Ekle eklemek istediğiniz görüntüleri seçmek için düğme;
  • (2.) Sonra kontrol edin Her resmin dosya yolunu başlık olarak ekleyin iletişim kutusunun sol altındaki seçenek;
  • (3.) Ve sonra tıklayın Ekle düğmesine basın.

doc dosya adı 4 olan resimleri ekle

3. Görüntüleri ekledikten sonra, her bir resmin dosya yolunu ve adının da eklendiğini göreceksiniz, ekran görüntüsüne bakın:

doc dosya adı 5 olan resimleri ekle

Kutools for Word'ü indirmek ve şimdi ücretsiz deneme için tıklayın!


Önerilen Word Üretkenlik Araçları

 

Kutools For Word - Word İçin 100'den Fazla Gelişmiş Özellik,% 50 Zaman Kazanın

  • Karmaşık ve tekrarlanan işlemler saniyeler içinde tek seferlik işlem yapılabilir.
  • Klasörler arasında birden çok görüntüyü aynı anda Word belgesine ekleyin.
  • Birden çok Word dosyasını klasörler arasında istediğiniz sırada birleştirin ve birleştirin.
  • Geçerli belgeyi başlık, bölüm sonu veya diğer kriterlere göre ayrı belgelere bölün.
  • Dosyaları Doc ve Docx, Docx ve PDF, ortak dönüştürme ve seçim için araçlar koleksiyonu vb. Arasında dönüştürün ...
Yorumları sıralama ölçütü
Yorumlar (6)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Buenas noches amigo me ha servido Mucho su enformasyon sinembargo beni bir duda cree que es olası incertar görüntüleri en word de la misma manera pero dentro de celdas incertadas?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hangi kod satırını değiştirirsiniz ve dosya yolunun resimden önce nasıl yazılacağı, yani resim yazısı (dosya adı) aşağıda değil yukarıdadır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Seçim ile
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

İle bitmek
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu .MoveDown wdLine'ı .Text=xFile'dan sonra eklemelisiniz
Bu yorum sitedeki moderatör tarafından en aza indirildi
Vay bu harika! Yalnızca dosya adına ihtiyacım vardı, bu yüzden .Text satırından "xPath & "\" &" öğesini sildim ve bu mükemmel çalıştı. Bunun için teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Eklenecek dosya adı 10'u aştığında bir sorun oluşur.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
resim5...
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar