Багцлах 2 хурдан арга. Word баримт дээрх тэмдэглэлийн тоонуудад дөрвөлжин хаалт нэмэх

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

Урт баримт бичгийн төслийг боловсруулахдаа бид зүүлт тайлбар болон төгсгөлийн тайлбарыг оруулдаг. Мот тооны форматын сонголтууд байдгийг бид мэднэ. Гэсэн хэдий ч дөрвөлжин хаалт бүхий тоон загвар байдаггүй. Дараагийн бичвэрүүдэд бидний ярилцах зүйл бол ийм асуудлыг шийдвэрлэх 2 шийдэл юм.

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

1. Эхлэхийн тулд зорилтот баримт бичгийн "Нүүр хуудас" таб дээр дарна уу.
2. Дараа нь "Засварлах" бүлгийн "Орлуулах" командыг дарж "Олох ба солих" харилцах цонхыг нээнэ үү.
3. Хэрэв та зүүлт тайлбартай ажиллаж байгаа бол "Юуг олох" талбарт "^f" гэж бичнэ үү.
4. "Орлуулах" текст талбарт "[^&]" гэж оруулна уу.
5. Дараа нь "Бүгдийг солих" дээр дарна уу.
6. Таны харж буй дараагийн зүйл бол бүх зүүлт тайлбарын дугаарууд дөрвөлжин хаалтанд байна. "OK" дээр дарж мессежийн хайрцгийг хаа.

Нэмж дурдахад, төгсгөлийн тэмдэглэлд дөрвөлжин хаалт нэмэхийн тулд "Юуг олох" текстийн талбарт "^f"-г "^e"-ээр солино.

Арга 2: Word макро ажиллуулах

1. Юуны өмнө, VBA засварлагчийг ажиллуулахын тулд Word дээр "Alt + F11" товчийг дарна уу.
2. Дараа нь "Хэвийн" дээр товшоод "Оруулах" таб.
3. Унтраах цэснээс “Модуль” -г сонгоно уу.
4. Дараа нь шинээр оруулсан модуль дээр давхар товшоод баруун талд засварлах хэсгийг нээнэ үү.
5. Дараах макрог наана:

Sub AddBracketForFootnoteAndEndnote()
  Application.ScreenUpdating = False
 
  Dim objRange As Range
 
  With ActiveDocument

    '  add bracket for footnotes. 
    If ActiveDocument.Footnotes.Count > 0 Then
      Call UpdateFootnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdFootnotesStory Then
          Call UpdateFootnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All footnotes have been added brackets.")
    Else
      MsgBox ("There is no footnote in this document")
    End If

    '  add bracket for footnotes. 
    If ActiveDocument.Endnotes.Count > 0 Then
      Call UpdateEndnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdEndnotesStory Then
          Call UpdateEndnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All endnotes have been added brackets.")
    Else
      MsgBox ("There is no endnote in this document")
    End If
  End With
 
  Application.ScreenUpdating = True
End Sub

Sub UpdateFootnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^f"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Sub UpdateEndnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^e"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

6. Одоо эхний макро дотор оруулах заагчийг байрлуулаад "Run" дээр дарна уу.
7. Дараа нь эхлээд бүх зүүлт тайлбарт дөрвөлжин хаалт нэмсэн гэсэн мессежийн хайрцаг гарч ирнэ.
8. Дараа нь бүх төгсгөлийн тоонд хөрвүүлэлт дууссан гэсэн хоёр дахь нь байна.

Бидний авсан үр дүн энд байна:

Баримт бичиг алдагдахаас сэргийлнэ

Бидний хадгалсан өгөгдөлтэй адил үнэ цэнэтэй өгөгдөлтэй байсан тул бид эрсдэлд орох боломжгүй байсан. Тиймээс, хэрэв та авахыг хүсэхгүй бол чухал файлуудыг устгах эрсдэлтэй аливаа алхам хийхээсээ өмнө нөөцлөх нь ухаалаг хэрэг болно. гэмтсэн док.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xls авлига болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com