3 hasznos módszer az összes táblázatstílus kötegelt törlésére a Word-dokumentumban

Ebben a cikkben 3 hasznos módszer bemutatására fogunk összpontosítani az összes táblázatstílus kötegelt törlésére a Word-dokumentumban.

Időnként, ha egy Word-táblázatot nem kívánt stílussal alkalmaznak, vagy csökkenti a teljes dokumentum vizuális hatását, törölnie kell a stílusát. Most pedig megmutatjuk, hogyan lehet végrehajtani egy ilyen feladatot.

1. módszer: Törölje az Egyszavas táblázat stílusát

1. Először is, mozgasd a kurzort a céltábla fölé, amíg meg nem jelenik az x jel a táblázat bal felső sarkában.
2. Ezután kattintson a keresztre a teljes táblázat kijelöléséhez.
3. Most aktiválta a „Táblázateszközöket”. Kattintson a „Design” fülre.
4. Ezután kattintson a „Továbbiak” gombra a „Táblázatstílusok” csoportban a legördülő menü megjelenítéséhez.
5. Válassza a „Törlés” opciót.
6. Most a táblázatstílus eltávolítva. Ugyanígy az összes táblázatszegély is. Ha szegélyeket szeretne hozzáadni a táblázathoz, győződjön meg arról, hogy a táblázat ki van jelölve. És kattintson a „Határok” parancs melletti legördülő gombra.
7. És válassza a „Minden határ” lehetőséget.

Íme az eredmény:

2. módszer: Az összes táblázatstílus kötegelt törlése egy dokumentumban

Ha megcsináltuk az egységes táblát, nem lehet kihagyni a kötegelt feldolgozás témáját. Először nézzük meg, hogyan lehet VBA-n keresztül törölni egy dokumentum összes táblázatstílusát.

1. Kezdésként nyomd meg az „Alt+F11” billentyűkombinációt a VBA szerkesztő megjelenítéséhez a Wordben.
2. Ezután kattintson a „Normál” projektre a bal oldali oszlopban.
3. Ezután kattintson a „Beszúrás” gombra a menüsorban.
4. És a legördülő menüben válassza a „Modul” lehetőséget.
5. Nyissa meg a modul kódterét dupla kattintással.
6. Most illessze be oda a következő makrót:

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. Végül kattintson a „Futtatás” gombra.

Ez a makró törli a dokumentum összes táblázatstílusát, alkalmazza rájuk a „Táblázat Normál” stílust, és táblázatszegélyeket is hozzáad.

3. módszer: Törölje kötegesen az összes táblázatstílust több dokumentumban

Most arra az esetre, ha néhány dokumentummal kell foglalkoznia, itt található a makró az összes táblázatstílus törléséhez több dokumentumban.

1. Először is helyezze el az összes dokumentumot egy mappába.
2. A makró telepítéséhez és futtatásához ismételje meg a 2. módszer lépéseit.
3. Csak ezúttal ne felejtse el lecserélni ezt a makrót:

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. A makró futtatásakor megjelenik a „Tallózás” ablak. Az 1. lépésben válassza ki a dokumentumot tárolni kívánt mappát, majd kattintson az „OK” gombra.

Hagyja a többi munkát a makróra.

Az elveszett dokumentumok visszaszerzésének módjai

Elveszett dokumentumok alatt azokat a dokumentumokat értjük, amelyek a következők miatt kerültek veszélybe: A szó korrupciója vagy emberi hibák. Az ilyen dokumentumok kezelése során mindig tartsa szem előtt, hogy azok valamilyen fejlett javítóeszköz segítségével visszakereshetők.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítás xls és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com