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

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. Clicchi 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 ...
Commenti (7)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
buenas noches amigo me ha servito mucho su informazioni sinembargo me surge una duda cree que è possibile incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
Questo commento è stato fatto dal moderatore sul sito
Quale riga di codice cambieresti e come scrivere il percorso del file prima dell'immagine, ovvero la didascalia (nome file) è sopra anziché sotto.
Questo commento è stato fatto dal moderatore sul sito
Con la selezione
.Testo = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.Sposta verso il basso wdLine

Fine Con
Questo commento è stato fatto dal moderatore sul sito
Devi aggiungere questo .MoveDown wdLine dopo .Text=xFile
Questo commento è stato fatto dal moderatore sul sito
Wow questo è fantastico! Avevo solo bisogno del nome del file, quindi ho eliminato "xPath & "\" &" dalla riga .Text e ha funzionato perfettamente. Grazie per questo!
Questo commento è stato fatto dal moderatore sul sito
Si verifica un problema quando il nome del file da aggiungere supera 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
foto5...
Questo commento è stato fatto dal moderatore sul sito
cambia il nome del file in 01, 02, 03 e funzionerà
Non ci sono ancora commenti pubblicati qui

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL