Ինչպե՞ս տեղադրել ֆայլի անունով բազմաթիվ նկարներ Word փաստաթղթում:
Word փաստաթղթում դուք կարող եք միանգամից միանգամից մի քանի նկար տեղադրել, օգտագործելով Տեղադրել գործառույթը: Բայց, երբեմն, նկարները ներմուծելիս հարկավոր է որպես վերնագիր տեղադրել ֆայլի ուղին և անունները: Ինչպե՞ս կարող եք գործ ունենալ Word- ի այս ֆայլի հետ:
Տեղադրեք բազմաթիվ նկարներ ֆայլի անունով ՝ օգտագործելով VBA կոդ
Տեղադրեք բազմաթիվ նկարներ ֆայլի անունով `օգտագործելով Kutools for Word
Տեղադրեք բազմաթիվ նկարներ ֆայլի անունով ՝ օգտագործելով VBA կոդ
Հետևյալ VBA կոդը կարող է օգնել պատկերները ներմուծելիս ֆայլի ուղին և անունը որպես վերնագիր տեղադրել, արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2, Եվ հետո, կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ.
VBA կոդ. Տեղադրեք բազմաթիվ նկարներ ֆայլի անունով.
Sub PicWithCaption()
Dim xFileDialog As FileDialog
Dim xPath, xFile As Variant
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDialog.Show = -1 Then
xPath = xFileDialog.SelectedItems.Item(1)
If xPath <> "" Then
xFile = Dir(xPath & "\*.*")
Do While xFile <> ""
If UCase(Right(xFile, 3)) = "PNG" Or _
UCase(Right(xFile, 3)) = "TIF" Or _
UCase(Right(xFile, 3)) = "JPG" Or _
UCase(Right(xFile, 3)) = "GIF" Or _
UCase(Right(xFile, 3)) = "BMP" Then
With Selection
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine
.Text = xPath & "\" & xFile & Chr(10)
.MoveDown wdLine
End With
End If
xFile = Dir()
Loop
End If
End If
End Sub
3, Դրանից հետո սեղմեք F5 Այս կոդը գործարկելու համար ստեղնը ցուցադրվում է Bննման պատուհանը, խնդրում ենք ընտրել այն թղթապանակը, որը պարունակում է ձեր կողմից տեղադրված պատկերները:
4. Այնուհետեւ կտտացրեք OK կոճակը, ընտրված թղթապանակի բոլոր պատկերները տեղադրվել են Word փաստաթղթում, և ֆայլի ուղին և անունը տեղադրվում են որպես լավ վերնագիր, տես նկարի նկարը.
Տեղադրեք բազմաթիվ նկարներ ֆայլի անունով `օգտագործելով Kutools for Word
Եթե դուք ունեք Kutools բառի համարԻր Նկարներ առանձնահատկությունը, դուք կարող եք արագորեն միացնել բազմաթիվ նկարներ ֆայլի ուղով և անունով անմիջապես Word փաստաթղթում:
Kutools բառի համար : ավելի քան 100 հարմար Word հավելվածներով, 60 օրվա ընթացքում առանց սահմանափակումների անվճար փորձեք. |
Տեղադրելուց հետո Kutools բառի համարԽնդրում եմ արեք հետևյալ կերպ
1. Սեղմել Կուտոլս > Նկարներ, տես նկարի նկարը.
2, Դուրս ցցված Տեղադրեք նկարներ երկխոսության տուփ, խնդրում ենք կատարել ստորև նշված գործողությունները.
- (1.) Կտտացրեք Ավելացնել ֆայլեր or Երկապանակ ավելացնել կոճակը ՝ այն պատկերները ընտրելու համար, որոնք ցանկանում եք տեղադրել:
- (2.) Ապա ստուգեք Որպես վերնագիր տեղադրեք յուրաքանչյուր նկարի ֆայլի ուղին տարբերակը երկխոսության տուփի ձախ ներքևում;
- (3.) Եվ ապա կտտացրեք Տեղադրել կոճակը:
3, Պատկերները զետեղելուց հետո կտեսնեք, որ յուրաքանչյուր նկարի ֆայլի ուղին և անունը նույնպես տեղադրված են: Տեսեք,
Կտտացրեք Kutools- ի Word- ի և անվճար փորձարկման համար ներբեռնելու համար:
Գրասենյակի արտադրողականության լավագույն գործիքները
Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Ավելի շատ հեռացնելու գործիքների համար գնացեք դեպի Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրել խումբ...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել Հատուկ էջեր / Աղյուսակներ / Ձեւավորում / Վերնագիր պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Նավարկեք դեպի Ցանկացած վայր / Ավտոմատ տեղադրում կրկնվող տեքստ / Փոխարկել Փաստաթղթի Windows-ի միջև / 11 Փոխակերպման գործիքներ...