Ձեր Word փաստաթղթում տեքստերը վերնագրի կամ բաժանորդագրվելու խմբաքանակ փոխելու 2 եղանակ

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

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

Երբեմն մենք պետք է 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
  1. Սեղմեք «Run»:Կպցնել կոդերը -> Սեղմել «Գործարկել»
  2. Նախ կա «Ընտրել տեքստ» վանդակը: Մուտքագրեք ձեր գտած տեքստը և սեղմեք «OK»: Այս դեպքում մուտքագրեք «v2.5»:Մուտքագրեք որոնման տեքստը->Սեղմեք «OK»
  3. Այնուհետև կա «Փոխարինել տեքստը» վանդակը: Մուտքագրեք փոխարինող տեքստը այնտեղ և սեղմեք «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

Կիսվել հիմա ՝

Comments փակվում են: