Word sənədinizdə mətnləri üst və ya alt yazıya toplu şəkildə dəyişdirməyin 2 yolu

Bugünkü məqalədə biz Word sənədinizdə mətnləri toplu şəkildə yuxarı və ya alt işarəyə dəyişməyin 2 yolunu göstərmək istərdik.

Bəzən, xüsusən də eyni mətnin birdən çox nümunəsi olduqda, Word sənədindəki müəyyən mətnləri üst və ya alt indekslərlə dəyişdirməliyik. Belə hallarda, ən çox ehtiyac duyduğumuz şey toplu dəyişdirmədir. Bu səbəbdən, tapşırığı yerinə yetirmək üçün sizə 2 sürətli üsul təklif edirik.

Metod 1: "Tap və dəyişdir" funksiyasından istifadə edin

Növbəti məzmunda nümunədən istifadə edəcəyik "DataNumen Word Repair v2.5” bizim nümayişimiz kimi. Məqsədimiz “v2.5”i alt yazı kimi əvəz etməkdir.

1. Əvvəlcə "Əsas səhifə" sekmesini vurun.
2. Sonra "Tap və dəyişdir" informasiya qutusunu açmaq üçün "Əvəz et" düyməsini basın.
3. Əvvəlcə “Nəyi tapın” mətn qutusuna “v2.5” daxil edin. Mətndən əvvəl boşluq qoymağı unutmayın.
4. Sonra “V2.5” mətnini “Əvəz et” mətn qutusuna daxil edin. Bu dəfə mətndən əvvəl boşluq yoxdur.
5. Sonra daha çox seçimi genişləndirmək üçün "Daha çox" düyməsini basın.
6. İndi "Format" düyməsini basın və "Şrift" seçin.
7. "Şrifti tap" informasiya qutusunda "Üst yazı" və ya "Alt yazı" qutusunu yoxlayın.
8. Sonra “OK” düyməsini basın.
9. Nəhayət, "Hamısını dəyişdirin" düyməsini basın.

Effektini burada yoxlaya bilərsiniz:

Metod 2: Word Makronunu işlətməklə toplu dəyişdirin

1. Başlamaq üçün VBA redaktorunu işə salmaq üçün “Alt+ F11” düyməsini basın.
2. Sonra "Normal" layihə və növbəti "Daxil et" sekmesini basın.
3. Açılan menyuda "Modul" seçin.
4. Sonra kodlaşdırma sahəsini açmaq üçün yeni modula iki dəfə klikləyin.
5. Aşağıdakı makronu oraya yapışdırın:

Sub ReplaceTheTextAsSubscript()
  Dim strSelectText As String
  Dim strReplaceText As String
 
  strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
  strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
 
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find.Replacement.Font
    .Superscript = False
    .Subscript = True
  End With
  With Selection.Find
    .Text = strSelectText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

6. "Çalış" düyməsini basın.
7. Əvvəlcə "Mətn seçin" qutusu var. Tapdığınız mətni daxil edin və "OK" düyməsini basın. Bu halda “v2.5” yazın.
8. Sonra "Mətni dəyişdirin" qutusu var. Orada əvəzedici mətni daxil edin və "OK" düyməsini basın. “v2.5” yazın.

Mətnləri yuxarı yazıya dəyişmək lazımdırsa, bu makrodan istifadə edə bilərsiniz:

Sub ReplaceTheTextAsSuperscript()
  Dim strSelectText As String
  Dim strReplaceText As String
 
  strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
  strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
 
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find.Replacement.Font
    .Superscript = True
    .Subscript = False
  End With
  With Selection.Find
    .Text = strSelectText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sənəd səhvlərini düzəldin

Söz səhvləri əksəriyyətimiz üçün yad deyil. Sözün yığılması a ilə nəticələnə bilər pozulmuş docx fayl. Bu problemi həll etmək üçün, pozulmuş sənədi bərpa etmək üçün ixtisaslı və peşəkar bir vasitəyə sahib olmalısınız.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xarab xlsx və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com