Сіздің Word құжатыңыздағы мәтіндерді суперскриптке немесе субстрипке өзгертудің екі тәсілі

Бүгінгі мақалада біз сізге Word құжатындағы мәтіндерді суперскриптке немесе подписке өзгертудің екі әдісін көрсеткіміз келеді.

Кейде Word құжатындағы кейбір мәтіндерді, әсіресе бір мәтіннің бірнеше нұсқасы болған кезде, жол үсті немесе асты индекстерге өзгерту қажет болады. Мұндай жағдайларда бізге ең қажет нәрсе - топтық ауыстыру. Осы себепті біз сізге тапсырманы орындаудың 2 жылдам әдісін ұсынамыз.

1-әдіс: «Табыңыз және ауыстырыңыз» функциясын қолданыңыз

Алдағы мазмұндарда біз «үлгісін қолданамызDataNumen Word Repair v2.5 »біздің көрсетілім ретінде. Біздің мақсатымыз - «v2.5» -ті индекс ретінде ауыстыру.

1. Ең алдымен, «Басты бет» қойындысын басыңыз.
2. «Іздеу және ауыстыру» диалогтық терезесін ашу үшін «Ауыстыру» батырмасын басыңыз.
3. Алдымен «Find what» мәтін жолына «v2.5» енгізіңіз. Мәтін алдында бос орын енгізуді ұмытпаңыз.
4. Содан кейін «Ауыстыру» мәтін жолына «v2.5» енгізіңіз. Бұл жолы мәтін алдында орын жоқ.
5. Одан әрі кеңейту үшін «Қосымша» батырмасын басыңыз.
6. Енді «Пішім» түймесін басып, «Қаріп» таңдаңыз.
7. «Қаріпті табу» диалогтық терезесінде «Суперкрипт» немесе «Жазу жазбасы» өрістерін белгілеңіз.
8. Содан кейін «OK» батырмасын басыңыз.
9. Соңында «Барлығын ауыстыру» батырмасын басыңыз.

Эффектіні мына жерден тексеруге болады:

2-әдіс: Word макросын іске қосу арқылы топтамалық ауыстыру

1. Бастау үшін VBA редакторын қосу үшін «Alt + F11» пернелерін басыңыз.
2. Содан кейін «Қалыпты» жобасын және келесі «Кірістіру» қойындысын нұқыңыз.
3. Ашылмалы мәзірден «Модуль» таңдаңыз.
4. Әрі қарай кодтау аймағын ашу үшін жаңа модульді екі рет басыңыз.
5. Мына макросты қойыңыз:

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. «Іске қосу» батырмасын басыңыз.
7. Алдымен «Мәтінді таңдау» өрісі бар. Іздеу мәтінін енгізіп, «ОК» батырмасын басыңыз. Бұл жағдайда «v2.5» теріңіз.
8. Содан кейін «Мәтінді ауыстыру» өрісі бар. Ауыстырылатын мәтінді енгізіп, «ОК» батырмасын басыңыз. «V2.5» теріңіз.

Егер сізге мәтіндерді жоғарғы сценарийге ауыстыру қажет болса, келесі макросты қолдануға болады:

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

Құжат қателерін түзету

Сөз қателері көпшілігімізге таныс емес. Сөздің құлауы ... әкелуі мүмкін сыбайлас docx файл. Мұндай мәселені шешу үшін сізге бұзылған құжатты қалпына келтіретін білікті және кәсіби құралды ұстау қажет.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген xlsx және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com