Word құжатындағы кестенің барлық стильдерін пакеттік тазартудың 3 әдісі

Бұл мақалада біз сізге Word құжатындағы барлық кесте стильдерін тазартудың 3 пайдалы әдісін көрсетуге назар аударамыз.

Кейде Word кестесі қажетсіз стильде қолданылса немесе ол бүкіл құжаттың визуалды әсерін төмендетсе, оның мәнерін тазарту қажет. Енді осындай тапсырманы қалай орындау керектігін көрсетейік.

1-әдіс: Бір сөз кестесінің мәнерін тазарту

1. Ең алдымен, курсорды кестенің жоғарғы сол жақ бұрышында крест белгісін көргенше мақсатты кестенің үстіне жылжытыңыз.
2. Содан кейін кестені толығымен таңдау үшін крест белгісін басыңыз.
3. Енді сіз «Кесте құралдары» іске қосылдыңыз. «Дизайн» қойындысын нұқыңыз.
4. Содан кейін ашылмалы мәзірді көрсету үшін «Кесте мәнерлері» тобындағы «Қосымша» батырмасын басыңыз.
5. «Тазарту» опциясын таңдаңыз.
6. Енді кесте стилі алынып тасталды. Кестенің барлық шекаралары бірдей. Кестеге жиектер қосу үшін кестенің таңдалғанына көз жеткізіңіз. «Шектер» командасының жанындағы ашылмалы батырманы басыңыз.
7. «Барлық шекаралар» таңдаңыз.

Міне нәтиже:

2-әдіс: кестедегі барлық стильдерді бір құжатта тазарту

Бір кестені жасағаннан кейін, пакеттік өңдеу тақырыбын өткізіп жіберуге болмайды. Алдымен, VBA арқылы құжаттағы барлық кесте стилдерін қалай тазартуға болатынын қарастырайық.

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

Sub ClearTableStylesInADoc()
  Dim objTable As Table
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objTable In objDoc.Tables
    objTable.Style = "Table Normal"
    objTable.Borders.Enable = True
  Next objTable
 
  Application.ScreenUpdating = True
 
  Set objDoc = Nothing
End Sub

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

Бұл макро құжаттағы барлық кесте стильдерін тазартады, оларға «Кесте қалыпты» стилін қолданады және кесте шекараларын да қосады.

3-әдіс: бірнеше құжаттардағы кестенің барлық стильдерін пакеттік түрде тазарту

Енді сізде бір-екі құжат бар болса, бірнеше құжаттардағы барлық кесте стильдерін тазартуға арналған макросты ұсынамыз.

1. Біріншіден, барлық құжаттарды бір папкаға орналастырыңыз.
2. Макросты орнату және іске қосу үшін 2-әдіс бойынша қайталаңыз.
3. Тек осы уақытта мына макросты ауыстыруды ұмытпаңыз:

Sub ClearTableStylesInMultiDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim StrFolder As String
  Dim strFile As String
  Dim dlgFile As FileDialog
 
  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)
    Set objDoc = ActiveDocument
 
    For Each objTable In objDoc.Tables
      objTable.Style = "Table Normal"
      objTable.Borders.Enable = True
    Next objTable
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Макросты іске қосқанда «Шолу» терезесі пайда болады. 1-қадамда құжатты сақтайтын қалтаны таңдап, «ОК» батырмасын басыңыз.

Қалған жұмысты макроға қалдырыңыз.

Жоғалған құжаттарды қалпына келтіру жолдары

Жоғалған құжаттар деп біз құжаттардың бұзылуына байланысты екенін айтамыз Сөздердің бұзылуы немесе адамның қателіктері. Мұндай құжаттармен жұмыс істеген кезде оларды жөндеудің жетілдірілген құралының көмегімен алуға болатындығын әрдайым есте ұстаған жөн.

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

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