Word баримт дээрх хаалт болон хоосон зайг багцаар устгах 2 арга

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

Доорх энэ нийтлэлд бид Word баримтын хаалт болон дотоод зайг багцлан устгах 2 аргыг санал болгох болно. 

Хааяа хааяа хүмүүс хаалтанд янз бүрийн зорилгоор үг тэмдэглэх дуртай байдаг. Гэсэн хэдий ч хэсэг хугацааны дараа та бүх хаалтуудыг арилгахаар шийдэж болох ч таны баримт бичгийн эргэн тойронд маш олон хаалт байгааг олж мэдэх болно. Үнэнийг хэлэхэд, тэдгээрийг нэг нэгээр нь устгахад удаан хугацаа шаардагдана. Үүнээс гадна зарим нэг онцгой хэрэгцээ шаардлагаас болж та хос хаалтны хоорондох бүх зайг арилгах хэрэгтэй болж магадгүй юм.Word баримтаас хаалт болон хоосон зайг багцаар устгана уу

Ийм учраас та илүү практик шийдлээр өөрийгөө хангахын тулд энэ нийтлэлийг унших хэрэгтэй болно.

Арга 1: "Нарийвчилсан хайлт" командын тэмдэгтүүдийг ашиглана уу

  1. Юуны өмнө "Нүүр хуудас" таб дээр товшоод "Find" командын унадаг товчийг дарна уу.
  2. Дараа нь унадаг цэснээс "Нарийвчилсан хайлт" гэснийг сонгоод "Ол, солих" харилцах цонхыг нээнэ үү."Нүүр хуудас" дээр дарна уу-> "Олох" товчлуур дээрх сум товчийг дарна уу-> "Нарийвчилсан хайлт" -ыг сонгоно уу.
  3. Жишээлбэл, хэрэв та бүх дөрвөлжин хаалтыг олохыг хүсвэл " гэж оруулна уу.\ [* \]"Юуг олох" текстийн талбарт (хашилтгүйгээр) бичнэ үү.
  4. Дараа нь "Дэлгэрэнгүй" товчийг дарж илүү олон сонголтыг гарга.
  5. "Зохицуулах тэмдэг ашиглах" нүдийг чагтална уу.
  6. Дараа нь "Find In" таб дээр дараад "Үндсэн баримт" -ыг сонгоно уу. Та бүх дөрвөлжин хаалт болон хавсаргасан бичвэрүүдийг дараах байдлаар харах болно."Юуг олох" Текстийн талбарт мөрүүдийг оруулна уу-> "Оролцоог ашиглах" нүдийг чагтална уу-> "Олгох" товчийг дарна уу-> "Үндсэн баримт" -ыг сонгоно уу.
  7. Одоо "Юуг олох" текстийн хайрцгийг арилгаж, "[[\] ]”(хашилтгүйгээр).
  8. "Олох" дээр товшоод энэ удаад "Одоогийн сонголт"-ыг сонгоно уу. Та бүх дөрвөлжин хаалт болон доторх бүх зайг дараах байдлаар сонгох болно."Юуг олох" текстийн талбарт мөрүүдийг оруулна уу-> "Олгох" товчийг дарна уу-> "Одоогийн сонголт" -ыг сонгоно уу.
  9. Дөрвөлжин хаалт болон доторх бүх зайг арилгахын тулд "Устгах" товчийг дарна уу.
  10. Гэсэн хэдий ч, хэрэв та зай үлдээхийг хүсвэл 7-р алхам дахь мөрүүдийг "-ээр солино уу.[[\]]".Зөвхөн дөрвөлжин хаалт сонгохын нөлөө

Хүснэгтэнд нийтлэг хэрэглэгддэг хэд хэдэн төрлийн хязгаарлагч, тэдгээрийг олох мөрүүд эсвэл дотоод зайнууд байдаг.

Хаалт Хаалт болон бүх хавсаргасан текстийг олох мөр Хаалт болон доторх бүх зайг олох мөрүүд Зөвхөн хаалт хайх мөрүүд
Дөрвөлжин хаалт

[]

\ [* \] [[\] ] [[\]]
Хаалт хаалтууд

()

\ (* \) [(\)] [(\)]
Хаалт (буржгар хаалт)

{}

\ {* \} [{\} ] [{\}]
Өнцгийн хаалт

<> Дээр дарна уу

\ <* \> [<\>] [<\>]

Арга 2: VBA кодуудыг ажиллуулна уу

  1. Нэгдүгээрт, "Alt + F11" товчийг дарж VBA засварлагчийг нээнэ үү.
  2. Дараа нь "Ердийн", дараа нь "Оруулах" таб дээр дарна уу.
  3. “Модуль” -ыг сонгоно уу."Normal" дээр дарна уу - "Insert" дээр дарна уу - "Module" дээр дарна уу
  4. Дараа нь нээхийн тулд давхар товшино уу.
  5. Дараах кодыг тэнд байрлуул:
Sub DeleteDelimiters(objFind As Find, strLeftDelimiter As String, strRightDelimiter As String, bDeleteSpace As Boolean)
  Dim strFind1 As String
  Dim strFind2 As String
 
  strFind1 = "\" & strLeftDelimiter & "*\" & strRightDelimiter
  If (bDeleteSpace) Then
    strFind2 = "[" & strLeftDelimiter & "\" & strRightDelimiter & " ]"
  Else
    strFind2 = "[" & strLeftDelimiter & "\" & strRightDelimiter & "]"
  End If
 
  Selection.HomeKey Unit:=wdStory
  objFind.ClearFormatting
  objFind.Replacement.Text = ""
 
  While objFind.Execute(FindText:=strFind1, MatchWildcards:=True)
    objFind.Execute FindText:=strFind2, MatchWildcards:=True, _
      ReplaceWith:="", Replace:=wdReplaceAll, Wrap:=wdFindStop
  Wend

End Sub


Sub DeleteBracketsAndSpace()
  Application.ScreenUpdating = False
 
  '  Delet all square brackets and the space in it.
  Call DeleteDelimiters(Selection.Find, "[", "]", True)
 
  '  Delet all parenthesis and the space in it.
  Call DeleteDelimiters(Selection.Find, "(", ")", True)
 
  '  Delet all braces and the space in it.
  Call DeleteDelimiters(Selection.Find, "{", "}", True)
 
  '  Delet all angle brackets and the space in it.
  Call DeleteDelimiters(Selection.Find, "<", ">", Ture)
 
  Application.ScreenUpdating = True
End Sub
  1. Одоо "DeleteBracketsAndSpace" макро дээр баримт бичигт байгаа хаалтуудаа устгахад шаардлагатай мөрүүдийг л үлдээж, шаардлагагүй бүх кодын мөрийг устгана уу.

Хэрэв та зөвхөн хаалтаас салахыг хүсвэл кодыг бага зэрэг өөрчлөх хэрэгтэй. Таны баримт бичигт дөрвөлжин хаалт байна гэж бодъё. Дараа нь “Call DeleteDelimiters(Selection.Find, “[“, “]”, True)” гэсэн мөрөнд очоод “Үнэн"Хүртэл"хуурамч".

  1. Эцэст нь "Ажиллуулах" дээр дарна уу.Кодуудыг буулгах -> "Ажиллуулах" дээр дарна уу

Үгтэй холбоотой асуудлуудыг шийдвэрлэх

Үнэнийг хэлэхэд Word үнэхээр олон ажлыг гүйцэтгэх чадвартай. Гэсэн хэдий ч энэ нь эцсийн эцэст өөгүй биш юм. Асуудал гарсан тохиолдолд үр дагавар нь аймшигтай байж болно. Тиймээс, Word програмын жижиг асуудлуудыг бид хэзээ ч үл тоомсорлож чадахгүй, учир нь энэ нь таныг үхсэн Word руу хөтөлж болзошгүй юм авлигач docx файлууд. Хамгийн сайн шийдэл бол Word баримтаа сэргээх дэвшилтэт засварын хэрэгсэл авах явдал юм.

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

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

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

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