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.
- Una sa lahat, i-click ang tab na "Home".
- Susunod na i-click ang "Palitan" upang buksan ang dialog box na "Hanapin at Palitan".
- Ilagay muna ang " v2.5" sa "Hanapin kung ano" na text box. Huwag kalimutang maglagay ng espasyo bago mag-text.
- Pagkatapos ay ilagay ang “v2.5” sa “Palitan ng” text box. Walang puwang bago ang teksto sa oras na ito.
- Susunod na i-click ang "Higit pa" na button upang palawakin ang higit pang mga opsyon.
- Ngayon i-click ang "Format" at piliin ang "Font".
- Sa dialog box na "Hanapin ang Font," lagyan ng check ang alinman sa "Superscript" o "Subscript" box.
- Pagkatapos ay i-click ang "OK".
- Panghuli i-click ang pindutang "Palitan Lahat".
Maaari mong suriin ang epekto dito:
Paraan 2: Palitan ang Batch sa pamamagitan ng Running Word Macro
- Upang magsimula, pindutin ang "Alt+ F11" upang ma-trigger ang VBA editor.
- Pagkatapos ay i-click ang "Normal" na proyekto at ang tab na "Ipasok" sa tabi.
- Piliin ang "Modyul" sa drop-down na menu.
- Susunod na i-double click sa bagong module upang buksan ang coding area.
- 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
- I-click ang "Run".
- 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".
- Pagkatapos ay mayroong kahon na "Palitan ang teksto". Ipasok ang kapalit na teksto doon at i-click ang "OK". I-type ang "v2.5".
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









