Бума жасаудың жылдам тәсілдері, Word құжатындағы сандарды ескерту үшін төртбұрышты жақшаларды қосу

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

Ұзын құжатты жасаған кезде біз ескертпелер мен түсіндірмелерді кірістіретін шығармыз. Біз санның форматының нұсқалары бар екенін білеміз. Алайда, жақшалы жақшалары бар кіріктірілген сандық стиль жоқ. Алдағы мәтіндерде не қарастыратынымыз - осындай мәселені шешудің екі шешімі.

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

1. Бастау үшін мақсатты құжаттағы «Басты бет» қойындысын нұқыңыз.
2. Содан кейін «Өңдеу» тобындағы «Ауыстыру» командасын басып, «Табу және ауыстыру» диалогтық терезесін ашыңыз.
3. Егер сіз сілтемелермен жұмыс жасасаңыз, «Нені табу» мәтін жолына «^ f» енгізіңіз.
4. «Ауыстыру» мәтін жолына «[^ &]» енгізіңіз.
5. Әрі қарай «Барлығын ауыстыру» батырмасын басыңыз.
6. Келесі көрінетін нәрсе - барлық ескертпе сандары төртбұрышты жақшада орналасқан. Хабарлама терезесін жабу үшін «OK» батырмасын басыңыз.

Сонымен қатар, соңғы белгілерге тік жақшаларды қосу үшін «Find what» мәтін жолағында «^ 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. Енді кірістіру көрсеткішін бірінші макростың ішіне қойып, «Іске қосу» батырмасын басыңыз.
7. Алдымен барлық ескертпе сандарына тік жақшалар қосылды деген хабарлама терезесі бар.
8. Одан кейін екінші коннотта конверсия аяқталғанын айтатын екіншісі бар.

Міне нәтиже:

Құжаттардың жоғалуына жол бермеңіз

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

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

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