Word баримт дээрх текстийг дээд тэмдэгт эсвэл доод тэмдэгт болгон өөрчлөх 2 арга

Өнөөдрийн нийтлэлд бид Word баримт бичигт текстийг дээд эсвэл доод тэмдэгт болгон өөрчлөх 2 аргыг танд үзүүлэхийг хүсч байна.

Заримдаа бид Word баримт бичигт зарим текстийг дээд эсвэл доод индекс болгон өөрчлөх шаардлагатай болдог, ялангуяа ижил текстийн олон тохиолдол байгаа үед. Ийм нөхцөлд бидэнд хамгийн их хэрэгтэй зүйл бол багцаар солих явдал юм. Ийм учраас бид танд даалгаврыг гүйцэтгэх 2 хурдан аргыг санал болгож байна.

Арга 1: "Хайх, солих" онцлогийг ашиглана уу

Дараагийн агуулгад бид дээжийг ашиглах болно "DataNumen Word Repair v2.5” бидний үзүүлбэр болгон. Бидний зорилго бол "v2.5"-ыг доод тэмдэгтээр солих явдал юм.

1. Юуны өмнө "Нүүр хуудас" таб дээр дарна уу.
2. Дараа нь "Олох ба солих" харилцах цонхыг нээхийн тулд "Орлуулах" дээр дарна уу.
3. Эхлээд "Юуг олох" текст талбарт "v2.5" гэж оруулна уу. Текстийн өмнө хоосон зай оруулахаа бүү мартаарай.
4. Дараа нь "Орлуулах" текстийн талбарт "v2.5" гэж оруулна уу. Энэ удаад текстийн өмнө ямар ч зай байхгүй.
5. Дараа нь "Илүү" товчийг дарж илүү олон сонголтыг өргөжүүлнэ.
6. Одоо "Формат" дээр дараад "фонт" -ыг сонгоно уу.
7. "Фонт хайх" харилцах цонхны "Доод бичвэр" эсвэл "Доод тэмдэг" гэсэн нүдийг чагтална уу.
8. Дараа нь “OK” дээр дарна уу.
9. Эцэст нь "Бүгдийг солих" товчийг дарна уу.

Та эффектийг эндээс шалгаж болно:

Арга 2: Word макро ажиллуулж багцаар солино

1. Эхлэхийн тулд "Alt + F11" товчийг дарж VBA засварлагчийг ажиллуулна уу.
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. Эхлээд "Текст сонгох" талбар байна. Олсон текстээ оруулаад "OK" дээр дарна уу. Энэ тохиолдолд "v2.5" гэж бичнэ үү.
8. Дараа нь "Текстийг солих" талбар байна. Тэнд орлуулах текстийг оруулаад "OK" дээр дарна уу. "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