დღევანდელ პოსტში სიამოვნებით გაგიზიარებთ 2 სწრაფ მეთოდს, თუ როგორ ამოიღოთ ერთი და იგივე ფერის ტექსტები თქვენი Word დოკუმენტიდან.
დროდადრო, Word დოკუმენტის ფორმატირებისას, ჩვენ, სავარაუდოდ, გამოვიყენებთ შრიფტის ფერს ზოგიერთ ტექსტზე, რათა მათ მეტი ყურადღება მივაქციოთ. ჩვეულებრივ, ეს ფერადი სიტყვები მნიშვნელოვანი შინაარსია, რომელიც კვლავ იმსახურებს თქვენს განხილვას. მაშინ რას იტყვით მათი ექსპორტზე და შეგროვებაზე სადმე სხვაგან, რომ მოგვიანებით შეამოწმოთ?
ამ მოთხოვნაზე ფოკუსირებით, ჩვენ შემოგთავაზებთ 2 სწრაფ მალსახმობას უსასრულო ჭრისა და ჩასმის ნაცვლად.
მეთოდი 1: გამოიყენეთ "ძებნა" ფუნქცია
- პირველ რიგში, დააწკაპუნეთ ჩანართზე "მთავარი".
- შემდეგ გადადით ჯგუფში „რედაქტირება“ და დააწკაპუნეთ თავდაყირა სამკუთხედის ღილაკზე „ძიების“ გვერდით.
- შემდეგ აირჩიეთ "Advanced Find" სიაში.
- დიალოგურ ფანჯარაში „იპოვე და ჩაანაცვლე“, ჩასვით კურსორი „იპოვე რა“ ტექსტურ ველში და წაშალეთ იქ არსებული ნებისმიერი შინაარსი.
- შემდეგ დააჭირეთ ღილაკს "მეტი".
- ახლა დააჭირეთ ღილაკს "ფორმატი" და აირჩიეთ "შრიფტი".
- "შრიფტის პოვნა" დიალოგურ ფანჯარაში დააწკაპუნეთ ჩამოსაშლელ ღილაკზე "შრიფტის ფერის" უკან, რათა აირჩიოთ ზუსტი ფერი, რომელსაც ანიჭებთ თქვენს ტექსტებს.
- გახსოვდეთ, რომ დააწკაპუნეთ "OK".
- ახლა დაბრუნდით "იპოვეთ და ჩაანაცვლეთ" ყუთში და დააჭირეთ "მოძებნა".
- ბოლოს აირჩიეთ "მთავარი დოკუმენტი".
შემდეგ სამიზნე ფერის ყველა ტექსტი შეირჩევა. ახლა შეგიძლიათ დააკოპიროთ და ერთი ცდით სხვა ადგილას ჩასვათ „Ctrl+C“-ის კომბინაციით.
მეთოდი 2: გაუშვით Word მაკრო
- პირველ რიგში, დააჭირეთ ღილაკს "დეველოპერები".
- შემდეგ დააწკაპუნეთ "Visual Basic"-ზე VBA რედაქტორის გასააქტიურებლად.
- შემდეგ დააჭირეთ ღილაკს "ნორმალური" და შემდეგ "ჩასმა".
- მენიუში აირჩიეთ "მოდული".
- შემდეგ ორჯერ დააწკაპუნეთ მოდულზე კოდირების სივრცის გასააქტიურებლად.
- შემდეგი ჩასვით კოდები:
Sub ExtractColoredTexts()
Dim objDoc As Document, objDocAdd As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objDocAdd = Documents.Add
objDoc.Activate
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Font.Color = wdColorRed
.Text = ""
.Execute
End With
Do While .Find.Found
Set objRange = Selection.Range
objDocAdd.Range.InsertAfter objRange & vbCr
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
End Sub
- ახლა დააჭირეთ ღილაკს "გაშვება".
უნდა გაიხსნას ახალი დოკუმენტი ყველა ამოღებული ტექსტით.
შენიშვნა: კოდის სტრიქონში „.Font.Color = wdColorRed“ თქვენ უნდა შეცვალოთ „wdColorRed“ თქვენი ტექსტების რეალური ფერით. დეტალური მითითებისთვის შეგიძლიათ ეწვიოთ ამ გვერდს: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
მისამართი Word პრობლემა
ჩვენი უმეტესობა უკვე Word-ის ხშირი მომხმარებელია. თუმცა, ამის მიუხედავად, შეიძლება მაინც შევხვდეთ ზოგიერთ სერიოზულ პრობლემას, მაგალითად, Word-ის გაფუჭებას. ეს, რა თქმა უნდა, საკმაოდ სერიოზული პრობლემაა, რადგან თქვენი კრიტიკული ფაილები შეიძლება საფრთხეში იყოს. ასეთ ვითარებაში, რეკომენდებულია მიიღოთ... Word მონაცემთა შეცდომის გამოსწორების ინსტრუმენტი რომელიც აღადგენს Word-ის მონაცემებს მხოლოდ რამდენიმე წუთში.
ავტორი შესავალი:
ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის xls მონაცემთა პრობლემის გამოსწორების ინსტრუმენტი მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად