Word баримт бичигт хүсээгүй хуудсын зөрчлийг арилгах 4 хурдан арга

Одоо хуваалцах:

Энэ нийтлэлд бид Word баримт бичигт хүсээгүй хуудасны завсарлагыг арилгах 4 хурдан аргыг танд танилцуулах болно.

Word нь нэг хуудаснаас дараагийн хуудас руу шилжих үед автоматаар хуудас завсарлага оруулдаг. Түүнчлэн, та текстийн хүрээний төгсгөлд гараар хуудас завсарлага оруулж болно. Дараа нь та текстийг дараагийн хуудасны дээд хэсгээс эхлүүлэх болно. Гараар хуудас завсарлага хэрхэн оруулах талаар та энэ нийтлэлээс лавлана уу: Үгийн баримт бичигт хуудасны зөрчлийг хурдан оруулах 5 арга

Гэсэн хэдий ч хуудасны автомат завсарлага нь үл үзэгдэх тул гараар устгах боломжгүй гэдгийг та ойлгох ёстой. Гэхдээ гарын авлагын хуудасны завсарлага оруулав. Тиймээс бидний нийтлэл нь Word баримт бичгийн хүсээгүй гарын авлагын хуудсыг арилгахад туслах арга хэрэгслийг санал болгодог.   Үгийн баримт бичигт хүсээгүй хуудасны зөрчлийг арилгах

Арга 1: Хуудасны завсарлагыг гар аргаар арилгах

  1. Юуны өмнө та хуудас доторх бүх далд тэмдэг, тэмдгийг ил гаргахын тулд "Нүүр хуудас" табын доор байрлах "Харуулах / нуух" командыг дарах хэрэгтэй.
  2. Дараа нь хуудасны завсарыг сонгоод "Устгах" товчийг дарж устгана уу.
  3. Эсвэл та хуудасны завсарлагааны зүүн талд товшоод “Устгах” товчийг дарж болно.Хуудасны завсарлага сонгох -> "Устгах" товчийг дарна уу.

Арга 2: "Хайх, солих" онцлогийг ашиглана уу

  1. Эхлэхийн тулд “Ctrl + H” товчийг дарж “Find and Replace” хайрцгийг ажиллуулна уу.
  2. Дараа нь "Find what" текст хайрцаг дотор курсороо байрлуулаад "More" таб дээр дарна уу.
  3. Дараа нь "Тусгай" дээр дарж, тухайн цэснээс "Гараар хуудас таслах" командыг сонгоно уу."Тусгай" дээр дарна уу - "Гараар хуудасны завсарлага" -г сонгоно уу.
  4. Эцэст нь “Replace with” хайрцгийг хоосон орхиж, “Replace All” дээр дарж баримт бичгийн хуудасны завсарлага бүрийг хасна.

Арга 3: Баримтын бүх хуудасны зөрчлийг устгахын тулд макро ажиллуулна уу

  1. Эхлээд Word дээр VBA редакторыг “Alt + F11” товчийг дарж ажиллуулна уу.
  2. Дараа нь зүүн баганад байгаа "Хэвийн" төслийг дарна уу.
  3. Дараа нь цэсний мөрөнд "Insert" дээр дарж "Module" -г сонгоно уу."Normal" дээр дарна уу - "Insert" дээр дарна уу - "Module" дээр дарна уу
  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

Макро нь "Browse" цонхыг идэвхжүүлнэ. Зорилтот баримт бичгүүдээ агуулсан хавтсыг сонгоод "OK" дээр дарж үргэлжлүүлнэ үү.

Мэдээллийн гамшигт бэлтгэ

Та нарын олонхи нь өгөгдлийн алдагдлыг санамсаргүй байдлаар мэдэж байсан. Word хэрэглэгчдийн хувьд аливаа өгөгдлийн гамшигт сайн бэлтгэлтэй байхыг зөвлөж байна. Хамгийн сайн аргуудын нэг бол a docx засвар урьдчилан хэрэгсэл.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xlsx сэргээх болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com

Одоо хуваалцах:

Тайлбарууд нь хаалттай байна.