Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս տեղադրել ֆայլի անունով բազմաթիվ նկարներ 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ննման պատուհանը, խնդրում ենք ընտրել այն թղթապանակը, որը պարունակում է ձեր կողմից տեղադրված պատկերները:

Doc տեղադրել պատկերներ 1 ֆայլի անունով

4. Այնուհետեւ կտտացրեք OK կոճակը, ընտրված թղթապանակի բոլոր պատկերները տեղադրվել են Word փաստաթղթում, և ֆայլի ուղին և անունը տեղադրվում են որպես լավ վերնագիր, տես նկարի նկարը.

Doc տեղադրել պատկերներ 2 ֆայլի անունով


Տեղադրեք բազմաթիվ նկարներ ֆայլի անունով `օգտագործելով Kutools for Word

Եթե ​​դուք ունեք Kutools բառի համարԻր Նկարներ առանձնահատկությունը, դուք կարող եք արագորեն միացնել բազմաթիվ նկարներ ֆայլի ուղով և անունով անմիջապես Word փաստաթղթում:

Kutools բառի համար : ավելի քան 100 հարմար Word հավելվածներով, 60 օրվա ընթացքում առանց սահմանափակումների անվճար փորձեք. 

Տեղադրելուց հետո Kutools բառի համարԽնդրում եմ արեք հետևյալ կերպ

1. Սեղմել Կուտոլս > Նկարներ, տես նկարի նկարը.

Doc տեղադրել պատկերներ 3 ֆայլի անունով

2, Դուրս ցցված Տեղադրեք նկարներ երկխոսության տուփ, խնդրում ենք կատարել ստորև նշված գործողությունները.

  • (1.) Կտտացրեք Ավելացնել ֆայլեր or Երկապանակ ավելացնել կոճակը ՝ այն պատկերները ընտրելու համար, որոնք ցանկանում եք տեղադրել:
  • (2.) Ապա ստուգեք Որպես վերնագիր տեղադրեք յուրաքանչյուր նկարի ֆայլի ուղին տարբերակը երկխոսության տուփի ձախ ներքևում;
  • (3.) Եվ ապա կտտացրեք Տեղադրել կոճակը:

Doc տեղադրել պատկերներ 4 ֆայլի անունով

3, Պատկերները զետեղելուց հետո կտեսնեք, որ յուրաքանչյուր նկարի ֆայլի ուղին և անունը նույնպես տեղադրված են: Տեսեք,

Doc տեղադրել պատկերներ 5 ֆայլի անունով

Կտտացրեք Kutools- ի Word- ի և անվճար փորձարկման համար ներբեռնելու համար:


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (6)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կոդի ո՞ր տողը կփոխեիք և ինչպես գրվի ֆայլի ուղին նկարից առաջ, որը վերնագիրն է (ֆայլի անունը), այլ ոչ թե ներքևում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ընտրությամբ
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.Տեղադրեք vbCrLf-ից հետո
.MoveDown wdLine

Վերջ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Պետք է ավելացնել սա .MoveDown wdLine .Text=xFile-ից հետո
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Wow, սա հիանալի է: Ինձ միայն անհրաժեշտ էր ֆայլի անունը, այնպես որ ես ջնջեցի «xPath & «\» &» .Text տողից, և դա կատարյալ աշխատեց: Շնորհակալություն սրա համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Խնդիր է առաջանում, երբ ավելացվող ֆայլի անունը գերազանցում է 10-ը:

pic1
pic10
pic11
pic12
pic2
pic3
pic4
նկար 5...
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր