Note: The other languages of the website are Google-translated. Back to English
Autentificare  \/ 
x
or
x
Înregistrare  \/ 
x

or

Cum se inserează mai multe imagini cu nume de fișier în documentul Word?

În documentul Word, puteți insera rapid mai multe imagini simultan utilizând funcția Inserare. Dar, uneori, trebuie să inserați calea fișierului și numele ca subtitrare atunci când introduceți imaginile. Cum ați putea face față acestei sarcini în fișierul Word?

Introduceți mai multe imagini cu numele fișierului utilizând codul VBA

Introduceți mai multe imagini cu nume de fișier utilizând Kutools pentru Word


Introduceți mai multe imagini cu numele fișierului utilizând codul VBA

Următorul cod VBA vă poate ajuta să inserați calea și numele fișierului ca subtitrare la inserarea imaginilor, vă rugăm să faceți acest lucru:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis:

Cod VBA: introduceți mai multe imagini cu numele fișierului:

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. Apoi apăsați F5 tasta pentru a rula acest cod, este afișată o fereastră Răsfoire, vă rugăm să selectați folderul care conține imaginile pe care doriți să le inserați, vedeți captura de ecran:

doc inserați imagini cu numele de fișier 1

4. Apoi apasa OK butonul, toate imaginile din folderul selectat au fost inserate în documentul Word, iar calea și numele fișierului sunt inserate ca subtitrare și vedem captura de ecran:

doc inserați imagini cu numele de fișier 2


Introduceți mai multe imagini cu nume de fișier utilizând Kutools pentru Word

Dacă aveţi Kutools pentru Cuvânt, Cu său imagini caracteristică, puteți insera rapid mai multe imagini cu calea și numele fișierului în documentul Word imediat.

Kutools pentru Cuvânt : cu mai mult de 100 de suplimente Word la îndemână, încercare gratuită fără limitări în 60 de zile. 

După instalare Kutools pentru Cuvânt, vă rugăm să faceți acest lucru:

1. Clic Kutools > imagini, vezi captura de ecran:

doc inserați imagini cu numele de fișier 3

2. În pop-out Inserați imagini caseta de dialog, vă rugăm să efectuați operațiunile de mai jos:

  • (1.) Faceți clic pe Adăugați fișiere or Adaugă Folder buton pentru a selecta imaginile pe care doriți să le inserați;
  • (2.) Apoi verificați Introduceți calea fișierului fiecărei imagini ca legendă opțiune din partea stângă jos a casetei de dialog;
  • (3.) Și apoi faceți clic pe Insera butonul.

doc inserați imagini cu numele de fișier 4

3. După inserarea imaginilor, veți vedea calea fișierului fiecărei imagini și se introduce și numele, vedeți captura de ecran:

doc inserați imagini cu numele de fișier 5

Faceți clic pentru a descărca Kutools pentru Word și încercarea gratuită acum!


Instrumente de productivitate Word recomandate

 

Kutools pentru Word - Mai mult de 100 de funcții avansate pentru Word, economisiți-vă 50% timp

  • Operațiile complicate și repetate pot fi efectuate o singură dată în câteva secunde.
  • Inserați mai multe imagini în foldere în documentul Word simultan.
  • Combinați și combinați mai multe fișiere Word din foldere într-unul singur cu comanda dorită.
  • Împărțiți documentul curent în documente separate în funcție de titlu, secțiune de secțiune sau alte criterii.
  • Convertiți fișiere între Doc și Docx, Docx și PDF, colecție de instrumente pentru conversii și selecție obișnuite și așa mai departe ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John · 1 years ago
    Which line of code would you change and how to have the file path written before the picture, aka the caption (filename) is above rather than below.
    • To post as a guest, your comment is unpublished.
      elmohy · 1 years ago
      With Selection
      .Text = xFile
      .InlineShapes.AddPicture xPath & "\" & xFile, False, True
      .InsertAfter vbCrLf
      .MoveDown wdLine
      End With
      • To post as a guest, your comment is unpublished.
        Sylar · 1 years ago
        Have to add this .MoveDown wdLine after .Text=xFile
  • To post as a guest, your comment is unpublished.
    jairo aguirre · 2 years ago
    buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?