Slik setter du inn flere bilder batch i Word-dokumentet ditt

I denne artikkelen vil vi gjerne tilby deg måten å sette inn flere bilder i Word-dokumentet.

Du kan føle deg komfortabel mens du arbeider med bilder i Word. Når du har satt inn et bilde i dokumentet, må du kanskje endre størrelsen på det manuelt eller skrive inn navnet rundt det. Hva med å bruke en makro for å utføre oppgaven automatisk?

Makroen vi skal presentere deg er i stand til følgende funksjoner:

1. For det første setter den inn nøyaktig antall bilder du angir på hver side.
2. For det andre setter den inn navnet under hvert bilde.
3. For det tredje endrer den størrelsen på bilder i henhold til størrelsestallene du angir.

La oss nå se på hvordan vi får det til å fungere.

Batch Sett inn flere bilder til dokumentet

1. Først av alt, ordne alle bildene som skal settes inn under samme mappe.
2. Trykk deretter "Alt + F11" for å starte VBA-redigering i Word.
3. Klikk deretter på "Normal" prosjekt.
4. Klikk deretter på "Sett inn" på menylinjen.
5. Og på rullegardinmenyen velger du "Modul".
6. Åpne modulen ved å dobbeltklikke og lime inn følgende koder:

Sub InsertSpecificNumberOfPictureForEachPage()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim objInlineShape As InlineShape
  Dim nResponse As Integer
  Dim strPictureNumber As Integer
  Dim strPictureSize As String
  Dim n As Integer  

  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
  
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox ("No Folder is selected!")
      Exit Sub
    End If
  End With

  strFile = Dir(StrFolder & "*.*", vbNormal)
  strPictureNumber = InputBox("Input the number of the picture for each page", "Picture Number", "For exemple: 1")
  n = 1  

  While strFile <> ""
    Selection.InlineShapes.AddPicture FileName:=StrFolder & strFile, LinkToFile:=False, SaveWithDocument:=True
    Selection.TypeParagraph
    Selection.Collapse Direction:=wdCollapsEnd
    Selection.TypeText Text:=Left(strFile, InStrRev(strFile, ".") - 1)
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    If ActiveDocument.InlineShapes.Count = strPictureNumber * n Then
      Selection.InsertNewPage
      Selection.TypeBackspace
      n = n + 1
    End If
    Selection.TypeParagraph
    strFile = Dir()
  Wend

  For Each objInlineShape In ActiveDocument.InlineShapes
    objInlineShape.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next objInlineShape

  nResponse = MsgBox("Do you want to resize all pictures?", 4, "Resize Picture")
  If nResponse = 6 Then
    strPictureSize = InputBox("Input the height and width of the picture, seperated by comma", "Height and Width", "For exemple:500,500")
    For Each objInlineShape In ActiveDocument.InlineShapes
      objInlineShape.Height = Split(strPictureSize, ",")(0)
      objInlineShape.Width = Split(strPictureSize, ",")(1)
    Next objInlineShape
  End If
End Sub

7. Klikk deretter "Kjør" eller trykk "F5".
8. Mens du kjører makroen, vil "Bla gjennom"-vinduet dukke opp. Bare velg mappen du beholder bildene i trinn 1 og klikk "OK".
9. Neste i "Bildenummer"-boksen, skriv inn et tall som representerer det totale antallet bilder du vil ha på en enkelt side. Og klikk "OK" for å fortsette.
10. I "Endre størrelse på bilde"-boksen, klikk "Ja" for å endre størrelse på alle bilder og "Nei" for å avbryte det.
11. Nå i "Høyde og bredde"-boksen, skriv inn verdier og bruk komma for å skille. Husk å angi høyde først og deretter bredden. Det er ingen mellomrom etter komma.
12. På samme måte klikker du på "OK" for å gå videre.

Nå er det 2 bilder på en side og hver har sitt navn under seg. Her er resultatet:

Hold et øye med dataintegritet

Det er alltid en risiko for å miste data eller få dem kompromittert på en eller annen måte. Dette betyr at vi må sjekke dataintegriteten regelmessig. Og når vi finner noen tegn på Ordskade, den beste måten å gjenopprette data på er å få et reparasjonsverktøy.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Excel-gjenoppretting og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med