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

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:

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 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.

Kutools le haghaidh 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 le haghaidh 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 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 ...
Sórtáil tuairimí de réir
Comments (7)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree es es féideartha incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cén líne de chód a d'athrófá agus conas conair an chomhaid a scríobh roimh an bpictiúr, mar atá an fotheideal (ainm an chomhaid) thuas seachas thíos.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Le Roghnú
.Text = xFile
.InlineShapes.AddPicture xPath &"\" &xFile, Bréagach, Fíor
.InsertAfter vbCrLf
.MoveDown wdLine

Deireadh Le
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Caithfidh tú an .MoveDown wdLine seo a chur leis tar éis .Text=xFile
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Wow tá sé seo iontach! Ní raibh de dhíth orm ach ainm an chomhaid, mar sin scrios mé "xPath &"\" &" ón líne .Text agus d'oibrigh sé sin go foirfe. Go raibh maith agat as seo!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tarlaíonn fadhb nuair a sháraíonn ainm an chomhaid atá le cur leis 10 gcinn.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
pic5...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
athraigh ainm an chomhaid go 01, 02, 03 agus oibreoidh sé
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL