İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Word sənədində fayl adı ilə çoxlu şəkil qoymaq üçün necə?

Word sənədində, Daxil funksiyasından istifadə edərək tez bir zamanda birdən çox şəkil əlavə edə bilərsiniz. Lakin, bəzən, şəkilləri daxil edərkən fayl yolu və adları yazı şəklində əlavə etmək lazımdır. Word faylında bu məsələ ilə necə məşğul ola bilərsiniz?

VBA kodunu istifadə edərək fayl adı ilə çoxlu şəkil çəkin

Word üçün Kutools istifadə edərək filename ilə birdən çox şəkil əlavə edin


Word sənədində fayl adı ilə çoxlu şəkillər əlavə edin:

ilə Word üçün Kutoolsbir qovluqdan və ya birdən çox qovluqdan bir neçə sənədləri tez bir zamanda fayl yolu və adı ilə bir Word sənədinə daxil edə bilərsiniz.

doc faylını 6 ilə daxil edin

Word üçün Kutools: 100-dən çox 60 lazımlı Word eklentisi ilə, XNUMX gün ərzində heç bir məhdudiyyət olmadan cəhd edin. İndi yukle və pulsuz sınaq üçün tıklayın!


VBA kodunu istifadə edərək fayl adı ilə çoxlu şəkil çəkin

Aşağıdakı VBA kodları şəkilləri yerləşdirərkən fayl yolunu və adını əlavə etmək üçün kömək edə bilər, xahiş edirik bunu edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Və sonra basın Taxmaq > Modules, kodu aşağıda açıq blank moduluna kopyalayın və yapışdırın:

VBA kodu: filename ilə çoxlu şəkillər əlavə edin:

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. Sonra basın F5 bu kodu çalıştırmak üçün açar bir Browse penceresi görüntülenir, əlavə etmək istədiyiniz şəkilləri olan qovluğu seçin, ekran görünüşünə baxın:

doc faylını 1 ilə daxil edin

4. Sonra basın OK düyməsini seçdiyiniz qovluqdakı bütün görünüşlər Word sənədinə daxil edilmiş və fayl yolu və adı yaxşı yazı şəklində yerləşdirilmişdir, ekran görüntüsünə baxın:

doc faylını 2 ilə daxil edin


Word üçün Kutools istifadə edərək filename ilə birdən çox şəkil əlavə edin

Əgər Word üçün KutoolsOnun ilə Şəkillər funksiyanı tez bir zamanda, Word sənədinə fayl yolu və adını birdən çox şəkilləri dərhal daxil edə bilərsiniz.

Word üçün Kutools : 100 gündən çox 60 lazımlı Word eklentisi ilə, heç bir məhdudiyyət olmadan cəhd edə bilərsiniz.

Quraşdırıldıqdan sonra Word üçün Kutools, bunu edin:

1. Basın Kutools > Şəkillər, bax ekran görüntüsü:

doc faylını 3 ilə daxil edin

2. Çölə atıldı Şəkillər əlavə edin informasiya qutusu, aşağıdakı əməliyyatları edin:

  • (1.) Tıklayın Files əlavə et or Qovluq əlavə et daxil etmək istədiyiniz şəkilləri seçmək üçün düyməsini basın;
  • (2.) Sonra yoxlayın Hər bir şəklin fayl yolunu mövzu kimi əlavə edin dialoqun sol altındakı seçimi;
  • (3.) Və sonra basın Taxmaq düyməsini basın.

doc faylını 4 ilə daxil edin

3. Şəkilləri yerləşdirdikdən sonra hər bir şəkilin fayl yolunu görürsünüz və adınız da daxil edilir, ekran görüntüsünə baxın:

doc faylını 5 ilə daxil edin

Word üçün Kutools və indi pulsuz sınaq versiyasını yükləmək üçün tıklayın!



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.