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:
- For det første setter den inn nøyaktig antall bilder du angir på hver side.
- For det andre setter den inn navnet under hvert bilde.
- 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
- Først av alt, ordne alle bildene som skal settes inn under samme mappe.
- Trykk deretter "Alt + F11" for å starte VBA-redigering i Word.
- Klikk deretter på "Normal" prosjekt.
- Klikk deretter på "Sett inn" på menylinjen.
- Og på rullegardinmenyen velger du "Modul".
- Å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 Integer StrPictureSize. leDialogFolderPicker) Med dlgFile If .Show = -1 Then StrFolder = .SelectedItems(1) & "\" Else MsgBox ("Ingen mappe er valgt!") Exit Sub End If End With strFile = Dir(StrFolder & "*.*", vbNormal) strPictureNumber = InputBox("Skriv inn nummeret til bildet for hver side", "Bildenummer", "For eksempel: 1") n = 1 Mens 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 ActiveParagraphSha .Count = strPictureNumber * n Deretter Selection.InsertNewPage Selection.TypeBackspace n = n + 1 End If Selection.TypeParagraph strFile = Dir() Wend For Every objInlineShape In ActiveDocument.InlineShapes objInlineShape.SelectForm Selection.Plign pe nResponse = MsgBox("Vil du endre størrelse på alle bilder?", 4, "Endre størrelse på bilde") If nResponse = 6 Then strPictureSize = InputBox("Skriv inn høyden og bredden på bildet, atskilt med komma", "Høyde og bredde", "For eksempel: 500,500 0") For hver objInlineShape i ActiveDocument.InlineShapes objInlineShape.Height = Split(strPictureSize, ",")(1) objInlineShape.Width = Split(strPictureSize, ",")(XNUMX) Next objInline
- Klikk deretter "Kjør" eller trykk "F5".
- Mens du kjører makroen, vil "Bla gjennom"-vinduet dukke opp. Bare velg mappen du beholder bildene i trinn 1 og klikk "OK".
- 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.
- I "Endre størrelse på bilde"-boksen, klikk "Ja" for å endre størrelse på alle bilder og "Nei" for å avbryte det.
- 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.
- 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
Sub InsertSpecific NumberOfPictureForEachPage()
Dim xDlg As FileDialog
Dim xFilePath som streng
Dim xfilnavn som streng
Dim xMsbBoxRtn As Long
Dim xPicSize As String
Dim xShape Som InlineShape
Sett xDlg = Application.FileDialog(msoFileDialogFolderPicker)
Hvis xDlg.Show = -1 Da
xFilePath = xDlg.SelectedItems(1) & "\"
Else
Exit Sub
End If
xFileName = Dir(xFilePath & “*.*”, vbNormal)
Mens xFileName ""
Hvis ikke (Right(xFileName, 4) = “.png” Eller Right(xFileName, 4) = “.bmp” _
Eller Høyre(xFilnavn, 4) = “.jpg” Eller Høyre(xFilnavn, 4) = “.ico”) Deretter
Gå til LblCtn
End If
Med utvalg
.InlineShapes.AddPicture xFilePath & xFileName, False, True
.TypeParagraph
.Skjul wdCollapsEnd
.TypeText Left(xFileName, InStrRev(xFileName, “.”) – 1)
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeParagraph
Slutt med
LblCtn:
xFilnavn = Dir()
gjelder
ActiveDocument.InlineShapes(1).Velg
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
xMsbBoxRtn = MsgBox(“Vil du endre størrelse på alle bilder?”, vbYesNo, “Kutools for Word”)
Hvis xMsbBoxRtn = 6 Da
xPicSize = InputBox(“Skriv inn høyden og bredden på bildet, atskilt med komma”, “Kutools for Word”, “”)
End If
For hver xShape i ActiveDocument.InlineShapes
xShape.Height = Split(xPicSize, ",")(0)
xShape.Width = Split(xPicSize, ",")(1)
Neste xShape
End Sub
Alguém tem or código ajeitado?
срочный выкуп битых авто [url=vykup-avtomsk.ru]vykup-avtomsk.ru[/url] .
1
Разобрался сам, так как такой информации нигде не нашел, и решил поделиться со всеми.
Если вам нужно просто засунуть много сканов документа вордовский файл, чтобы все картинки былилив жодно авить картинку” og в окне обзора файловой системы выбрать несколько сканов. Однако, автоматически эти сканы добавятся в хаотическом порядке. Чтобы они добавились в правильном порядке – нужно зажать клавишу CTRL og постепенно выделять файлы вы. После этого нажать “Добавить”.
Есть еще 1 момент. Перед добавлением картинок нужно изменить размеры полей документа, если вы хотите, чтобы доклумента лном масштабе автоматически. Например я ставил 0,5см, можно попробовать og 0см for всех полей всех сторон.
Надеюсь помог. Удачи.
Det fungerer ikke på mitt ord iOS. Kjøretidsfeil '5948'.
TAKK SKAL DU HA! Denne modulkoden sparte meg for mye arbeid! Jeg setter pris på deg og alle som er villige til å dele kunnskapen din med andre.
Hvilken måleenhet for høyde og bredde?...millimeter? Tommer? Piksler?
Dessuten, hvis jeg trenger å sette inn 1 bilde per side og jeg har 100 bilder, trenger jeg 100 sider. Vil denne makroen (eller Word) automatisk replikere den første siden 99 ganger, slik at 1 bilde per side kan settes inn, eller må jeg lage en 100 siders Word-dokumentmal for at dette skal fungere? I så fall, hvordan lager jeg det 100 sider store (tomme) Word-dokumentet ... det ser ikke ut til å være noen vei i Word. Takk
Kan du legge til et scenario i koden der ordet vil bli lagret i den valgte mappen med samme navn som den nevnte mappen? Eksempel på mappenavn: TEST1234; Word-filnavn: TEST1234.docx. Ordet skal lagres i mappen.
unifiram (utviklingskodenavn dm-235) er et eksperimentelt medikament som har antiamnesiske effekter i dyrestudier og med betydelig høyere styrke enn piracetam. sunifiram er en molekylær forenkling av unifiram (dm-232). en annen analog er sapunifiram (mn-19). fra og med 2016 hadde sunifiram ikke blitt utsatt for toksikologiske tester, heller ikke for noen kliniske studier på mennesker, og er ikke godkjent for bruk noe sted i verden.
Takk for denne makroen. Har du en makro som setter inn et hvilket som helst antall valgte bilder i enten 3 eller 6 bilder per A4-side i den andre kolonnen i en tabell med 3 kolonner?
Kolonnebredder: Kol1 = 1cm; Col2 = 8 cm; Col3 = 8cm