როგორ ამოიღოთ ჩასმული ტექსტების ფორმატირება მაკროთი და VBA-ით თქვენს Word-ში

სიტყვის გადაწყვეტილებები სექტემბერი 28, 2025
გააზიარე ახლა:

ეს სტატია გაჩვენებთ, თუ როგორ ამოიღოთ ჩასმული ტექსტის ფორმატირება მაკროთი და VBA-ით თქვენს სიტყვაში.

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

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

Word-ში მაკროს ჩაწერის ნაბიჯები

  1. პირველ რიგში, გახსენით თქვენი Word.
  2. და დარწმუნდით, რომ ჯერ დაამატეთ "დეველოპერი" ჩანართი ლენტზე. დეტალური ინსტრუქციებისთვის „დეველოპერი“ დასამატებლად, გთხოვთ, წაიკითხოთ სტატია: როგორ ჩასვათ ფონის მუსიკა თქვენს Word დოკუმენტში
  3. მას შემდეგ, რაც "დეველოპერი" ჩანართი ხელმისაწვდომია, დააწკაპუნეთ მასზე.
  4. შემდეგ დააჭირეთ ღილაკს "ჩაწერა მაკრო" ჯგუფში "კოდი".დააწკაპუნეთ "დეველოპერი" -> დააწკაპუნეთ "ჩაწერა მაკრო"
  5. ახლა გამოჩნდება დიალოგური ფანჯარა "ჩაწერა მაკრო". პირველ რიგში, აქ ჩაწერეთ მაკრო სახელი, როგორიცაა "copytext".
  6. შემდეგ ნაწილზე „მინიშნება მაკრო“ აირჩიეთ „ღილაკი“ ან „კლავიატურა“. აქ ჩვენ გადავალთ "ღილაკზე".
  7. შემდეგი, დააჭირეთ "OK".დაასახელეთ მაკრო -> აირჩიეთ ან "ღილაკი" ან "კლავიატურა" "მივანიჭეთ მაკრო" -> დააწკაპუნეთ "OK"
  8. და ახლა ნახავთ "Word Options" ფანჯარას. დააწკაპუნეთ "ლენტის მორგება".
  9. შემდეგ იპოვნეთ ადგილი მაკროსთვის მარჯვენა მხარეს. აქ ჩვენ დავაწკაპუნებთ "ახალ ჯგუფს", რათა დავაყენოთ ახალი მაკროსთვის.
  10. ნუ გააგრძელებთ „მაკროს“ არჩევას „აირჩიე ბრძანებები“ ჩამოსაშლელი სიიდან.
  11. შემდეგ დააწკაპუნეთ მაკროზე, რომელიც ახლახან შექმენით.
  12. შემდეგ დააჭირეთ ღილაკს "დამატება" ფანჯრის შუაში.
  13. ახლა მაკრო განთავსდება ახალ ჯგუფში. უბრალოდ დააწკაპუნეთ მაკროზე მარჯვენა ღილაკით.
  14. და აირჩიეთ "გადარქმევა" ვარიანტი.დააწკაპუნეთ "Customize Ribbon" -> აირჩიეთ ადგილი მაკროსთვის -> აირჩიეთ "Macros" in "Choose commands from" -> დააწკაპუნეთ მაკროზე -> დააწკაპუნეთ "დამატება" -> დააწკაპუნეთ მარჯვენა ღილაკით მაკროზე -> აირჩიეთ "გადარქმევა"
  15. დიალოგურ ფანჯარაში "გადარქმევა" აირჩიეთ სიმბოლო თქვენი მაკროსთვის.
  16. შემდეგ ჩაწერეთ საჩვენებელი სახელი.
  17. დააჭირეთ "OK".აირჩიეთ სიმბოლო -> ჩაწერეთ საჩვენებელი სახელი -> დააჭირეთ "OK"
  18. ახლა დაბრუნდით „Word Options“ ფანჯარაში და დააჭირეთ ღილაკს „OK“. მაკრო ამ მომენტიდან ჩაწერას დაიწყებს.დააწკაპუნეთ "OK" "Word Options"-შიWord-ის მაკროს ჩაწერის დაწყება

ჩასვით ტექსტი, როგორც არაფორმატირებული ტექსტი

  1. პირველ რიგში, დააკოპირეთ გრძელი ტექსტის ნაწილი.
  2. შემდეგ დააჭირეთ "მთავარი" ჩანართს.
  3. დააჭირეთ "ჩასმა".
  4. შემდეგი, აირჩიეთ "სპეციალური ჩასმა".დააწკაპუნეთ "მთავარი" -> დააჭირეთ "ჩასმა" -> დააწკაპუნეთ "განსაკუთრებული ჩასმა"
  5. და აირჩიეთ "Unformatted Text" დიალოგურ ფანჯარაში "Paste Special".
  6. შემდეგ დააჭირეთ "OK". თქვენ შეგიძლიათ მიიღოთ ტექსტი ფორმატირებით, როგორიცაა ქვემოთ:აირჩიეთ "არაფორმატირებული ტექსტი" -> დააჭირეთ "OK"ტექსტი ჩასმულია როგორც არაფორმატირებული ტექსტი

ამოიღეთ განმეორებადი სიტყვები

  1. შემდეგ დაიწყეთ მარცხნივ ფორმატირების წაშლა. დააჭირეთ „Ctrl+H“-ს „ძებნა და ჩანაცვლება“ დიალოგური ფანჯრის გასახსნელად.
  2. და აკრიფეთ "ისარი" ტექსტურ ველში "იპოვე რა".
  3. შემდეგ დააჭირეთ "ყველას ჩანაცვლება".ჩაწერეთ განმეორებადი სიტყვა "იპოვეთ რა" ტექსტურ ველში -> დააწკაპუნეთ "ყველას ჩანაცვლება"

ამოიღეთ ჩანართის სიმბოლოები

  1. უპირველეს ყოვლისა, დააჭირეთ ღილაკს "Ctrl+ H", რათა გახსნათ დიალოგური ფანჯარა "ძებნა და ჩანაცვლება".
  2. შემდეგ ჩაწერეთ „^t“ ტექსტურ ველში „იპოვე რა“.
  3. შემდეგ დააწკაპუნეთ "ყველას ჩანაცვლება" ჩანართის ყველა სიმბოლოს წასაშლელად.ჩაწერეთ "^t" ტექსტურ ველში "იპოვეთ რა" -> დააწკაპუნეთ "ყველას ჩანაცვლება"

წაშალეთ დამატებითი ბლანკები

  1. კვლავ დააჭირეთ "Ctrl+ H" დიალოგური ფანჯრის "ძებნა და ჩანაცვლება" გასახსნელად.
  2. „იპოვე რა“ ტექსტურ ველში, ორჯერ დააჭირეთ ცარიელ ღილაკს.
  3. შემდეგ დააჭირეთ ღილაკს "ყველას ჩანაცვლება".ორჯერ დააჭირეთ ცარიელ ღილაკს "იპოვე რა" ტექსტურ ველში -> დააწკაპუნეთ "ყველას ჩანაცვლება"

წაშალეთ ცარიელი ხაზები და დამატებითი ბლანკები ერთად

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

  1. ანალოგიურად, დააჭირეთ "Ctrl+ H" დიალოგური ფანჯრის "ძებნა და ჩანაცვლება" გასახსნელად.
  2. შემდეგ ტექსტურ ველში „იპოვე რა“, ჯერ დააჭირეთ ცარიელ ღილაკს.
  3. შემდეგ ჩაწერეთ "^p".
  4. ტექსტურ ველში „ჩანაცვლება“ ჩაწერეთ „^p“.
  5. დააწკაპუნეთ "ყველას ჩანაცვლება".ჯერ დააჭირეთ ცარიელ კლავიშს -> აკრიფეთ "^p" "იპოვეთ რა" ტექსტურ ველში -> ჩაწერეთ "^p" "ჩანაცვლება" ტექსტურ ველში -> დააწკაპუნეთ "ყველას ჩანაცვლება"
  6. კვლავ გახსენით დიალოგური ფანჯარა "ძებნა და ჩანაცვლება".
  7. და "იპოვე რა" ტექსტურ ველში, ჯერ აკრიფეთ "^p".
  8. შემდეგ დააჭირეთ ცარიელ ღილაკს ერთხელ.
  9. შემდეგ ჩაწერეთ „^p“ ტექსტურ ველში „ჩანაცვლება“-ით.
  10. ბოლოს დააჭირეთ ღილაკს "ყველას ჩანაცვლება".ჯერ აკრიფეთ "^p" -> ერთხელ დააჭირეთ ცარიელ ღილაკს "იპოვეთ რა" ტექსტურ ველში -> ჩაწერეთ "^p" "ჩანაცვლება" ტექსტურ ველში -> დააწკაპუნეთ "ყველას ჩანაცვლება"

საჭიროების შემთხვევაში ამოიღეთ მარცხენა ცარიელი ხაზები

მიუხედავად ამისა, თუ დარჩა ცარიელი ხაზები, სცადეთ შემდეგი ნაბიჯები:

  1. დააჭირეთ "Ctrl+ H" დიალოგური ფანჯრის "ძებნა და ჩანაცვლება" გასახსნელად.
  2. შემდეგი აკრიფეთ „^p^p“ ტექსტურ ველში „იპოვე რა“.
  3. და ჩაწერეთ „^p“ ტექსტურ ველში „ჩანაცვლება“-ით.
  4. ბოლოს დააწკაპუნეთ ღილაკზე „ყველას ჩანაცვლება“.ჩაწერეთ „^p^p“ „იპოვეთ რა“ ტექსტურ ყუთში -> ჩაწერეთ „^p“ „ჩანაცვლება“ ტექსტურ ყუთში -> დააწკაპუნეთ „ყველას ჩანაცვლება“

ამ დროისთვის შეგიძლიათ მიიღოთ შემდეგი შედეგი:"ჩანაცვლება" ფუნქციის გამოყენების ეფექტი ფორმატირების წასაშლელად

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

დემონსტრაციის სანახავად შეგიძლიათ ნახოთ შემდეგი ვიდეო:

მაკროს ჩაწერის შეწყვეტა

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

როგორ გავუშვათ მაკრო

  1. დააკოპირეთ ტექსტი ფორმატირებით ონლაინ, ვთქვათ.
  2. გახსენით Word შემდეგი.
  3. შემდეგ დააჭირეთ "დეველოპერი" ჩანართს.
  4. დააწკაპუნეთ მაკრო ხატულაზე და დაინახავთ ტექსტს დოკუმენტზე დამატებითი ფორმატირების გარეშე.დააწკაპუნეთ "დეველოპერი" -> დააწკაპუნეთ მაკრო ახლახან ჩაწერილიმაკრო გამოყენების ეფექტი ფორმატირების მოსაშორებლად

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

VBA კოდები ექსპერტისთვის

ჯერ არის გზა, რომ ნახოთ VBA კოდები.

  1. პირველ რიგში, დააჭირეთ "დეველოპერი" ჩანართს.
  2. შემდეგ დააჭირეთ "Visual Basic" ჯგუფში "კოდი".დააჭირეთ "დეველოპერს" -> დააჭირეთ "Visual Basic"
  3. „Microsoft Visual Basic აპლიკაციებისთვის“ რედაქტორში, ჯერ მარცხენა მხარეს დააწკაპუნეთ „ნორმალური“.
  4. შემდეგ დააჭირეთ "მოდულებს".
  5. შემდეგ ორჯერ დააწკაპუნეთ "NewMacros" და თქვენ შეძლებთ იხილოთ კოდი მარჯვენა მხარეს.დააწკაპუნეთ "ნორმალური" -> დააწკაპუნეთ "მოდულები" -> ორჯერ დააჭირეთ "NewMacros"

ამ შემთხვევაში, კოდები შემდეგია:

 

ქვეკოპიტექსტი()

'

კოპირტექსტის მაკრო

'

'

    Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _

        wdInLine, DisplayAsIcon:=False

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    შერჩევით.იპოვე

        .ტექსტი = "ისარი"

        .ჩანაცვლება.ტექსტი = ""

        .წინ = მართალია

        .გადახვევა = wdFindგაგრძელება

        .ფორმატი = მცდარი

        .MatchCase = False

        .MatchWholeWord = მცდარი

        .MatchWildcards = მცდარი

        .MatchSoundsLike = მცდარი

        .MatchAllWordForms = False

    დასრულება

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    შერჩევით.იპოვე

        .ტექსტი = "^t"

        .ჩანაცვლება.ტექსტი = ""

        .წინ = მართალია

        .გადახვევა = wdFindგაგრძელება

        .ფორმატი = მცდარი

        .MatchCase = False

        .MatchWholeWord = მცდარი

        .MatchWildcards = მცდარი

        .MatchSoundsLike = მცდარი

        .MatchAllWordForms = False

    დასრულება

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    შერჩევით.იპოვე

        .ტექსტი = ””

        .ჩანაცვლება.ტექსტი = ""

        .წინ = მართალია

        .გადახვევა = wdFindგაგრძელება

        .ფორმატი = მცდარი

        .MatchCase = False

        .MatchWholeWord = მცდარი

        .MatchWildcards = მცდარი

        .MatchSoundsLike = მცდარი

        .MatchAllWordForms = False

    დასრულება

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    შერჩევით.იპოვე

        .ტექსტი = ”^p”

        .Replacement.Text = "^p"

        .წინ = მართალია

        .გადახვევა = wdFindგაგრძელება

        .ფორმატი = მცდარი

        .MatchCase = False

        .MatchWholeWord = მცდარი

        .MatchWildcards = მცდარი

        .MatchSoundsLike = მცდარი

        .MatchAllWordForms = False

    დასრულება

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    შერჩევით.იპოვე

        .ტექსტი = „^p“

        .Replacement.Text = "^p"

        .წინ = მართალია

        .გადახვევა = wdFindგაგრძელება

        .ფორმატი = მცდარი

        .MatchCase = False

        .MatchWholeWord = მცდარი

        .MatchWildcards = მცდარი

        .MatchSoundsLike = მცდარი

        .MatchAllWordForms = False

    დასრულება

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    შერჩევით.იპოვე

        .ტექსტი = „^p^p“

        .Replacement.Text = "^p"

        .წინ = მართალია

        .გადახვევა = wdFindგაგრძელება

        .ფორმატი = მცდარი

        .MatchCase = False

        .MatchWholeWord = მცდარი

        .MatchWildcards = მცდარი

        .MatchSoundsLike = მცდარი

        .MatchAllWordForms = False

    დასრულება

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    შერჩევით.იპოვე

        .ტექსტი = „^p^p“

        .Replacement.Text = "^p"

        .წინ = მართალია

        .გადახვევა = wdFindგაგრძელება

        .ფორმატი = მცდარი

        .MatchCase = False

        .MatchWholeWord = მცდარი

        .MatchWildcards = მცდარი

        .MatchSoundsLike = მცდარი

        .MatchAllWordForms = False

    დასრულება

    Selection.Find.Execute Replace:=wdReplaceAll

ბოლო Sub

 

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

დაიცავით თქვენი ფაილები

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

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

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

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

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