U ovom članku želimo s vama podijeliti 4 praktična načina za brzo i ispravno dobivanje ukupnog broja slika u vašem Word dokumentu.
S vremena na vrijeme dokument će zahtijevati više slika kako bi bio profesionalniji. Međutim, ako ste tip poput mene koji više voli umetati slike odmah nakon završetka uređivanja, tada ćete se vjerojatno brinuti jeste li slučajno ostavili jednu ili dvije. Posljedično, morat ćete se mukotrpno pomicati gore-dolje kako biste provjerili ukupan broj slika u dokumentu. S obzirom na ovu nespretnost, nudimo vam 4 stvarno korisne metode za uštedu vašeg vremena.
Metoda 1: Iskoristite značajku "Traži".
- Prvo i najvažnije, kliknite karticu "Početna".
- Zatim kliknite gumb iza ikone "Traži".
- I odaberite "Napredno traženje" na izborniku.

- U dijaloškom okviru "Pronađi i zamijeni" osigurajte da nema drugog teksta u tekstualnom okviru "Pronađi što" i tamo unesite "^g".
- Zatim kliknite "Pronađi u" i odaberite "Glavni dokument".
Sada se u dijaloškom okviru nalazi rezultat koji prikazuje broj umetnutih oblika u ovom dokumentu. To znači da značajka "Traži" može brojati samo slike postavljene u stilu prelamanja "U skladu s tekstom".
Metoda 2: Koristite značajku "Idi na".
- Najprije pritisnite “Ctrl+ Home” za odlazak na početak dokumenta i ponovite prva 2 koraka u metodi 1.
- Ovaj put umjesto toga odaberite "Idi na".
- Zatim odaberite "Grafika".
- Ne unesite ništa u tekstni okvir i kliknite "Dalje".
Svaki put kada kliknete "Dalje", Word će vas dovesti do mrežne grafike i morate sami brojati. Ipak, ovaj način uključuje samo umetnute oblike.
Evo video demonstracije:
Metoda 3: Pritisnite tipku "Tab".
- Za početak kliknite na prvu sliku u dokumentu.
- Zatim pritisnite “Tab” i bit će odabrana sljedeća slika. Ne zaboravite brojati sami.
Srećom, metoda 3 uključuje i umetnute oblike i plutajuće oblike poput tekstualnih okvira.
Metoda 4: Pokrenite Word Macro
- Najprije kliknite karticu "Razvojni programer".
- Zatim kliknite "Visual Basic" da otvorite VBA uređivač.
- Zatim kliknite "Umetni" i odaberite "Modul" da biste umetnuli novi pod "Normalni" projekt.
- Dvaput kliknite na novi modul da biste otvorili prostor za kodiranje.
- I tamo zalijepite sljedeće kodove:
Sub CountImages()
Dim objDoc As Document
Dim nFlowingShapes As Long, nInlineShapes As Long, nTextBox As Long, nTotalShapes As Long
Dim objShape As Shape
Set objDoc = ActiveDocument
nTextBox = 0
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
nTextBox = nTextBox + 1
End If
Next objShape
nFlowingShapes = objDoc.Shapes.Count
nInlineShapes = objDoc.InlineShapes.Count
nTotalShapes = nFlowingShapes + nInlineShapes - nTextBox
MsgBox "There are " & nTotalShapes & " images in this document, " & "with " & nFlowingShapes & " flowing shapes, " & nTextBox & "text boxes, and " & nInlineShapes & " inline shapes."
End Sub
- Na kraju kliknite "Pokreni".
Pojavit će se okvir s porukom koji pokazuje rezultat.
Alat za popravak Worda
Riječ je podložna greškama i greškama. A nakon što prestane raditi, isključivanje može izazvati pustoš u našim Word datotekama, što će za nas biti veliki mentalni pad. Unatoč tome, još uvijek postoji lijek za vraćanje oštećenih datoteka, a to je nabavka sofisticiranog alata za popraviti Word.
Uvod za autora:
Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls popravak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com







