Ձեր Word փաստաթղթում էջի անցանկալի կոտրվածքները վերացնելու 4 արագ մեթոդներ

Կիսվել հիմա ՝

Այս գրառման մեջ մենք կներկայացնենք 4 արագ մեթոդ, որոնք կօգնեն ձեզ հեռացնել անցանկալի էջի ընդմիջումները Word փաստաթղթում։

Word-ը ավտոմատ կերպով էջի ընդմիջում է տեղադրում, երբ այն անցնում է մեկ էջից մյուսը։ Բացի այդ, դուք կարող եք ձեռքով էջի ընդմիջում տեղադրել տեքստի միջակայքի ավարտից հետո։ Այնուհետև տեքստը կսկսվի հաջորդ էջի վերևում։ Ձեռքով էջի ընդմիջում տեղադրելու մասին տեղեկությունների համար կարող եք դիմել այս հոդվածին. Ձեր Word փաստաթղթում էջի կոտրվածքներն արագ տեղադրելու 5 եղանակներ

Այնուամենայնիվ, դուք պետք է հասկանաք, որ էջի ավտոմատ ընդմիջումները անտեսանելի են և, հետևաբար, չեն կարող ձեռքով ջնջվել: Բայց ձեռնարկի էջը ընդմիջում է տեղադրված անել: Այսպիսով, մեր հոդվածը հիմնականում ձեզ կառաջարկի օգտակար մոտեցումներ Word փաստաթղթում ձեռքով անցանկալի էջի ընդմիջումները հեռացնելու համար:   Հեռացրեք ձեր Word փաստաթղթում անցանկալի էջի ընդհատումները

Մեթոդ 1. Հեռացնել էջերի ընդհատումները ձեռքով

  1. Առաջին հերթին, դուք պետք է սեղմեք «Ցույց տալ/Թաքցնել» հրամանը «Տուն» ներդիրում, որպեսզի բացահայտեք փաստաթղթում թաքնված բոլոր նշաններն ու նշանները, որպեսզի կարողանաք դիտել էջի ընդմիջումը:
  2. Հաջորդը, ընտրեք էջի ընդմիջում և սեղմեք «Ջնջել»՝ դրանից ազատվելու համար:
  3. Կամ կարող եք սեղմել էջի ընդմիջման ձախ կողմում և սեղմել «Ջնջել»:Ընտրեք Էջի ընդմիջում -> Սեղմեք «Ջնջել»

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

  1. Սկսելու համար սեղմեք «Ctrl+ H»՝ «Գտնել և փոխարինել» վանդակը գործարկելու համար:
  2. Այնուհետև տեղադրեք կուրսորը «Գտեք ինչ» տեքստային տուփի մեջ և կտտացրեք «Ավելին» ներդիրին:
  3. Հաջորդը սեղմեք «Հատուկ» և ընտրեք «Ձեռքով էջի ընդմիջում» ընտրացանկում:Կտտացրեք «Հատուկ» -> Ընտրեք «Ձեռքով էջի ընդմիջում»
  4. Ի վերջո, դատարկ թողեք «Փոխարինեք» տուփը և կտտացրեք «Փոխարինել բոլորը»՝ փաստաթղթում յուրաքանչյուր էջի ընդմիջում հեռացնելու համար:

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

  1. Նախ, Word-ում գործարկեք VBA խմբագրիչը՝ սեղմելով «Alt+ F11»:
  2. Հաջորդը կտտացրեք «Սովորական» նախագծին ձախ սյունակում:
  3. Այնուհետև կտտացրեք «Տեղադրեք» ցանկի տողում և ընտրեք «Մոդուլ»:Սեղմեք «Նորմալ» -> Սեղմեք «Տեղադրել» -> Սեղմեք «Մոդուլ»
  4. Կրկնակի սեղմումով բացեք մոդուլը և այնտեղ տեղադրեք հետևյալ կոդերը.
Sub DeleteAllPageBreaksInOneDoc()
  Application.ScreenUpdating = False
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^m"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End With
  MsgBox ("All manual page breaks in the document have been removed!")
 
  Application.ScreenUpdating = True
End Sub
  1. Վերջապես, կոճակները գործարկելու համար սեղմեք «F5»:Կպցնել ծածկագրերը-> Սեղմել «Գործարկել»

Մեթոդ 4. Ջնջել բոլոր էջերի ընդմիջումները բոլոր փաստաթղթերում թղթապանակում

Թղթապանակի բոլոր փաստաթղթերում էջի ընդմիջումները հեռացնելու համար կարող եք օգտագործել այս մեթոդը:

  1. Մակրո տեղադրելու և գործարկելու համար կարող եք դիմել 3-րդ մեթոդի քայլերին:
  2. Եվ հիշեք, որ փոխարինեք ստորև նշված մակրոյով.
Sub DeleteAllPageBreaksInAFolder()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Application.ScreenUpdating = False
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      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 = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
  Application.ScreenUpdating = True
End Sub

Մակրոն կբացի «Փնտրել» պատուհանը: Ընտրեք ձեր թիրախային փաստաթղթերը պարունակող թղթապանակը և սեղմեք «Լավ»՝ շարունակելու համար:

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

Ձեզանից շատերը տեղյակ են եղել տվյալների կորստի պատահականության մասին: Word-ի օգտագործողների համար խորհուրդ է տրվում նաև լավ պատրաստված լինել տվյալների ցանկացած աղետի համար: Իսկ լավագույն միջոցներից մեկը ա docx- ի նորոգում գործիք նախապես:

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

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

Կիսվել հիմա ՝

Comments փակվում են: