Conas pictiúir iolracha le hainm comhaid a chur isteach i ndoiciméad Word?

I ndoiciméad Word, is féidir leat iliomad pictiúr a chur isteach go tapa ag an am céanna tríd an bhfeidhm Ionsáigh a úsáid. Ach, uaireanta, ní mór duit cosán agus ainmneacha na gcomhad a chur isteach mar cheannteideal agus na pictiúir á gcur isteach. Conas a d’fhéadfá déileáil leis an tasc seo i gcomhad Word?

Cuir isteach pictiúir iolracha le hainm an chomhaid trí chód VBA a úsáid

Cuir isteach pictiúir iolracha le hainm an chomhaid trí Kutools for Word a úsáid

Cuir isteach pictiúir iolracha le hainm an chomhaid trí chód VBA a úsáid

Is féidir leis an gcód VBA seo a leanas cabhrú leat cosán agus ainm an chomhaid a chur isteach mar cheannteideal agus na híomhánna á gcur isteach, déan mar seo é le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Agus ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte:

Cód VBA: Cuir isteach iliomad pictiúr le hainm an chomhaid:

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. Ansin brúigh F5 eochair chun an cód seo a rith, taispeántar fuinneog Brabhsáil, roghnaigh an fillteán ina bhfuil na híomhánna a theastaíonn uait a chur isteach, féach ar an scáileán:

4. Ansin cliceáil OK cnaipe, tá na híomhánna go léir san fhillteán roghnaithe curtha isteach sa doiciméad Word, agus tá cosán agus ainm an chomhaid curtha isteach mar cheannteideal is maith linn, féach an scáileán:

Cuir isteach pictiúir iolracha le hainm an chomhaid trí Kutools for Word a úsáid

Má tá tú Kutools le haghaidh Word, Lena Íomhánna gné, is féidir leat pictiúir iolracha a chur isteach go tapa le cosán agus ainm comhaid sa doiciméad Word láithreach.

Tar éis a shuiteáil Kutools le haghaidh Word, déan mar seo le do thoil:

1. cliceáil Kutools > Íomhánna, féach ar an scáileán:

2. Sa popped amach Cuir isteach Pictiúir bosca dialóige, déan na hoibríochtaí thíos le do thoil:

• (1.) Cliceáil Cuir Comhaid or Cuir Fillteán Leis cnaipe chun na híomhánna a theastaíonn uait a chur isteach a roghnú;
• (2.) Ansin seiceáil Cuir isteach cosán comhaid gach pictiúr mar cheannteideal rogha ag bun na láimhe clé den bhosca dialóige;
• (3.) Agus ansin cliceáil Ionsáigh cnaipe.

3. Tar éis duit na híomhánna a chur isteach, feicfidh tú cosán comhaid gach pictiúr agus cuirtear ainm isteach freisin, féach an scáileán:

Cliceáil chun Kutools for Word a íoslódáil agus triail saor in aisce anois!

Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!

🤖 Cúntóir Kutools AI: athraigh do chuid scríbhinn le AI - Gin Ábhar  /  Athscríobh Téacs  /  Déan achoimre ar Dhoiciméid  /  Fiosraigh le haghaidh Faisnéise bunaithe ar Doiciméad, ar fad laistigh de Word

📘 Máistreacht Doiciméad: Leathanaigh Scoilte  /  Cumaisc Doiciméid  /  Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...)  /  Baisc a thiontú go PDF  /  Easpórtáil Leathanaigh mar Íomhánna  /  Priontáil Comhaid Il ag an am céanna...

✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh thar Chomhaid Il  /  Athraigh Méid Gach Pictiúr  /  Trasnaigh Rónna Tábla agus Colúin  /  Tiontaigh Tábla go Téacs...

🧹 Effortless Glan: Sguab as Spásanna Breise  /  Sosanna Alt  /  Gach Ceanntásca  /  Boscaí Téacs  /  Hipearnasc  / Chun níos mó uirlisí a bhaint, ceann go dtí an Bain an grúpa...

➕ Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir  /  Boscaí Seiceála  /  Cnaipí Raidió  /  Cód QR  /  barcode  /  Tábla Líne Trasnánach  /  Fotheideal Cothromóid  /  Fotheideal Íomhá  /  Fotheideal Tábla  /  Pictiúir Il  / Faigh amach níos mó sa Cuir isteach grúpa...

🔍 Roghanna Beachtais: Pionta Leathanaigh Sonracha  /  Táblaí  /  cruthanna  /  Míreanna Ceannteideal  / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...

⭐ Feabhsuithe Réalta: Déan nascleanúint chuig Suíomh ar bith  /  Uath-Ionsáigh Téacs Athchleachtach  /  Scoránaigh Idir Windows Doiciméad  /  11 Uirlisí Tiontaithe...

???? Ar mhaith leat triail a bhaint as na gnéithe seo? Kutools le haghaidh Word cuireann a Triail saor in aisce 60 lá, gan teorainneacha! 🚀

Free Download     Leigh Nios mo     Ceannaigh Anois