Ինչպե՞ս հաշվել Word փաստաթղթում պատկերների քանակը:
Եթե ձեր Word փաստաթղթում կան բազմաթիվ գծապատկերներ, որոնք պարունակում են և՛ գծային պատկերներ, և՛ լողացող ձևեր, ապա այժմ ցանկանում եք հաշվել այդ գրաֆիկայի քանակը ամբողջ փաստաթղթում, ինչպե՞ս կարող եք արագ և ճիշտ ստանալ պատկերների քանակը:
Հաշվել ներմուծված պատկերների քանակը «Գտիր և փոխարինիր» հատկությամբ
Հաշվեք VBA կոդով թե՛ գծային պատկերների, թե՛ լողացող ձևերի քանակը
Հաշվել ներմուծված պատկերների քանակը «Գտիր և փոխարինիր» հատկությամբ
The Գտնել եւ փոխարինել Word- ի առանձնահատկությունը կօգնի ձեզ արագ և հեշտությամբ հաշվել ներկված նկարների քանակը, արեք հետևյալը.
1: Սեղմեք Գլխավոր > Գտնել > Ընդլայնված որոնում, տես նկարի նկարը.
2, Մեջ Գտնել եւ փոխարինել երկխոսության տուփ, տակ Գտնել էջանիշը, մուտքագրեք ^g մեջ Գտեք ինչ տեքստային տուփ, ապա ընտրեք Հիմնական փաստաթուղթ - ից Գտնել մեջ բացվող ցուցակ, տես նկարի նկարը.
3, Եվ ապա կարող եք տեսնել, որ այս Word փաստաթղթում տեղադրված պատկերների քանակը ցուցադրվել է, ինչպես ցույց է տրված հետևյալ նկարը.
Հաշվեք VBA կոդով թե՛ գծային պատկերների, թե՛ լողացող ձևերի քանակը
Վերոնշյալ մեթոդը կարող է հաշվել միայն ներքին պատկերների քանակը, եթե փաստաթղթում կան որոշ լողացող ձևեր, դրանք չեն հաշվարկվի: Հետևյալ VBA կոդը կարող է օգնել ձեզ հաշվել և՛ պատկերները, և՛ լողացող ձևերը: Խնդրում ենք արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2, Դրանից հետո կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ, տես նկարի նկարը.
VBA կոդ. Հաշվի՛ր ինչպես գծային պատկերների, այնպես էլ լողացող ձևերի քանակը.
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, Կոդի տեղադրումից հետո սեղմեք F5 Այս կոդն աշխատեցնելու բանալին, և դուրս է գալիս հուշման տուփ, որը կպատմի ձեզ, թե քանի ներդիր պատկերներ և լողացող ձևեր են այս Word փաստաթղթում, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրեք խումբը...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր / սեղաններ / ձեւավորում / վերնագրի պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր / կրկնվող տեքստի ավտոմատ տեղադրում / անխափան անցում փաստաթղթի պատուհանների միջև / 11 Փոխակերպման գործիքներ...