3 სასარგებლო მეთოდი თქვენს Word დოკუმენტში ცხრილის ყველა სტილის ჯგუფურად გასასუფთავებლად

ამ სტატიაში ჩვენ ყურადღებას გავამახვილებთ თქვენს 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. ბოლოს დააჭირეთ "Run".

ეს მაკრო ასუფთავებს ცხრილის ყველა სტილს დოკუმენტში, იყენებს მათ "ცხრილის ნორმალურ" სტილს და ამატებს ცხრილის საზღვრებსაც.

მეთოდი 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. მაკროს გაშვებისას გამოჩნდება "Browse" ფანჯარა. აირჩიეთ საქაღალდე, რომელსაც ინახავთ დოკუმენტი ნაბიჯი 1-ში და დააჭირეთ "OK".

დატოვეთ დანარჩენი სამუშაო მაკროზე მაშინ.

დაკარგული დოკუმენტების დაბრუნების გზები

დაკარგული დოკუმენტების ქვეშ ვგულისხმობთ, რომ დოკუმენტები კომპრომეტირებულია შემდეგი მიზეზების გამო: სიტყვების კორუფცია ან ადამიანური შეცდომები. ასეთ დოკუმენტებთან ურთიერთობისას ყოველთვის უნდა გახსოვდეთ, რომ მათი მოძიება შესაძლებელია მოწინავე სარემონტო ხელსაწყოს დახმარებით.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის xls შეკეთება მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად