V tomto článku bychom vám chtěli nabídnout způsob hromadného vkládání více obrázků do dokumentu aplikace Word.
Při práci s obrázky ve Wordu se můžete cítit pohodlně. Jakmile vložíte obrázek do dokumentu, budete možná muset ručně změnit jeho velikost nebo zadat jeho název. Co takhle použít makro k automatickému provedení úkolu?
Makro, které vám představíme, je schopné provádět následující funkce:
- Nejprve na každou stránku vloží přesný počet obrázků, které určíte.
- Zadruhé vloží název pod každý obrázek.
- Za třetí, změní velikost obrázků podle zadaných čísel velikostí.
Nyní se podívejme na to, jak to uvedeme do provozu.
Dávkové vkládání více obrázků do dokumentu
- Nejprve uspořádejte všechny obrázky, které mají být vloženy do stejné složky.
- Poté stiskněte „Alt + F11“ pro vyvolání editoru VBA ve Wordu.
- Dále klikněte na „Normální“ projekt.
- Poté na řádku nabídek klikněte na „Vložit“.
- A v rozbalovací nabídce zvolte „Modul“.
- Otevřete modul dvojitým kliknutím a vložte následující 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
- Poté klikněte na „Spustit“ nebo stiskněte „F5“.
- Během spouštění makra se otevře okno „Procházet“. V kroku 1 vyberte složku, do které chcete obrázky uložit, a klikněte na „OK“.
- Dále do pole „Číslo obrázku“ zadejte číslo představující celkový počet požadovaných obrázků na jedné stránce. Pokračujte kliknutím na „OK“.
- V poli „Změnit velikost obrázku“ kliknutím na „Ano“ změníte velikost všech obrázků a klepnutím na „Ne“ jej zrušíte.
- Nyní do pole „Výška a šířka“ zadejte hodnoty a oddělte je čárkou. Nezapomeňte nejprve zadat výšku a poté šířku. Po čárce není místo.
- Podobně pokračujte kliknutím na „OK“.
Nyní jsou na jedné stránce 2 obrázky a každý má pod sebou svůj název. Zde je výsledek:
Dávejte pozor na integritu dat
Vždy existuje riziko ztráty dat nebo nějakého kompromisu. To znamená, že musíme pravidelně kontrolovat integritu dat. A jakmile najdeme jakékoli známky Poškození slov, nejlepší způsob, jak obnovit data, je získat nástroj pro opravu.
Úvod autora:
Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Obnova aplikace Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com