3 noderīgas metodes, lai partijā notīrītu visus tabulas stilus jūsu Word dokumentā

Šajā rakstā mēs koncentrēsimies uz 3 noderīgu metožu demonstrēšanu, lai jūsu Word dokumentā sērijveidā notīrītu visus tabulas stilus.

Ik pa laikam, ja Word tabula tiek lietota ar nevēlamu stilu vai tā samazina visa dokumenta vizuālo efektu, jums ir jāizdzēš tā stils. Tagad parādīsim, kā izpildīt šādu uzdevumu.

1. metode: notīriet viena vārda tabulas stilu

1. Pirmkārt un galvenokārt, pārvietojiet kursoru virs mērķa tabulas, līdz tabulas augšējā kreisajā stūrī redzat krusta zīmi.
2. Pēc tam noklikšķiniet uz krustzīmes, lai atlasītu visu tabulu.
3. Tagad esat aktivizējis “Galda rīki”. Noklikšķiniet uz cilnes “Dizains”.
4. Pēc tam grupā “Galda stili” noklikšķiniet uz pogas “Vairāk”, lai parādītu nolaižamo izvēlni.
5. Izvēlieties opciju “Notīrīt”.
6. Tagad tabulas stils ir noņemts. Tāpat kā visas galda robežas. Lai tabulai pievienotu apmales, pārliecinieties, vai tabula ir atlasīta. Noklikšķiniet uz nolaižamās pogas blakus komandai “Robežas”.
7. Un izvēlieties “Visas robežas”.

Lūk, rezultāts:

2. metode: partijā notīriet visus tabulas stilus vienā dokumentā

Kad esam izveidojuši vienu tabulu, nevar palaist garām tēmu par sērijveida apstrādi. Pirmkārt, redzēsim, kā notīrīt visus dokumenta tabulas stilus, izmantojot VBA.

1. Lai sāktu, nospiediet taustiņu kombināciju “Alt+F11”, lai programmā Word atvērtu VBA redaktoru.
2. Pēc tam kreisajā kolonnā noklikšķiniet uz projekta “Normal”.
3. Pēc tam izvēlņu joslā noklikšķiniet uz “Ievietot”.
4. Un nolaižamajā izvēlnē izvēlieties “Modulis”.
5. Atveriet moduļa kodēšanas vietu, veicot dubultklikšķi uz tā.
6. Tagad tur ielīmējiet šādu makro:

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. Visbeidzot noklikšķiniet uz “Run”.

Šis makro notīra visus dokumenta tabulas stilus, tiem piemēro stilu “Table Normal” un pievieno arī tabulas apmales.

3. metode: partijā notīriet visus tabulas stilus vairākos dokumentos

Tagad, ja jums ir jāizstrādā pāris dokumenti, šeit ir makro, lai notīrītu visus tabulas stilus vairākos dokumentos.

1. Pirmkārt, sakārtojiet visus dokumentus vienā mapē.
2. Atkārtojiet 2. metodes darbības, lai instalētu un palaistu makro.
3. Tikai šoreiz atcerieties aizstāt ar šo makro:

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. Palaižot makro, būs logs “Pārlūkot”. 1. solī atlasiet mapi, kurā saglabājat dokumentu, un noklikšķiniet uz Labi.

Tad atstājiet atlikušo darbu makro ziņā.

Veidi, kā atgūt pazaudētus dokumentus

Ar pazaudētiem dokumentiem mēs domājam dokumentus, kas tiek apdraudēti šādu iemeslu dēļ: Vārdu korupcija vai cilvēku kļūdas. Strādājot ar šādiem dokumentiem, jums vienmēr jāpatur prātā, ka tos var iegūt, izmantojot kādu uzlabotu remonta rīku.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot xls un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar