2 სწრაფი გზა, რომ შეცვალოთ რამდენიმე ხაზგასმული ფერი თქვენს Word დოკუმენტში

გააზიარე ახლა:

ამ სტატიაში ჩვენ ყურადღებას გავამახვილებთ 2 სწრაფი გზის ახსნაზე, რათა შეცვალოთ რამდენიმე ხაზგასმული ფერი თქვენს Word დოკუმენტში.

ნაგულისხმევად, Word-ში ხაზგასმული ფერი დაყენებულია როგორც „ავტომატური“. მაგრამ ზოგჯერ შეიძლება ერთფეროვანი იყოს. ასე რომ, თქვენი დოკუმენტის ფერების დივერსიფიკაციისთვის და მნიშვნელოვანი შიგთავსის გამოსაყოფად, კარგი არჩევანია ხაზგასმის ფერის შეცვლა.

ხაზგასმული ფერის შეცვლა ადვილია მის შექმნამდე. აქედან გამომდინარე, შემდეგ შიგთავსში გვინდა ყურადღება გავამახვილოთ არსებული ხაზგასმების ფერის შეცვლაზე.

მეთოდი 1: გამოიყენეთ "Advanced Find" ფუნქცია

პირველ რიგში, მიმდინარე დოკუმენტში უნდა იპოვოთ ყველა ხაზგასმული ეგზემპლარი. ამისათვის შეგიძლიათ იხილოთ ჩვენი წინა სტატია: 2 სწრაფი გზა ხაზგასმული ტექსტების მოსაძებნად თქვენს Word დოკუმენტში

შერჩევისას ყველა ხაზგასმის პოვნისა და არჩევის შემდეგ, თქვენ გადადგით შემდეგი ნაბიჯები:

  1. თქვენ უბრალოდ დააწკაპუნეთ თავდაყირა სამკუთხედის ღილაკზე ხაზგასმული ხატის უკან „მთავარი“ ჩანართში.
  2. შემდეგ აირჩიეთ ფერი, რომელიც მოგწონთ გაფართოებულ მენიუში "Underline Color".დააწკაპუნეთ "მთავარი"->უკადა ღილაკი->აირჩიეთ ფერი გაფართოებულ მენიუში "ხაზგასმული ფერი"

აქ არის ჩვენი ვიდეო დემონსტრაცია:

მეთოდი 2: გაუშვით Word მაკრო

Word მაკრო ისეთი საოცარი ინსტრუმენტია. ჩვენ შეგვიძლია არა მხოლოდ გამოვიყენოთ ყველა ხაზის მოსაძებნად, არამედ მათი ფერის შეცვლაც. და ორივე პროცედურა შეიძლება დასრულდეს მხოლოდ ერთ მაკროში.

  1. დასაწყისისთვის, გააქტიურეთ ჩანართი "დეველოპერი" და დააწკაპუნეთ მასზე.
  2. შემდეგ დააჭირეთ "Visual Basic" ჯგუფში "კოდი".დააჭირეთ "დეველოპერს" -> დააწკაპუნეთ "Visual Basic"
  3. შემდეგ დააჭირეთ "ნორმალური".
  4. შემდეგ დააჭირეთ "ჩასმა" ჩანართს.
  5. და აირჩიეთ "მოდული" მენიუში.დააჭირეთ "ნორმალური"->დააწკაპუნეთ "ჩასმა"->დააწკაპუნეთ "მოდულზე"
  6. ორჯერ დააწკაპუნეთ ახალ მოდულზე რედაქტირების სივრცის გასახსნელად.
  7. ახლა ჩასვით ქვემოთ მოცემული კოდები იქ:
Sub ChangeUnderlineColor()
  Dim objDoc As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objRange = objDoc.Range
 
  objRange.Find.ClearFormatting
  With objRange.Find
    .Font.Underline = wdUnderlineSingle
    .text = ""
    .Replacement.text = ""
    .Replacement.Font.UnderlineColor = wdColorBlue
    .Execute Format:=True, Replace:=wdReplaceAll
  End With
End Sub
  1. დაბოლოს, მაგრამ არანაკლებ მნიშვნელოვანია, დააჭირეთ ღილაკს "გაშვება".კოდების ჩასმა ->დააწკაპუნეთ "Run"

შენიშვნები:

  1. პირველ რიგში, კოდის ხაზი „.Font.Underline = wdUnderlineSingle“ ნიშნავს, რომ ეს მაკრო პოულობს მხოლოდ ცალკეულ ხაზგასმას. თქვენ შეგიძლიათ შეცვალოთ „wdUnderlineSingle“ „wdUnderlineDouble“, „wdUnderlineThick“ და ა.შ. მეტი ხაზგასმული მუდმივებისთვის, შეგიძლიათ ეწვიოთ ამ ბმულს: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
  2. მეორე, კოდის ხაზი „.Replacement.Font.UnderlineColor = wdColorBlue“ ნიშნავს, რომ მაკრო ხაზგასმის ფერს ლურჯად შეცვლის. და მეტი ფერის მუდმივობისთვის შეგიძლიათ ეწვიოთ: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

ამოიღეთ კომპრომეტირებული Word მონაცემები

Word-ში მონაცემების დაკარგვა დღესდღეობით ძალიან შესაძლებელია. მაგალითად, Word-ში ყველაზე გავრცელებული შეცდომა ეკრანის გაყინვაა. რა თქმა უნდა, შეგიძლიათ პროგრამის გადატვირთვა. ზოგჯერ, დოკუმენტის ავტომატურად შენახული ვერსია იქნება, რომელზეც მუშაობთ. თუმცა, ჩვენ არ შეგვიძლია გამოვრიცხოთ ან დავუშვათ დოკუმენტის სრულად ან ნაწილობრივ დაკარგვის შესაძლებლობა. ამრიგად, უნდა ვიფიქროთ მონაცემების აღდგენის გზებზე. და ამასთან დაკავშირებით, პროფესიონალი... სიტყვების შეკეთება ინსტრუმენტი მისი წარმატების გასაღებია.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის სარემონტო ხელსაწყოებში დაზიანებული xls მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად

გააზიარე ახლა:

კომენტარები დახურულია.