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

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!

---

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

Przeczytaj więcej Pobierz teraz Zakup