Word құжатындағы жақшалар мен ішкі бос орындарды топтамамен жоюдың 2 жолы

Word шешімдері Қыркүйек 28, 2025
Қазір бөлісу:

Төмендегі мақалада біз сізге Word құжатындағы жақшалар мен ішкі бос орындарды пакеттік жоюдың 2 әдісін ұсынамыз. 

Кейде адамдар әр түрлі мақсаттағы сөздерді белгілеу үшін жақшаларды қолданғанды ​​​​ұнатады. Дегенмен, біраз уақыттан кейін сіз барлық жақшаларды алып тастауды шеше аласыз, бірақ олардың құжатыңыздың айналасында шашыраңқы көп екенін ғана таба аласыз. Шынымды айтсам, оларды бір-бірден жою үшін мәңгі қажет болуы мүмкін. Оның үстіне, қандай да бір ерекше қажеттіліктен сізге жақшалар арасындағы барлық бос орындарды алып тастау қажет болуы мүмкін.Word құжатындағы жақшалар мен ішкі бос орындарды пакеттік жою

Сондықтан сіз өзіңізді практикалық шешімдермен жабдықтау үшін осы мақаланы оқып шығуыңыз керек.

1-әдіс: «Қосымша табу» пәрменіндегі қойылмалы таңбаларды пайдаланыңыз

  1. Ең алдымен, «Басты» қойындысын басып, «Табу» пәрменіндегі ашылмалы түймені басыңыз.
  2. Содан кейін «Табу және ауыстыру» тілқатысу терезесін ашу үшін ашылмалы мәзірден «Қосымша табу» тармағын таңдаңыз.«Басты» түймесін басыңыз-> «Табу» түймесіндегі көрсеткі түймешігін басыңыз-> «Қосымша іздеу» опциясын таңдаңыз.
  3. Мысалы, барлық шаршы жақшаларды тапқыңыз келсе, «\ [* \]»(тырнақшасыз) «Нені табу» мәтін жолағында.
  4. Одан кейін қосымша опцияларды шығару үшін «Қосымша» түймесін басыңыз.
  5. «Қойылмалы таңбаларды пайдалану» ұяшығына белгі қойыңыз.
  6. Содан кейін «Табу» қойындысын басып, «Негізгі құжатты» таңдаңыз. Сіз барлық төртбұрышты жақшаларды және қоса берілген мәтіндерді таңдауда көресіз, мысалы, төменде:«Нені табу» мәтіндік жолағына жолдарды енгізіңіз-> «Жойылмалы таңбаларды пайдалану» ұяшығына құсбелгі қойыңыз-> «Табу» түймесін басыңыз-> «Негізгі құжатты» таңдаңыз
  7. Енді «Нені табу» мәтіндік жолағын тазалап, «[[\] ]» (тырнақшасыз).
  8. «Табу» түймесін басып, бұл жолы «Ағымдағы таңдауды» таңдаңыз. Сіз барлық төртбұрышты жақшаларды және ішіндегі барлық бос орындарды келесідей таңдауда табасыз:«Нені табу» мәтіндік жолағына жолдарды енгізіңіз-> «Табу» түймесін басыңыз-> «Ағымдағы таңдауды» таңдаңыз
  9. Шаршы жақшалар мен ішіндегі барлық бос орындардан құтылу үшін «Жою» түймесін басыңыз.
  10. Дегенмен, бос орындар қалдырғыңыз келсе, 7-қадамдағы жолдарды «[[\]]«.Тек шаршы жақшаларды таңдаудың әсері

Төмендегі кестеде оларды табу үшін жолдармен немесе ішкі бос орындармен бірге жиі қолданылатын шектегіштердің бірнеше түрлері бар.

кронштейндер Жақшаларды және барлық берілген мәтіндерді табуға арналған жолдар Жақшаларды және ішіндегі барлық бос орындарды табуға арналған жолдар Тек жақшаларды табуға арналған жолдар
Төрт жақшалар

[]

 \ [* \] [[\] ] [[\]]
Жақша

()

 \ (* \) [(\)] [(\)]
Брекет (бұйра жақша)

{}

 \ {* \} [{\} ] [{\}]
Бұрыштық жақшалар

<>

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

2-әдіс: VBA кодтарын іске қосыңыз

  1. Біріншіден, VBA редакторын ашу үшін «Alt + F11» пернелерін басыңыз.
  2. Содан кейін «Қалыпты», содан кейін «Кірістіру» қойындысын басыңыз.
  3. «Модуль» таңдаңыз.«Қалыпты» -> «Кірістіру» -> «Модуль» батырмасын басыңыз
  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» макросында құжатыңыздағы жақшаларды жою үшін қажет жолдарды ғана сақтаңыз және барлық қажет емес код жолдарын алып тастаңыз.

Егер сіз тек жақшалардан құтылғыңыз келсе, кодтарды аздап өзгертуіңіз керек. Құжатыңызда төртбұрышты жақшалар бар делік. Содан кейін «DeleteDelimiters (Selection.Find, «[“, «]», True)» жолына өтіп, «рас«Дейін»жалған«.

  1. Соңында «Іске қосу» батырмасын басыңыз.Кодтарды қою -> «Іске қосу» батырмасын басыңыз

Word мәселелерін шешу

Шынымды айтсам, Word шынымен де көптеген тапсырмаларды орындауға қабілетті. Дегенмен, бұл мінсіз емес. Мәселе туындаған кезде, нәтиже жойқын болуы мүмкін. Сондықтан біз Word бағдарламасындағы кез келген кішігірім проблемаларды ешқашан назардан тыс қалдыра алмаймыз, өйткені ол сізді өлі Word бағдарламасына апаруы мүмкін сыбайлас docx файлдар. Ең жақсы шешім - Word құжаттарын қалпына келтіру үшін кеңейтілген жөндеу құралын алу.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xlsx жөндеу және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.