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

Kako v Wordov dokument vstaviti več slik z imenom datoteke?

V dokumentu Word lahko s funkcijo Vstavi hitro vstavite več slik hkrati. Toda včasih morate pri vstavljanju slik vstaviti pot do datoteke in imena kot napis. Kako ste se lahko spopadli s to nalogo v Wordovi datoteki?

S kodo VBA vstavite več slik z imenom datoteke

Z Kutools for Word vstavite več slik z imenom datoteke


S kodo VBA vstavite več slik z imenom datoteke

Naslednja koda VBA vam lahko pomaga pri vstavljanju poti in imena datoteke kot napis pri vstavljanju slik. Naredite to:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul:

Koda VBA: Vstavite več slik z imenom datoteke:

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. Nato pritisnite F5 za zagon te kode se prikaže okno Brskaj, izberite mapo, ki vsebuje slike, ki jih želite vstaviti, glejte sliko zaslona:

doc vstavi slike z imenom datoteke 1

4. Nato kliknite OK , vse slike v izbrani mapi so bile vstavljene v Wordov dokument, pot do datoteke pa je vstavljena kot napis, dobro, glej posnetek zaslona:

doc vstavi slike z imenom datoteke 2


Z Kutools for Word vstavite več slik z imenom datoteke

Če imate Kutools za Word, Z njegovim slike funkcija, lahko v dokument Word takoj vstavite več slik s potjo do datoteke in imenom.

Kutools za Word : z več kot 100 priročnimi dodatki za Word, ki jih lahko brezplačno preizkusite v 60 dneh. 

Po namestitvi Kutools za Word, naredite tako:

1. klik Kutools > slike, glej posnetek zaslona:

doc vstavi slike z imenom datoteke 3

2. V izskočil Vstavi slike pogovorno okno, naredite naslednje:

  • (1.) Kliknite Dodaj datoteke or dodaj mapo gumb, da izberete slike, ki jih želite vstaviti;
  • (2.) Nato preverite Vstavi pot datoteke do vsake slike kot napis možnost na levem dnu pogovornega okna;
  • (3.) In nato kliknite Vstavi gumb.

doc vstavi slike z imenom datoteke 4

3. Po vstavitvi slik boste videli pot do datoteke vsake slike in tudi ime, glejte posnetek zaslona:

doc vstavi slike z imenom datoteke 5

Kliknite za prenos Kutools za Word in brezplačno preskusno različico zdaj!


Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (7)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
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?
Ta komentar je moderator na spletnem mestu minimiziral
Katero vrstico kode bi spremenili in kako naj bo pot do datoteke zapisana pred sliko, tudi napis (ime datoteke) je zgoraj in ne spodaj.
Ta komentar je moderator na spletnem mestu minimiziral
Z izborom
.Besedilo = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

Končaj s
Ta komentar je moderator na spletnem mestu minimiziral
Za .Text=xFile je treba dodati to .MoveDown wdLine
Ta komentar je moderator na spletnem mestu minimiziral
Vau to je super! Potreboval sem samo ime datoteke, zato sem izbrisal "xPath & "\" &" iz vrstice .Text in to je delovalo odlično. Hvala za to!
Ta komentar je moderator na spletnem mestu minimiziral
Težava se pojavi, ko ime datoteke, ki jo želite dodati, preseže 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
slika 5...
Ta komentar je moderator na spletnem mestu minimiziral
spremenite ime datoteke v 01, 02, 03 in bo delovalo
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL