U ovom članku želimo vam ponuditi način grupnog umetanja više slika u vaš Word dokument.
Možete se osjećati ugodno dok radite sa slikama u Wordu. Nakon što umetnete sliku u dokument, možda ćete joj morati ručno promijeniti veličinu ili unijeti njezin naziv. Što kažete na korištenje makronaredbe za automatsko izvršavanje zadatka?
Makro koji ćemo vam predstaviti ima sljedeće funkcije:
- Prvo, umeće točan broj slika koje navedete na svakoj stranici.
- Drugo, umeće ime ispod svake slike.
- Treće, mijenja veličinu slika prema brojevima veličina koje unesete.
Sada pogledajmo kako ćemo ga pokrenuti.
Skupno umetanje više slika u dokument
- Prije svega, rasporedite sve slike koje želite umetnuti u istu mapu.
- Zatim pritisnite “Alt+ F11” da pozovete VBA editor u Wordu.
- Zatim kliknite "Normalni" projekt.
- Zatim na traci izbornika kliknite "Umetni".
- I na padajućem izborniku odaberite "Modul".
- Otvorite modul duplim klikom i zalijepite sljedeće kodove:
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
- Zatim kliknite "Pokreni" ili pritisnite "F5".
- Tijekom pokretanja makronaredbe pojavit će se prozor "Pregledaj". Samo odaberite mapu u kojoj čuvate slike u koraku 1 i kliknite "OK".
- Zatim u okvir "Broj slike" unesite broj koji predstavlja ukupan broj slika koje želite na jednoj stranici. I kliknite "OK" za nastavak.
- U okviru "Promijeni veličinu slike" kliknite "Da" za promjenu veličine svih slika i "Ne" za odustajanje.
- Sada u okvir "Visina i širina" unesite vrijednosti i odvojite ih zarezom. Ne zaboravite prvo unijeti visinu, a zatim širinu. Iza zareza nema razmaka.
- Slično, kliknite "OK" za nastavak.
Sada postoje 2 slike na jednoj stranici i svaka ima svoje ime ispod nje. Evo ishoda:
Pazite na integritet podataka
Uvijek postoji rizik od gubitka podataka ili da su na neki način ugroženi. To znači da moramo redovito provjeravati integritet podataka. I kad jednom nađemo bilo kakav znak Oštećenje riječi, najbolji način za oporavak podataka je nabavka alata za popravak.
Uvod za autora:
Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel oporavak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com