2 načina za grupnu promjenu teksta u superscript ili subscript u vašem Word dokumentu

U današnjem članku, željeli bismo vam pokazati 2 načina za grupnu promjenu teksta u superscript ili subscript u vašem Word dokumentu.

Ponekad nam je potrebno promijeniti određene tekstove u Word dokumentu u nadpise ili indekse, posebno kada postoji više instanci istog teksta. U takvim okolnostima, grupna zamjena nam je najpotrebnija. Iz tog razloga, nudimo vam 2 brze metode za obavljanje tog zadatka.

Metoda 1: Koristite funkciju „Pronađi i zamijeni“.

U narednim sadržajima koristićemo uzorak “DataNumen Word Repair v2.5” kao naša demonstracija. Naš cilj je zamijeniti “v2.5” kao subscript.

1. Prvo i najvažnije, kliknite na karticu "Početna".
2. Zatim kliknite na “Zamijeni” da otvorite dijaloški okvir “Pronađi i zamijeni”.
3. Prvo unesite “v2.5” u tekstualni okvir “Pronađi šta”. Ne zaboravite da unesete razmak prije teksta.
4. Zatim unesite "v2.5" u tekstualni okvir "Zamijeni sa". Ovaj put nema razmaka ispred teksta.
5. Zatim kliknite na dugme „Više“ da biste proširili više opcija.
6. Sada kliknite na “Format” i odaberite “Font”.
7. U dijaloškom okviru “Pronađi font” označite polje “Superscript” ili “Subscript”.
8. Zatim kliknite "OK".
9. Na kraju kliknite na dugme „Zameni sve“.

Efekat možete provjeriti ovdje:

Metoda 2: Grupna zamjena pokretanjem Word makroa

1. Za početak, pritisnite “Alt+ F11” da pokrenete VBA editor.
2. Zatim kliknite na "Normalni" projekat i na karticu "Insert".
3. Odaberite “Module” na padajućem izborniku.
4. Zatim dvaput kliknite na novi modul da otvorite područje kodiranja.
5. Tamo zalijepite sljedeći makro:

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. Kliknite na “Run”.
7. Prvo postoji okvir “Odaberi tekst”. Unesite tekst za pronalaženje i kliknite na “OK”. U ovom slučaju upišite “v2.5”.
8. Zatim postoji okvir "Zamijeni tekst". Unesite zamjenski tekst tamo i kliknite na “OK”. Upišite “v2.5”.

Ako trebate promijeniti tekst u superscript, možete koristiti ovaj 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

Popravi greške u dokumentu

Greške u riječima nisu strana većini nas. Sužavanje riječi može rezultirati corrupt docx fajl. Da biste riješili takav problem, morate uzeti u ruke kvalificirani i profesionalni alat za oporavak pokvarenog dokumenta.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen xlsx i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com