2 Mga Paraan sa Batch Baguhin ang Mga Teksto sa Superscript o Subscript sa Iyong Word Document

Ipamahagi ngayon:

Sa artikulong ngayon, gusto naming ipakita sa iyo ang 2 paraan upang i-batch ang pagbabago ng mga teksto sa superscript o subscript sa iyong Word document.

Minsan, kailangan nating baguhin ang ilang teksto sa dokumento ng Word sa mga superscript o subscript, lalo na kung maraming beses na ginamit ang parehong teksto. Sa ganitong mga sitwasyon, ang pagpapalit ng batch ang pinakakailangan natin. Dahil dito, nag-aalok kami ng 2 Mabilisang paraan para maisagawa mo ang gawain.

Paraan 1: Gumamit ng Tampok na "Hanapin at Palitan"

Sa mga darating na nilalaman, gagamitin namin ang sample "DataNumen Word Repair v2.5” bilang aming demonstrasyon. Ang aming layunin ay palitan ang "v2.5" bilang subscript.Ang pangangailangan na palitan ang teksto ng subscript

  1. Una sa lahat, i-click ang tab na "Home".
  2. Susunod na i-click ang "Palitan" upang buksan ang dialog box na "Hanapin at Palitan".I-click ang "Home" -> I-click ang "Palitan"
  3. Ilagay muna ang " v2.5" sa "Hanapin kung ano" na text box. Huwag kalimutang maglagay ng espasyo bago mag-text.
  4. Pagkatapos ay ilagay ang “v2.5” sa “Palitan ng” text box. Walang puwang bago ang teksto sa oras na ito.
  5. Susunod na i-click ang "Higit pa" na button upang palawakin ang higit pang mga opsyon.Ipasok ang mga nilalaman->I-click ang "Higit pa"
  6. Ngayon i-click ang "Format" at piliin ang "Font".I-click ang "Format" -> Piliin ang "Font"
  7. Sa dialog box na "Hanapin ang Font," lagyan ng check ang alinman sa "Superscript" o "Subscript" box.
  8. Pagkatapos ay i-click ang "OK".Suriin ang opsyon->I-click ang "OK"
  9. Panghuli i-click ang pindutang "Palitan Lahat".I-click ang "Palitan Lahat"

Maaari mong suriin ang epekto dito:Epekto ng pagpapalit ng batch

Paraan 2: Palitan ang Batch sa pamamagitan ng Running Word Macro

  1. Upang magsimula, pindutin ang "Alt+ F11" upang ma-trigger ang VBA editor.
  2. Pagkatapos ay i-click ang "Normal" na proyekto at ang tab na "Ipasok" sa tabi.
  3. Piliin ang "Modyul" sa drop-down na menu.I-click ang "Normal" -> I-click ang "Ipasok" -> I-click ang "Modyul"
  4. Susunod na i-double click sa bagong module upang buksan ang coding area.
  5. I-paste ang sumusunod na macro doon:
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
  1. I-click ang "Run".I-paste ang mga code-> I-click ang "Run"
  2. Una doon ay ang "Pumili ng teksto" na kahon. Ipasok ang iyong paghahanap ng teksto at i-click ang "OK". Sa kasong ito, i-type ang " v2.5".Ipasok ang paghahanap ng teksto->I-click ang "OK"
  3. Pagkatapos ay mayroong kahon na "Palitan ang teksto". Ipasok ang kapalit na teksto doon at i-click ang "OK". I-type ang "v2.5".Ipasok ang pagpapalit ng text

Kung kailangan mong baguhin ang mga teksto sa superscript, maaari mong gamitin ang macro na ito:

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

Ayusin ang Mga Error sa Dokumento

Hindi na bago sa karamihan sa atin ang mga pagkakamali sa salita. Ang pagbagsak ng salita ay maaaring magresulta sa isang sira na docx file. Upang matugunan ang naturang isyu, kailangan mong humawak ng isang kwalipikado at propesyonal na tool upang mabawi ang sirang dokumento.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang nasira xlsx at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa

Ipamahagi ngayon:

Mga komento ay sarado.