Word құжатындағы кесте ұяшықтарындағы қажетсіз кеңістікті жоюдың 3 тиімді әдісі

Келесі мақалада біз сізге Word құжатындағы кесте ұяшықтарындағы қажетсіз кеңістікті жоюдың 3 тиімді әдісін ұсынғымыз келеді.

Мәтіндер мен мәліметтерді сақтауға арналған кесте енгізу керек. Бірақ біз мәтіндер мен деректерді енгізгеннен кейін кестенің көлемін жиі өзгертуіміз керек. Кейде біз оның өлшемін реттегеннен кейін ұяшықтардағы қажетсіз бос орындары бар кестені аламыз, мысалы:

Жоғарыдағы мысалда әр ұяшықта мәтіннің астында бос жол бар. Бірақ біз «Жою» батырмасын басу арқылы одан құтыла алмаймыз. Мұның орнына біз басқа уақытша шешімдерді қолдануымыз керек.

1-әдіс: Қатар биіктігін қолмен тарылтыңыз

1. Ең алдымен, ұяшықтарда алынбалы бос жолдар бар-жоғын тексеріңіз. Егер бар болса, алдымен оларды жойыңыз.
2. Содан кейін курсорды кесте жолының төменгі жолына қойыңыз. Меңзер екі көрсеткі бар қос көлденең сызықтар белгісіне ауысқанша күтіңіз.
3. Содан кейін қажет емес кеңістік жоғалғанша төменгі сызықты жоғары қарай сүйреңіз.
4. 2 және 3-қадамдарды кестенің биіктігін өзгерту қажет басқа жолдарда қайталаңыз.

Міне нәтиже:

2-әдіс: «Биіктігін көрсету» функциясын өшіріңіз

1. Алдымен бүкіл кестені таңдау үшін жоғарғы сол жақтағы крест белгісін басыңыз.
2. Содан кейін тінтуірдің оң жағын басып, «Кесте сипаттары» тармағын таңдаңыз.
3. «Кесте сипаттары» өрісінде. Алдымен «Қатар» қойындысын нұқыңыз.
4. Келесі «Биіктігін көрсетіңіз» жолағын тазалаңыз.
5. Соңында «OK» батырмасын басыңыз.

Әсер 1-тәсілдегідей.

3-әдіс: Word макросын қолданыңыз

1. Бастау үшін VBA редакторын ашу үшін «Әзірлеуші», содан кейін «Visual Basic» түймесін басыңыз. Егер таспада «Әзірлеуші» қойындысы болмаса, оның орнына «Alt+ F11» пернелерін басыңыз.
2. Әрі қарай, жаңа модуль жасауға өтіңіз. Сол жақ бағандағы «Қалыпты» батырмасын басыңыз.
3. Содан кейін мәзір жолағында «Кірістіру» батырмасын басыңыз.
4. Ашылмалы мәзірден «Модуль» таңдаңыз.
5. Оны ашу үшін модульді екі рет нұқыңыз.
6. Енді кодтау аймағына келесі кодтарды қойыңыз:

Sub RemoveSpacesInTables()
  Dim objTable As Table
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    If .Tables.Count > 0 Then
      For Each objTable In .Tables
        objTable.Select
        Selection.Rows.HeightRule = wdRowHeightAuto
        Selection.Rows.Height = InchesToPoints(0)
      Next objTable
    Else
      MsgBox ("This document contains no table.")
    End If
  End With
End Sub

7. Соңында «Іске қосу» батырмасын басыңыз немесе «F5» пернесін басу арқылы кодтарды орындаңыз.

Бұл макро құжаттағы барлық кестелерде жұмыс істеп, қажет емес орындарды алып тастауы керек.

3 әдісті салыстыру

Бір кездері құжат бүлінеді

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

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

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