Ogni settimana John deve creare una invoice e inserire diverse immagini scansionate in un documento di Word. Si chiede se esiste un modo per inserire tutte le immagini JPG da una particolare cartella nel documento Word corrente.

Ci sono un paio di modi per farlo. Un modo è selezionare semplicemente tutti i grafici e inserirli in un unico passaggio:

  1. Posiziona il punto di inserimento nel punto del documento in cui desideri inserire la grafica.

  2. Scegli Inserisci | Immagine | Dal file. Word visualizza la finestra di dialogo Inserisci immagine.

  3. Utilizzare il controllo Cerca in per individuare la cartella che contiene le immagini.

  4. Premi Ctrl + A. Word seleziona tutti i file nella cartella.

  5. Fare clic su OK o su Inserisci, a seconda della versione di Word.

Questo è tutto; Word inserisce tutta la grafica nel documento. Dovrai stare attento a farlo, perché se ce ne sono molti (più di, diciamo, 100)

grafica nella cartella o se i file grafici sono abbastanza grandi, è possibile rallentare Word a una ricerca per indicizzazione o bloccarlo completamente. Se la cartella contiene più della semplice grafica o desideri solo alcuni dei file grafici, puoi tenere premuto il tasto Ctrl mentre usi il mouse per selezionare la grafica nel passaggio 4. Il punto è che qualunque file tu abbia selezionato nel passaggio 4, quelli sono i file che Word inserisce nel tuo documento.

Una variazione di questo approccio prevede l’uso di Windows. Segui questi passaggi generali:

  1. Posiziona il punto di inserimento nel punto del documento in cui desideri inserire la grafica.

  2. Riduci a icona il documento di Word.

  3. In Windows, visualizza la cartella in cui si trovano le immagini.

  4. Crea un gruppo di selezione delle immagini che desideri inserire nel documento.

  5. Fare clic su una singola immagine nel gruppo di selezione e tenere premuto il pulsante del mouse.

  6. Trascina il gruppo di selezione sopra il documento come appare nella barra delle applicazioni. (Non rilasciare ancora il pulsante del mouse.)

  7. Una volta che Windows visualizza il documento di Word (cosa che fa dopo pochi secondi), rilascia il pulsante del mouse.

A questo punto, tutte le immagini selezionate nel passaggio 4 vengono inserite nel documento di Word, come nel metodo precedente.

Se utilizzi uno dei metodi precedenti, dovrai ridimensionare le immagini e spostarle, se necessario, in modo che il tuo documento appaia nel modo desiderato.

Naturalmente, se è necessario inserire interi gruppi di immagini su base regolare, eseguire questi passaggi può diventare stancante dopo un po ‘.

La noia viene spesso alleviata attraverso l’uso di una macro, e questo caso non fa eccezione. La seguente macro può essere utilizzata per visualizzare una finestra di dialogo (simile a quelle utilizzate nei metodi precedenti) in cui è possibile selezionare i file desiderati. Quando chiudi la finestra di dialogo, tutte le immagini selezionate all’interno della finestra di dialogo vengono inserite nel documento, ciascuna nel proprio paragrafo.

Sub InsertImages()

Dim doc As Word.Document     Dim fd As FileDialog     Dim vItem As Variant     Dim mg1 As Range     Dim mg2 As Range

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Set doc = ActiveDocument

With fd         .Filters.Add "Images", ".gif; .jpg; *.jpeg", 1         .FilterIndex = 1

If .Show = -1 Then             For Each vItem In .SelectedItems                 Set mg2 = ActiveDocument.Range                 mg2.Collapse wdCollapseEnd                 doc.InlineShapes.AddPicture _                   FileName:=vItem, _                   LinkToFile:=False, SaveWithDocument:=True, Range:=mg2                 Set mg1 = ActiveDocument.Range                 mg1.Collapse wdCollapseEnd

mg1.Text = vbCrLF & vbCrLf             Next vItem         End If     End With

Set fd = Nothing End Sub

Se non vuoi preoccuparti di selezionare cartelle o file, puoi usare una macro ancora più semplice. Quanto segue estrae tutti i file JPG da una cartella specificata e li inserisce nel documento corrente. Ogni immagine è nel proprio paragrafo.

Sub GetPictures()

Dim sPic As String     Dim sPath As String

sPath = "c:\myfolder\"

sPic = Dir(sPath & "*.jpg")



Do While sPic <> ""

Selection.InlineShapes.AddPicture _           FileName:=sPath & sPic, _           LinkToFile:=False, SaveWithDocument:=True         sPic = Dir         Selection.TypeParagraph         Selection.TypeParagraph     Loop End Sub

Per utilizzare la macro, assicurati di modificare il valore assegnato a sPath in modo che rappresenti la cartella desiderata.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (10726) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a barra multifunzione di Word (Word 2007 e più tardi) qui:

Inserimento di più grafici in un documento.