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:
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:
Wstaw wiele zdjęć z nazwą pliku za pomocą Kutools for Word
Jeśli 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:
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.
3. Po wstawieniu obrazów zobaczysz ścieżkę do pliku każdego obrazu i wstawioną nazwę, patrz zrzut ekranu:
Kliknij, aby pobrać Kutools for Word i bezpłatną wersję próbną już teraz!
Najlepsze narzędzia biurowe
Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!
🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość / Przepisz tekst / Podsumowanie dokumentów / Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word
📘 Znajomość dokumentów: Podziel strony / Scal dokumenty / Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...) / Wsadowa konwersja do formatu PDF / Eksportuj strony jako obrazy / Drukuj wiele plików jednocześnie...
✏ Edycja treści: Znajdź i zamień partii w wielu plikach / Zmień rozmiar wszystkich zdjęć / Transponuj wiersze i kolumny tabeli / Konwertuj tabelę na tekst...
🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie / Podziały sekcji / Wszystkie nagłówki / Pola tekstowe / Hiperłącza / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...
➕ Kreatywne wstawki: Wstawić Tysiące separatorów / Pola wyboru / Przyciski Radio / Kod QR / kod kreskowy / Tabela linii ukośnych / Podpis równania / Tytuł Zdjęcia / Podpis tabeli / Wiele zdjęć / Odkryj więcej w Wstaw grupę...
🔍 Precyzyjne wybory: Punktowy konkretne strony / stoły / kształty / nagłówki akapitów / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...
⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji / automatyczne wstawianie powtarzającego się tekstu / płynnie przełączaj się pomiędzy oknami dokumentów / 11 Narzędzia konwersji...
