3 naudingi metodai, kaip paketais išvalyti visus lentelių stilius savo Word dokumente

Šiame straipsnyje mes sutelksime dėmesį į 3 naudingų būdų, kaip išvalyti visus lentelių stilius „Word“ dokumente, demonstravimą.

Kartkartėmis, jei „Word“ lentelė taikoma nepageidaujamu stiliumi arba sumažina viso dokumento vizualinį efektą, turite išvalyti jos stilių. Dabar parodysime, kaip atlikti tokią užduotį.

1 būdas: išvalykite vieno žodžio lentelės stilių

1. Visų pirma, užveskite žymeklį ant norimos lentelės, kol viršutiniame kairiajame lentelės kampe pamatysite kryželio ženklą.
2. Tada spustelėkite kryžiaus ženklą, kad pasirinktumėte visą lentelę.
3. Dabar suaktyvinote „Lentelės įrankius“. Spustelėkite skirtuką „Dizainas“.
4. Tada spustelėkite mygtuką „Daugiau“ grupėje „Lentelių stiliai“, kad būtų rodomas išskleidžiamasis meniu.
5. Pasirinkite parinktį „Išvalyti“.
6. Dabar lentelės stilius pašalintas. Taip pat visos lentelės kraštinės. Norėdami prie lentelės pridėti kraštinių, įsitikinkite, kad lentelė pasirinkta. Ir spustelėkite išskleidžiamąjį mygtuką šalia komandos „Sienos“.
7. Ir pasirinkite „Visos sienos“.

Štai rezultatas:

2 metodas: išvalykite visus lentelės stilius viename dokumente

Kai padarysime vieną lentelę, negalima praleisti paketinio apdorojimo temos. Pirmiausia pažiūrėkime, kaip išvalyti visus lentelių stilius dokumente naudojant VBA.

1. Norėdami pradėti, paspauskite „Alt“ + F11, kad būtų rodomas VBA redaktorius programoje „Word“.
2. Tada kairiajame stulpelyje spustelėkite projektą „Normalus“.
3. Tada meniu juostoje spustelėkite „Įterpti“.
4. Ir išskleidžiamajame meniu pasirinkite „Modulis“.
5. Atidarykite modulio kodavimo erdvę dukart spustelėdami ją.
6. Dabar ten įklijuokite šią makrokomandą:

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. Galiausiai spustelėkite „Vykdyti“.

Ši makrokomanda išvalo visus dokumento lentelių stilius, pritaiko jiems stilių „Table Normal“ ir taip pat prideda lentelės kraštines.

3 būdas: išvalykite visus lentelių stilius keliuose dokumentuose

Dabar, jei turite susitvarkyti su keliais dokumentais, čia yra makrokomanda, skirta išvalyti visus lentelių stilius keliuose dokumentuose.

1. Pirmiausia sudėkite visus dokumentus į vieną aplanką.
2. Norėdami įdiegti ir paleisti makrokomandą, pakartokite 2 metodo veiksmus.
3. Tik šį kartą nepamirškite pakeisti šia makrokomanda:

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. Vykdant makrokomandą bus langas „Naršyti“. 1 veiksme pasirinkite aplanką, kuriame saugote dokumentą, ir spustelėkite „Gerai“.

Tada palikite likusį darbą makrokomandai.

Būdai susigrąžinti prarastus dokumentus

Pamestomis dokumentais vadiname dokumentus, kurie buvo pažeisti dėl... Žodžių korupcija arba žmogiškos klaidos. Dirbdami su tokiais dokumentais visada turėtumėte nepamiršti, kad juos galima atkurti naudojant tam tikrą pažangų taisymo įrankį.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas xls bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com