V tomto článku by sme vám chceli ponúknuť spôsob hromadného vkladania viacerých obrázkov do dokumentu Word.
Pri práci s obrázkami v programe Word sa môžete cítiť pohodlne. Po vložení obrázka do dokumentu bude pravdepodobne potrebné manuálne zmeniť jeho veľkosť alebo zadať jeho názov. Čo tak použiť makro na automatické vykonanie úlohy?
Makro, ktoré vám predstavíme, je schopné vykonávať nasledujúce funkcie:
- Najskôr na každú stránku vloží presný počet obrázkov, ktoré zadáte.
- Po druhé, vkladá meno pod každý obrázok.
- Po tretie, zmení veľkosť obrázkov podľa zadaných čísel veľkostí.
Teraz sa pozrime na to, ako to uvedieme do práce.
Dávkové vkladanie viacerých obrázkov do dokumentu
- Najskôr usporiadajte všetky obrázky, ktoré sa majú vložiť do rovnakého priečinka.
- Potom stlačte kombináciu klávesov „Alt + F11“ a vyvolajte editor VBA v programe Word.
- Ďalej kliknite na „Normálny“ projekt.
- Potom na paneli s ponukami kliknite na „Vložiť“.
- A v rozbaľovacej ponuke zvoľte „Modul“.
- Otvorte modul dvojitým kliknutím a vložte nasledujúce kódy:
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
- Potom kliknite na „Spustiť“ alebo stlačte „F5“.
- Počas spustenia makra sa zobrazí okno „Prechádzať“. V kroku 1 vyberte priečinok, do ktorého chcete obrázky uložiť, a kliknite na tlačidlo „OK“.
- Ďalej do poľa „Číslo obrázka“ zadajte číslo predstavujúce celkový počet požadovaných obrázkov na jednej stránke. Pokračujte kliknutím na tlačidlo „OK“.
- V poli „Zmeniť veľkosť obrázka“ kliknite na „Áno“, aby ste zmenili veľkosť všetkých obrázkov, a „Nie“ na jeho zrušenie.
- Teraz do poľa „Výška a šírka“ zadajte hodnoty a oddeľte ich čiarkou. Nezabudnite najskôr zadať výšku a potom šírku. Po čiarke nie je miesto.
- Podobne pokračujte kliknutím na tlačidlo „OK“.
Teraz sú na jednej stránke 2 obrázky a každý má pod sebou svoj názov. Tu je výsledok:
Dajte pozor na integritu údajov
Vždy existuje riziko straty údajov alebo nejakého kompromisu. To znamená, že musíme pravidelne kontrolovať integritu údajov. Akonáhle nájdeme akýkoľvek znak Poškodenie slov, najlepším spôsobom, ako obnoviť dáta, je zaobstarať si nástroj na opravu.
Úvod autora:
Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane Excel zotavenie a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S