Ձեր Word փաստաթղթի բոլոր հատվածների ընդմիջումները արագ ջնջելու 3 եղանակ

Կիսվել հիմա ՝

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

Բաժինների ընդմիջումները օգտակար են Word փաստաթղթում բազմաթիվ բաժիններ ստեղծելու համար: Այսպիսով, դուք կարող եք ձևավորել տարբեր բաժիններ տարբեր ոճերով: Եվ ահա մեր նախորդ հոդվածը, որպեսզի դուք արագ տեղադրեք հատվածի ընդմիջումները փաստաթղթում. Բառի խախտումները ձեր Word փաստաթղթում արագ տեղադրելու 3 եղանակ

Այնուամենայնիվ, բավականին տարածված է փաստաթղթի վերանայումը, ինչպես օրինակ՝ ոճերի փոփոխությունը, բաժինների վերաբաժանումը և այլն: Մասնավորապես, եթե մեծ ճշգրտում կա, դուք հավանաբար պետք է հեռացնեք բոլոր բաժինների ընդմիջումները: Ստորև բերված են 3 եղանակներ, որոնք կարող եք օգտագործել՝ խմբաքանակով բաժինների ընդմիջումները ջնջելու համար:Ջնջեք բոլոր բաժինների ընդմիջումները ձեր Word փաստաթղթում

Մեթոդ 1. Փաստաթղթում գտեք բաժնի բոլոր խախտումները

  1. Նախևառաջ սեղմեք «Ctrl+ H»՝ Word-ում «Գտնել և փոխարինել» տուփը բացելու համար:
  2. Հաջորդը դրեք կուրսորը «Գտեք ինչ» տեքստային տուփի մեջ:
  3. Սեղմեք «Ավելին» կոճակը՝ ավելի շատ տարբերակներ ստանալու համար:
  4. Այնուհետև կտտացրեք «Հատուկ» և ընտրեք «Բաժնի ընդմիջում» իր ընտրացանկում: Այնուհետև կտեսնեք «^b» «Գտեք ինչ» տեքստային վանդակում: Այսպիսով, այլընտրանքային միջոց է մուտքագրել «^b» անմիջապես քայլ 2-ից հետո:Կտտացրեք «Հատուկ» -> Ընտրեք «Բաժնի ընդմիջում»
  5. Վերջում դատարկ թողեք «Փոխարինեք» վանդակը և սեղմեք «Փոխարինել բոլորը»: Սեղմեք «OK» հաստատման վանդակում:Մուտքագրեք «^b» «Գտեք ինչ» տեքստային վանդակում -> Սեղմեք «Փոխարինել բոլորը»

Մեթոդ 2. Գործարկել մակրո ՝ մեկ փաստաթղթում բաժնի բոլոր խախտումները ջնջելու համար

Ահա ձեր ինքնաբերաբար ճանապարհը `ազատվելու հատվածների անցանկալի ընդմիջումներից:

  1. Սկսելու համար բացեք VBA խմբագրիչը Word-ում՝ սեղմելով «Alt+ F11»:
  2. Դրանից հետո ստեղծեք նոր մոդուլ ՝ կտտացնելով «Նորմալ»:
  3. Հաջորդը կտտացրեք «Տեղադրել» կետին և ընտրել «Մոդուլ»:Սեղմեք «Նորմալ» -> Սեղմեք «Տեղադրել» -> Սեղմեք «Մոդուլ»
  4. Այժմ բացեք մոդուլը կրկնակի սեղմումով:
  5. Աջ կողմում գտնվող կոդավորման տարածքում տեղադրեք հետևյալ կոդերը.
Sub DeleteAllSectionsInOneDoc()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^b"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
End Sub
  1. Ի վերջո, կտտացրեք «Գործարկել» կոճակին:Կպցնել ծածկագրերը-> Սեղմել «Գործարկել»

Բաժնի բոլոր ընդմիջումները ոչ մի վայրկյանում չեք գտնի:

Մեթոդ 3. Deleteնջել Բազմաթիվ փաստաթղթերի բաժնի բոլոր խախտումները

Նմանապես, մենք պետք է մակրո գործարկենք, եթե ուզում ենք դա անել արագ և կեղտոտ եղանակով:

  1. Նախևառաջ, բոլոր թիրախային փաստաթղթերը դրեք մեկ թղթապանակում։
  2. Դրանից հետո տեղադրեք մակրո ՝ 2-րդ մեթոդի քայլերով:
  3. Փոխարենը գործարկեք այս մակրոը.
Sub DeleteAllSectionBreaksInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
 
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^b"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
    End With
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub
  1. Հաջորդը `« seննարկել »պատուհանում, բացեք այն թղթապանակը, որի վրա դուք պահում եք փաստաթղթերը:
  2. Վերջապես, բայց ոչ պակաս, կտտացրեք «Լավ»:Ընտրեք պանակ-> Սեղմեք «OK»

Պատրաստվեք տվյալների կորստին

Սովորաբար, լավ օգտագործման սովորության, հաջողության և բոլոր օրհնությունների շնորհիվ, դուք կարող եք շատ բանի հասնել Word-ում: Սակայն խափանումները կարող են տեղի ունենալ ցանկացած պահի: Հետևաբար, կենսականորեն կարևոր է պարբերաբար պահուստավորել փաստաթղթերը: Ձեռքի տակ պահուստային պատճեն ունենալով՝ դուք ավելի վստահ կլինեք աշխատանքը սկսելուց առաջ: docx ֆիքս.

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

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

Կիսվել հիմա ՝

Comments փակվում են: