Այս հոդվածում մենք կենտրոնանալու ենք ձեր Word փաստաթղթում սեղանի բոլոր ոճերը խմբաքանակով մաքրելու համար 3 օգտակար մեթոդ ցուցադրելու վրա:
Մեկ-մեկ, եթե Word աղյուսակը կիրառվում է անցանկալի ոճով կամ այն նվազեցնում է ամբողջ փաստաթղթի տեսողական էֆեկտը, դուք պետք է մաքրեք դրա ոճը: Հիմա եկեք ձեզ ցույց տանք, թե ինչպես կատարել այդպիսի առաջադրանքը:
Մեթոդ 1. Մաքրել մեկ բառի աղյուսակի ոճը
- Նախ և առաջ, տեղափոխեք կուրսորը թիրախային աղյուսակի վրայով, մինչև աղյուսակի վերին ձախ անկյունում չտեսնեք խաչի նշանը։
- Հաջորդը կտտացրեք խաչի նշանին ՝ ամբողջ աղյուսակն ընտրելու համար:
- Այժմ դուք գործարկել եք «Սեղանի գործիքները»: Կտտացրեք «Դիզայն» ներդիրին:
- Դրանից հետո կտտացրեք «Ավելին» կոճակին «Սեղանի ոճեր» խմբում `բացվող ցանկը ցույց տալու համար:
- Ընտրեք «Մաքրել» տարբերակը:
- Այժմ սեղանի ոճը հանված է: Այսպիսով, բոլոր սեղանի սահմանները: Սեղանին սահմաններ ավելացնելու համար համոզվեք, որ սեղանն ընտրված է: Եվ կտտացրեք «Սահմաններ» հրամանի կողքին գտնվող բացվող կոճակի վրա:
- Եվ ընտրեք «Բոլոր սահմանները»:
Ահա արդյունքը.
Մեթոդ 2. Խմբաքանակը մաքրել աղյուսակի բոլոր ոճերը մեկ փաստաթղթում
Երբ մենք կատարեցինք միասնական աղյուսակը, խմբաքանակի մշակման թեման հնարավոր չէ բաց թողնել: Նախ, եկեք տեսնենք, թե ինչպես մաքրել աղյուսակի բոլոր ոճերը փաստաթղթում VBA- ի միջոցով:
- Սկսելու համար սեղմեք «Alt+F11»՝ Word-ում VBA խմբագրիչը ցուցադրելու համար։
- Հաջորդը կտտացրեք ձախ սյունակի «Նորմալ» նախագծին:
- Դրանից հետո կտտացրեք «Տեղադրել» ցանկի տողում:
- Բացվող ընտրացանկում ընտրեք «Մոդուլ»:
- Բացեք մոդուլի կոդավորման տարածքը ՝ կրկնակի սեղմելով այն:
- Այժմ այնտեղ տեղադրեք հետևյալ մակրոը.
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
- Վերջապես կտտացրեք «Վազել» կոճակին:
Այս մակրոը մաքրում է փաստաթղթի բոլոր աղյուսակների ոճերը, դրանց վրա կիրառում է «Աղյուսակի նորմալ» ոճը և ավելացնում է նաև սեղանի սահմանները:
Մեթոդ 3. Բազմաթիվ փաստաթղթերում խմբաքանակով մաքրել աղյուսակի բոլոր ոճերը
Եթե մի քանի փաստաթուղթ ունեք գործ ունենալու, ահա մի քանի փաստաթղթերում սեղանի բոլոր ոճերը մաքրելու մակրո է:
- Նախ, բոլոր փաստաթղթերը դասավորեք մեկ թղթապանակում:
- Մակրո տեղադրելու և գործարկելու համար 2-րդ մեթոդի կրկնվող քայլերը:
- Միայն այս անգամ հիշեք, որ փոխարինեք այս մակրոով.
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
- Գործարկելով մակրոը ՝ կլինի «rowննարկել» պատուհանը: Քայլ 1-ում ընտրեք փաստաթուղթը պահած պահոցը և կտտացրեք «Լավ»:
Մնացած գործը թող այդ ժամանակ մակրոին:
Կորած փաստաթղթերը վերականգնելու եղանակներ
Կորած փաստաթղթեր ասելով մենք նկատի ունենք, որ փաստաթղթերը վնասվել են հետևյալ պատճառով՝ Բառերի կոռուպցիա կամ մարդկային սխալներ: Նման փաստաթղթերի հետ գործ ունենալիս միշտ պետք է հիշել, որ դրանք հնարավոր է ստանալ որոշ նորոգված նորոգման գործիքի միջոցով:
Հեղինակի ներածություն.
Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում նորոգել xls և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com





