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

Jak wstawić wiele zdjęć z nazwą pliku w dokumencie programu Word?

W dokumencie programu Word można szybko wstawić wiele obrazów naraz, korzystając z funkcji Wstaw. Ale czasami trzeba wstawić ścieżkę pliku i nazwy jako podpis podczas wstawiania obrazów. Jak poradzisz sobie z tym zadaniem w pliku Word?

Wstaw wiele zdjęć z nazwą pliku za pomocą kodu VBA

Wstaw wiele zdjęć z nazwą pliku za pomocą Kutools for Word


Wstaw wiele zdjęć z nazwą pliku za pomocą kodu VBA

Poniższy kod VBA może pomóc wstawić ścieżkę do pliku i nazwę jako podpis podczas wstawiania obrazów, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. A następnie kliknij wstawka > Modułskopiuj i wklej poniższy kod do otwartego pustego modułu:

Kod VBA: Wstaw wiele zdjęć z nazwą pliku:

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. Następnie naciśnij F5 Aby uruchomić ten kod, zostanie wyświetlone okno przeglądania, wybierz folder zawierający obrazy, które chcesz wstawić, zobacz zrzut ekranu:

doc wstaw obrazy z nazwą pliku 1

4. Następnie kliknij OK przycisk, wszystkie obrazy w wybranym folderze zostały wstawione do dokumentu Worda, a ścieżka pliku i nazwa są wstawione jako podpis, który dobrze, patrz zrzut ekranu:

doc wstaw obrazy z nazwą pliku 2


Wstaw wiele zdjęć z nazwą pliku za pomocą Kutools for Word

Jeśli masz Kutools dla Worda, Z siedzibą w Obrazy funkcja, możesz szybko wstawić wiele obrazów ze ścieżką i nazwą pliku do dokumentu programu Word.

Kutools dla Worda : z ponad 100 przydatnymi dodatkami do Worda, które można wypróbować bezpłatnie bez ograniczeń przez 60 dni. 

Po zainstalowaniu Kutools dla Worda, zrób tak:

1. Kliknij Kutools > Obrazyzobacz zrzut ekranu:

doc wstaw obrazy z nazwą pliku 3

2. W wyskoczył Wstaw zdjęcia w oknie dialogowym, wykonaj poniższe czynności:

  • (1.) Kliknij Dodaj pliki or Dodaj folder przycisk, aby wybrać obrazy, które chcesz wstawić;
  • (2.) Następnie sprawdź Wstaw ścieżkę do każdego zdjęcia jako podpis opcja w lewym dolnym rogu okna dialogowego;
  • (3.) A następnie kliknij wstawka przycisk.

doc wstaw obrazy z nazwą pliku 4

3. Po wstawieniu obrazów zobaczysz ścieżkę do pliku każdego obrazu i wstawioną nazwę, patrz zrzut ekranu:

doc wstaw obrazy z nazwą pliku 5

Kliknij, aby pobrać Kutools for Word i bezpłatną wersję próbną już teraz!


Zalecane narzędzia zwiększające produktywność programu Word

 

Kutools dla programu Word — ponad 100 zaawansowanych funkcji programu Word, oszczędzaj 50% czasu

  • Skomplikowane i powtarzalne operacje można wykonać jednorazowo w ciągu kilku sekund.
  • Wstaw wiele obrazów w folderach do dokumentu programu Word jednocześnie.
  • Scalaj i łącz wiele plików programu Word w folderach w jeden z żądaną kolejnością.
  • Podziel bieżący dokument na oddzielne dokumenty według nagłówka, podziału sekcji lub innych kryteriów.
  • Konwertuj pliki między Doc i Docx, Docx i PDF, zbiór narzędzi do typowych konwersji i zaznaczania, i tak dalej ...
Sortuj komentarze według
Komentarze (7)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
buenas noches amigo me ha servido mucho su información sinembargo me rise una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
Ten komentarz został zminimalizowany przez moderatora na stronie
Którą linię kodu chcesz zmienić i jak zapisać ścieżkę do pliku przed obrazem, czyli podpis (nazwa pliku) jest powyżej, a nie poniżej.
Ten komentarz został zminimalizowany przez moderatora na stronie
Z zaznaczeniem
.Tekst = xPlik
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.Wstaw po vbCrLf
.Przesuń w dół wdLine

Kończyć z
Ten komentarz został zminimalizowany przez moderatora na stronie
Muszę dodać to .MoveDown wdLine po .Text=xFile
Ten komentarz został zminimalizowany przez moderatora na stronie
Wow, to jest świetne! Potrzebowałem tylko nazwy pliku, więc usunąłem "xPath & "\" &" z linii .Text i zadziałało idealnie. Dzięki za to!
Ten komentarz został zminimalizowany przez moderatora na stronie
Problem pojawia się, gdy nazwa pliku do dodania przekracza 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
zdjęcie5...
Ten komentarz został zminimalizowany przez moderatora na stronie
zmień nazwę pliku na 01, 02, 03 i będzie działać
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL