2 mënyra për të ndryshuar grupet e teksteve në mbishkrim ose nënshkrim në dokumentin tuaj Word

Në artikullin e sotëm, ne dëshirojmë t'ju tregojmë 2 mënyra për të ndryshuar tekstet në grup në mbishkrim ose nënshkrim në dokumentin tuaj Word.

Ndonjëherë, na duhet të ndryshojmë tekste të caktuara në dokumentin Word në mbishkrime ose nënshkrime, veçanërisht kur ka disa raste të të njëjtit tekst. Në rrethana të tilla, zëvendësimi në grup është ajo që na nevojitet më shumë. Për këtë arsye, ne ofrojmë 2 metoda të shpejta për të kryer detyrën.

Metoda 1: Përdorni funksionin "Gjeni dhe zëvendësoni".

Në përmbajtjet e ardhshme, ne do të përdorim mostrën "DataNumen Word Repair v2.5” si demonstrimi ynë. Qëllimi ynë është të zëvendësojmë "v2.5" si nënshkrim.

1. Para së gjithash, klikoni në skedën "Faqja Kryesore".
2. Pastaj klikoni "Zëvendësoni" për të hapur kutinë e dialogut "Gjeni dhe zëvendësoni".
3. Fillimisht futni “v2.5” në kutinë e tekstit “Gjeni çfarë”. Mos harroni të vendosni një hapësirë ​​përpara tekstit.
4. Më pas futni “v2.5” në kutinë e tekstit “Replace with”. Këtë herë nuk ka hapësirë ​​para tekstit.
5. Pastaj klikoni butonin "Më shumë" për të zgjeruar më shumë opsione.
6. Tani klikoni "Format" dhe zgjidhni "Font".
7. Në kutinë e dialogut "Gjeni fontin", kontrolloni kutinë "Superscript" ose "Subscript".
8. Pastaj kliko "OK".
9. Në fund klikoni në butonin "Zëvendësoni të gjitha".

Ju mund të kontrolloni efektin këtu:

Metoda 2: Zëvendësimi i grupit duke ekzekutuar makro Word

1. Për të filluar, shtypni "Alt+ F11" për të aktivizuar redaktorin VBA.
2. Pastaj klikoni projektin "Normal" dhe më pas skedën "Fut".
3. Zgjidhni "Modul" në menunë rënëse.
4. Pastaj klikoni dy herë në modulin e ri për të hapur zonën e kodimit.
5. Ngjit makronë e mëposhtme atje:

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. Klikoni "Run".
7. Së pari është kutia "Zgjidh tekstin". Futni tekstin tuaj të gjetjes dhe klikoni "OK". Në këtë rast, shkruani "v2.5".
8. Pastaj është kutia "Zëvendëso tekstin". Vendosni tekstin zëvendësues atje dhe klikoni "OK". Shkruani "v2.5".

Nëse keni nevojë të ndryshoni tekstet në mbishkrim, mund të përdorni këtë makro:

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

Rregulloni gabimet e dokumentit

Gabimet në fjalë nuk janë të panjohura për shumicën prej nesh. Një fjalë e shembur mund të rezultojë në një docx e korruptuar dosje. Për të adresuar një problem të tillë, duhet të përdorni një mjet të kualifikuar dhe profesional për të rikuperuar dokumentin e prishur.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë xlsx e korruptuar pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com