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áirgeachta Focal Molta

 

Kutools For Word - Níos mó ná 100 Gné Ardteist le haghaidh Word, Sábháil Do 50% Am

• Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
• Cuir isteach íomhánna iomadúla thar fhillteáin i ndoiciméad Word ag an am céanna.
• Cumaisc agus comhcheangail comhaid Word iolracha thar fhillteáin i gceann amháin leis an ord atá uait.
• Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
• Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...

Leigh Nios mo Íosluchtaigh Anois Ceannach