Jak policzyć liczbę obrazów w dokumencie Word?
Jeśli w dokumencie programu Word znajduje się wiele grafik, które zawierają zarówno obrazy w wierszu, jak i kształty pływające, teraz chcesz policzyć liczbę tych grafik w całym dokumencie, w jaki sposób możesz szybko i poprawnie uzyskać liczbę obrazów?
Policz liczbę wbudowanych obrazów za pomocą funkcji Znajdź i zamień
Policz liczbę zarówno wbudowanych obrazów, jak i pływających kształtów z kodem VBA
Policz liczbę wbudowanych obrazów za pomocą funkcji Znajdź i zamień
Połączenia Znajdowanie i zamienianie Funkcja w programie Word może pomóc tylko szybko i łatwo policzyć liczbę obrazów w wierszu, wykonaj następujące czynności:
1. Kliknij Strona główna > Znajdź > Zaawansowane wyszukiwaniezobacz zrzut ekranu:
2, w Znajdowanie i zamienianie okno dialogowe w obszarze Znajdź wpisz ^g do Znajdź co pole tekstowe, a następnie wybierz Główny dokument z Znaleźć w rozwijana lista, zobacz zrzut ekranu:
3. Następnie możesz zobaczyć liczbę obrazów w wierszu w tym dokumencie programu Word, jak pokazano na poniższym zrzucie ekranu:
Policz liczbę zarówno wbudowanych obrazów, jak i pływających kształtów z kodem VBA
Powyższa metoda może policzyć tylko liczbę obrazów w wierszu, jeśli w dokumencie znajdują się pływające kształty, nie zostaną one policzone. Poniższy kod VBA może pomóc policzyć zarówno obrazy w wierszu, jak i kształty pływające, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Następnie kliknij wstawka > Moduł, skopiuj i wklej poniższy kod do otwartego pustego modułu, zobacz zrzut ekranu:
Kod VBA: Policz liczbę zarówno wbudowanych obrazów, jak i pływających kształtów:
Sub CountImagesInDoc()
Dim xInlines As Long
Dim xFloaters As Long
Dim sh As Shape
Dim tbxs As Long
Dim msg As String
With ActiveDocument
For Each sh In .Shapes
If sh.Type = msoTextBox Then tbxs = tbxs + 1
Next
xInlines = .InlineShapes.Count
xFloaters = .Shapes.Count - tbxs
End With
xPrompt = "Inline images:" & vbTab & xInlines & vbCr
xPrompt = xPrompt & "Floating shapes:" & vbTab & xFloaters & vbCr
xPrompt = xPrompt & vbTab & "Total:" & vbTab & (xInlines + xFloaters) & vbCr
xPrompt = xPrompt & "Counts do not include headers and footers, etc."
MsgBox xPrompt, vbInformation, "Kutools for Word"
End Sub
3. Po wklejeniu kodu naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okienko zachęty, aby powiedzieć, ile obrazów w wierszu i kształtów pływających w tym dokumencie programu Word, zobacz zrzut ekranu:
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...