Ako dávkové vkladanie viacerých obrázkov do dokumentu Word

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:

1. Najskôr na každú stránku vloží presný počet obrázkov, ktoré zadáte.
2. Po druhé, vkladá meno pod každý obrázok.
3. 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

1. Najskôr usporiadajte všetky obrázky, ktoré sa majú vložiť do rovnakého priečinka.
2. Potom stlačte kombináciu klávesov „Alt + F11“ a vyvolajte editor VBA v programe Word.
3. Ďalej kliknite na „Normálny“ projekt.
4. Potom na paneli s ponukami kliknite na „Vložiť“.
5. A v rozbaľovacej ponuke zvoľte „Modul“.
6. 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 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 ("Zadajte číslo obrázka pre každú stránku", "Číslo obrázka", "Napríklad: 1") n = 1 Zatiaľ čo strFile <> "" Selection.InlineShapes.AddPicture Názov súboru: = StrFolder & strFile, LinkToFile : = False, SaveWithDocument: = True Selection.TypeParagraph Selection.Collapse Direction: = wdCollapsEnd Selection.TypeText Text: = Left (strFile, InStrRev (strFile, ".") - 1) Selection.Paragra phFormat.Alignment = wdAlignParagraphCenter Ak je ActiveDocument.InlineShapes.Count = strPictureNumber * n Potom Selection.InsertNewPage Selection.TypeBackspace n = n + 1 Koniec, ak je Selection.TypeParagraph strFile = Dir () Wend pre každý objInlineShline InShape InShape InShape v ActiveDocument. ParagraphFormat.Alignment = wdAlignParagraphCenter Ďalej objInlineShape nResponse = MsgBox ("Chcete zmeniť veľkosť všetkých obrázkov?", 4, "Zmeniť veľkosť obrázka") Ak nResponse = 6 Potom strPictureSize = InputBox ("Zadajte výšku a šírku obrázka, oddelené čiarka "," Výška a šírka "," Napríklad: 500,500 0 ") Pre každý objInlineShape v ActiveDocument.InlineShapes objInlineShape.Height = Split (strPictureSize,", ") (1) objInlineShape.Width = Split (strPictureSize,", ") (XNUMX) Ďalej objInlineShape Koniec Ak Koniec Sub

7. Potom kliknite na „Spustiť“ alebo stlačte „F5“.
8. 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“.
9. Ď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“.
10. 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.
11. 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.
12. 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