დღევანდელ სტატიაში გვინდა წარმოგიდგინოთ 2 მეთოდი ერთი ენის ჯამური სიტყვების დასათვლელად მრავალენოვან Word დოკუმენტში.
დროდადრო, ზოგიერთ თქვენგანს შეიძლება ჰქონდეს მოთხოვნა მრავალენოვანი Word დოკუმენტის რედაქტირება. შედეგად, იქნება დრო, როდესაც გსურთ სიტყვების დათვლა ერთი კონკრეტული ენისთვის, მაგრამ მხოლოდ იმ შემთხვევაში, როდესაც Word ვერ შეასრულებს ამ ამოცანას.
შემდეგ მიზანია მოგაწოდოთ 2 სასარგებლო გამოსავალი ასეთი პრობლემის გადასაჭრელად.
მეთოდი 1: გამოიყენეთ "Advanced Find" ოფცია
- უპირველეს ყოვლისა, დააწკაპუნეთ თავდაყირა სამკუთხედის ღილაკზე „ძიების“ უკან „რედაქტირების“ ჯგუფში „მთავარი“ ჩანართში.
- ახლა დიალოგურ ფანჯარაში "ძებნა და ჩანაცვლება" დააჭირეთ ღილაკს "მეტი".
- და შეამოწმეთ ყუთი "მხოლოდ მთელი სიტყვების პოვნა".
- შემდეგ დააჭირეთ ღილაკს "ფორმატი".
- შემდეგ აირჩიეთ "ენა".
- დიალოგურ ფანჯარაში „ენის მოძიება“ იპოვეთ და აირჩიეთ სამიზნე ენა და დააჭირეთ ღილაკს „კარგი“.
- ახლა დაუბრუნდით ველს "იპოვეთ და ჩაანაცვლეთ", დააწკაპუნეთ "ძიებაში" და აირჩიეთ "მთავარი დოკუმენტი".
- შემდეგ შეირჩევა ყველა ინგლისური სიტყვა და გადადით ეკრანის ქვედა მარცხენა კუთხეში სიტყვების რაოდენობის შესამოწმებლად. ჩვენ ვხედავთ, რომ რიცხვი არის 93.
მეთოდი 2: გაუშვით Word მაკრო
- დასაწყებად, დააჭირეთ ღილაკს "დეველოპერები".
- შემდეგ დააწკაპუნეთ "Visual Basic"-ზე VBA რედაქტორის გასააქტიურებლად. თუ ჯერ არ გქონიათ ჩართული „დეველოპერი“ ჩანართი, ამის ნაცვლად დააჭირეთ „Alt+ F11“.
- შემდეგ დააჭირეთ ღილაკს "ნორმალური" და შემდეგ დააჭირეთ "ჩასმა".
- აირჩიეთ "მოდული".
- და ორჯერ დააწკაპუნეთ ახალ მოდულზე კოდირების სივრცის გასახსნელად.
- შემდეგ ჩასვით იქ შემდეგი კოდები:
Sub CountTotalWordsOfOneLanguage()
Dim objRange As Range
Dim nWords As Long
' Initialization
Set objRange = ActiveDocument.Range
nWords = 0
' Find all English words and do word count.
With objRange.Find
.LanguageID = wdFrench
Do While .Execute
nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
Loop
End With
MsgBox nWords
End Sub
- ბოლოს დააჭირეთ ღილაკს "გაშვება".
უნდა გამოჩნდეს შეტყობინების ყუთი. რიცხვი ეხება ამ დოკუმენტში ფრანგული ტექსტების მთლიან სიტყვებს.
შენიშვნა:
კოდის ხაზში ".LanguageID = wdფრანგული”,”wdფრანგულიფრანგულ ენას ნიშნავს. კოდების უფრო სპეციფიკური გამოყენებისთვის, შეგიძლიათ შეცვალოთ ენის ID თქვენთვის სასურველი ენით. და მეტი ენის ID-სთვის შეგიძლიათ ეწვიოთ: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)
სწორად გაუმკლავდეს დაზიანებულ Word ფაილებს
დროდადრო, Word დაიხურება ან გაიყინება ყველა სახის შეცდომის ან შეცდომის გამო. ვთქვათ, თუ რეგულარულად ვერ შექმნით ფაილების სარეზერვო ასლს, დიდი შესაძლებლობაა დაკარგოთ ყველა ძვირფასი მონაცემი. და დარჩენილი 2 გამოსავალი არის Word-ის ჩაშენებული ფუნქციის გამოყენება ან პროგრამის მიღება სარემონტო დოკუმენტიიმის გათვალისწინებით, რომ პირველი უმეტეს შემთხვევაში კარგად არ მუშაობს, მიზანშეწონილია მესამე მხარის ინსტრუმენტის არჩევა.
ავტორი შესავალი:
ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Excel-ის შესწორება მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად