Քառակուսի փակագծեր խմբաքանակով ավելացնելու 2 արագ մեթոդ Ձեր Word փաստաթղթում նշումների համարներին

Բառային լուծումներ Սեպտեմբեր 28, 2025
Կիսվել հիմա ՝

Այսօրվա գրառման մեջ մենք ուրախ ենք ձեզ ցույց տալ 2 արագ մեթոդ՝ Word փաստաթղթում նոտայի համարներին քառակուսի փակագծեր խմբաքանակով ավելացնելու համար։

Երկար փաստաթուղթ կազմելիս մենք, ամենայն հավանականությամբ, կտեղադրենք տողատակեր և ավարտական ​​նշումներ: Մենք գիտենք, որ կան ընտրանքներ «Mote» համարի ձևաչափի համար: Այնուամենայնիվ, քառակուսի փակագծերով ներկառուցված թվային ոճ չկա: Այն, ինչ մենք կքննարկենք առաջիկա տեքստերում, նման խնդրի լուծման 2 լուծումներն են:

Մեթոդ 1. Օգտագործեք «Գտնել և փոխարինել» գործառույթը

  1. Սկսելու համար սեղմեք «Գլխավոր էջ» ներդիրը նպատակային փաստաթղթում։
  2. Այնուհետև սեղմեք «Փոխարինել» հրամանը «Խմբագրում» խմբում՝ «Գտնել և փոխարինել» երկխոսության տուփը բացելու համար:
  3. Այժմ, եթե դուք աշխատում եք տողատակի հետ, մուտքագրեք «^f» «Գտեք ինչ» տեքստային դաշտում:
  4. Մուտքագրեք «[^&]» «Փոխարինել» տեքստային վանդակում:
  5. Հաջորդը կտտացրեք «Փոխարինել բոլորը»:
  6. Հաջորդ բանը, որ տեսնում եք, այն է, որ բոլոր տողատակերի համարները գտնվում են քառակուսի փակագծերում: Սեղմեք «OK»՝ հաղորդագրության տուփը փակելու համար:Կտտացրեք «Տուն» ->Սեղմեք «Փոխարինել»->Մուտքագրեք տեքստերը երկու տեքստային դաշտերում->Սեղմեք «Փոխարինել բոլորը»->Սեղմեք «OK»

Բացի այդ, վերջնագրերին քառակուսի փակագծեր ավելացնելու համար պարզապես «^f»-ը փոխարինեք «^e»-ով «Գտեք ինչ» տեքստային տուփերում:

Մեթոդ 2. Գործարկել Word մակրոը

  1. Նախ և առաջ, Word-ում սեղմեք «Alt+F11»՝ VBA խմբագրիչը գործարկելու համար։
  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
  1. Այժմ տեղադրեք ցուցիչը առաջին մակրոյի ներսում և սեղմեք «Գործարկել»:Կպցնել կոդերըԿպցնել կոդերը -> Սեղմել «Գործարկել»
  2. Այնուհետև նախ կա հաղորդագրության տուփ, որում ասվում է, որ տողատակի բոլոր թվերին ավելացվել են քառակուսի փակագծեր:Հաղորդագրության տուփ, որտեղ գրված է, որ տողատակերի համարներն ավելացվել են քառակուսի փակագծերով
  3. Հաջորդը կա երկրորդը, որն ասում է, որ փոխարկումն ավարտված է բոլոր վերջնագրերի թվերում:Քառակուսի փակագծերով ավելացվել են հաղորդագրության տուփ, որտեղ ասվում է, որ վերջի նշումների համարները

Ահա մեր ստացած արդյունքը.Գործող մակրոների ազդեցությունը

Կանխել փաստաթղթերի կորուստը

Ունենալով նույնքան արժեքավոր տվյալներ, որքան մեր պահածը, մենք չէինք կարող մեզ թույլ տալ որևէ ռիսկի դիմել: Հետևաբար, խելամիտ կլինի կրկնօրինակել կարևոր ֆայլերը, նախքան որևէ քայլ կատարելը, դրանք փչացնելու հնարավոր ռիսկով, եթե չեք ցանկանում ստանալ վնասված դոկ.

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում xls կոռուպցիա և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: