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

or

Come inserire più immagini con il nome del file nel documento di Word?

Nel documento di Word, puoi inserire rapidamente più immagini contemporaneamente utilizzando la funzione Inserisci. Ma, a volte, è necessario inserire il percorso del file ei nomi come didascalia quando si inseriscono le immagini. Come hai potuto gestire questa attività nel file di Word?

Inserisci più immagini con il nome del file utilizzando il codice VBA

Inserisci più immagini con il nome del file usando Kutools per Word


Inserisci più immagini con il nome del file utilizzando il codice VBA

Il seguente codice VBA può aiutarti a inserire il percorso e il nome del file come didascalia quando inserisci le immagini, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi fare clic su inserire > Modulo, copia e incolla sotto il codice nel modulo vuoto aperto:

Codice VBA: inserisci più immagini con nome file:

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. Quindi premere F5 chiave per eseguire questo codice, viene visualizzata una finestra Sfoglia, selezionare la cartella che contiene le immagini che si desidera inserire, vedere screenshot:

doc inserire immagini con nome file 1

4. Quindi fare clic OK pulsante, tutte le immagini nella cartella selezionata sono state inserite nel documento di Word e il percorso e il nome del file sono inseriti come didascalia, vedi screenshot:

doc inserire immagini con nome file 2


Inserisci più immagini con il nome del file usando Kutools per Word

Se si dispone di Kutools for Word, Con la sua Immagini è possibile inserire rapidamente più immagini con percorso e nome del file nel documento di Word immediatamente.

Kutools for Word : con più di 100 utili componenti aggiuntivi di Word, liberi di provare senza limitazioni in 60 giorni. 

Dopo l'installazione Kutools for Word, per favore fai come questo:

1. Clicca Kutools > Immagini, vedi screenshot:

doc inserire immagini con nome file 3

2. Nel saltò fuori Inserisci foto finestra di dialogo, eseguire le operazioni seguenti:

  • (1.) Fare clic su aggiungi file or aggiungi cartella pulsante per selezionare le immagini che si desidera inserire;
  • (2.) Quindi controlla Inserisci il percorso del file di ogni immagine come didascalia opzione nella parte inferiore sinistra della finestra di dialogo;
  • (3.) E quindi fare clic su inserire pulsante.

doc inserire immagini con nome file 4

3. Dopo aver inserito le immagini, vedrai il percorso e il nome del file di ciascuna immagine inseriti, vedi screenshot:

doc inserire immagini con nome file 5

Fai clic per scaricare Kutools per Word e prova gratuita ora!


Strumenti di produttività Word consigliati

 

Kutools per Word: oltre 100 funzionalità avanzate per Word, risparmia il 50% del tempo

  • Le operazioni complicate e ripetute possono essere eseguite una sola volta in pochi secondi.
  • Inserisci più immagini tra le cartelle nel documento di Word contemporaneamente.
  • Unisci e combina più file di Word tra cartelle in uno con l'ordine desiderato.
  • Suddividi il documento corrente in documenti separati in base a titolo, interruzione di sezione o altri criteri.
  • Converti file tra Doc e Docx, Docx e PDF, raccolta di strumenti per conversioni e selezioni comuni e così via ...
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?