Skip to main content

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 comhaid trí úsáid a bhaint as Kutools for Word


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:

cuir isteach íomhánna le hainm comhaid 1

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 íomhánna le hainm comhaid 2


Cuir isteach pictiúir iolracha le hainm comhaid trí úsáid a bhaint as Kutools for Word

Má tá tú Kutools for 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.

Kutools for Word : le níos mó ná 100 breiseán áisiúil Word, saor in aisce le triail gan aon teorannú i gceann 60 lá. 

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

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

cuir isteach íomhánna le hainm comhaid 3

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.

cuir isteach íomhánna le hainm comhaid 4

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:

cuir isteach íomhánna le hainm comhaid 5

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

Uirlisí Táirgiúlachta Oifige is Fearr

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

Léim isteach sna gnéithe aibhsithe thíos nó cliceáil anseo chun cumhacht iomlán na Kutools for Word.

📘 Máistreacht Doiciméad: Leathanaigh Scoilte  /  Cumaisc Doiciméid  /  Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/XLSX)  /  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 GlanSguab as Spásanna Breise  /  Sosanna Alt  /   Gach Ceanntásca  /  Boscaí Téacs  /  Hipearnasc  /  Le haghaidh tuilleadh uirlisí a bhaint, téigh chuig ár Bain Grúpa

Ionsáigh Cruthaitheach: Ionsáigh 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ó inár Insert Group

🔍 Roghanna Beachtais: Pinpoint leathanaigh ar leith  /  táblaí  /  cruthanna  /  míreanna ceannteideal  /  Déan nascleanúint gan stró ag baint úsáide as ár Roghghrúpa

Feabhsuithe Réalta: Déan nascleanúint go tapa chuig aon láthair  /  cuir isteach téacs athchleachtach go huathoibríoch  /  scoránaigh gan uaim idir fuinneoga doiciméad  /  11 Uirlisí Tiontaithe ...

Trasfhoirmigh do thascanna Word le Kutools. 👉 Íoslódáil le triail 30 lá Anois 🚀.

 
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can I decrease the overall size of the photo so there are multiple per page?
This comment was minimized by the moderator on the site
Is there a way to insert each picture and file name per page? Sometimes if one picture is too big the file name will then go to the next page or if picture is too small the next picture will be together in one page instead on the next page
This comment was minimized by the moderator on the site
Hello, Rizza,
To insert each picture and file name per page, please apply the following vba code:
Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath As String, xFile As String
    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
                    
                    ' Add the picture
                    Selection.InlineShapes.AddPicture xPath & "\" & xFile, False, True
                    Selection.TypeParagraph
                    
                    ' Add the file path below the picture
                    Selection.TypeText xPath & "\" & xFile
                    Selection.TypeParagraph
                    
                    ' Move to the next page
                    Selection.InsertBreak Type:=wdPageBreak
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub


Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
A problem occurs when the file name to be added exceeds 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
pic5...
This comment was minimized by the moderator on the site
change the file name to 01, 02, 03 and it will work
This comment was minimized by the moderator on the site
Wow this is great! I only needed the file name, so I deleted "xPath & "\" &" from the .Text line and that worked perfectly. Thanks for this!
This comment was minimized by the moderator on the site
Which line of code would you change and how to have the file path written before the picture, aka the caption (filename) is above rather than below.
This comment was minimized by the moderator on the site
With Selection
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

End With
This comment was minimized by the moderator on the site
Have to add this .MoveDown wdLine after .Text=xFile
This comment was minimized by the moderator on the site
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?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations