ამ სტატიაში ჩვენ გვსურს გაგიზიაროთ 2 მარტივი მეთოდი შინაარსის დასარეგულირებლად, რათა მოერგოს თქვენს Word ცხრილის უჯრედებს.
Word დოკუმენტის ცხრილთან მუშაობისას, ძნელია იმის უზრუნველყოფა, რომ ცხრილის ყველა უჯრედი დარჩეს ფიქსირებულ ზომაში. ჩვეულებრივ, უჯრედში მეტი სიტყვის შეყვანით, ის ავტომატურად ახვევს ტექსტს. ქვემოთ მოცემულია მაგალითი:
ეს, რა თქმა უნდა, არ არის თვალისმომჭრელი. რას იტყვით მაგიდის ზომის დაფიქსირების გზების პოვნაზე, მაგრამ შინაარსის მორგება?
ქვემოთ მოცემულია 2 გზა:
მეთოდი 1: გაშალეთ მაგიდა ერთჯერადად
- თავდაპირველად დააჭირეთ პლიუს ნიშანს ცხრილის ზედა მარცხენა კუთხეში მის ასარჩევად.
- შემდეგ არჩეულ ცხრილზე დააწკაპუნეთ მარჯვენა ღილაკით.
- შემდეგ აირჩიეთ "ცხრილის თვისებები".
- ახლა "ცხრილის თვისებები" დიალოგურ ფანჯარაში, ჯერ დააწკაპუნეთ ჩანართზე "უჯრედი".
- შემდეგ დააწკაპუნეთ "ოფციები" ყუთის მარჯვენა ქვედა კუთხეში.
- ახლა თქვენ გახსნით "უჯრედის პარამეტრები" დიალოგურ ფანჯარას. გადადით "პარამეტრები" ნაწილზე და გაასუფთავეთ ველი "შეფუთვა ტექსტი".
- და ამის ნაცვლად მონიშნეთ ველი „ტექსტის მორგება“.
- შემდეგ დააჭირეთ ღილაკს "OK".
- და გახსოვდეთ, რომ დააწკაპუნეთ "OK" დიალოგურ ფანჯარაში "ცხრილის თვისებები".
ახლა შინაარსის განლაგება შესაბამისად შეიცვლება. აი რას მიიღებთ:
მეთოდი 2: გამოიყენეთ VBA კოდები
VBA რედაქტორი Word-ში გაძლევთ საშუალებას აკრიფოთ კოდები, რათა დააკონფიგურიროთ თქვენი საკუთარი Word-ის ფუნქციები, რათა სამუშაოები სწრაფად და კარგად შესრულდეს. ასე რომ, თქვენ შეგიძლიათ კომფორტულად გამოიყენოთ კოდები, რათა მოხდეს სასწაული.
- პირველ რიგში, დააწკაპუნეთ ჩანართზე „დეველოპერები“. თუ ის უკვე არ გაქვთ, შეგიძლიათ იხილოთ ეს სტატია: როგორ ჩასვათ ფონის მუსიკა თქვენს Word დოკუმენტში
- შემდეგ დააჭირეთ "Visual Basic"-ს VBA რედაქტორის გასახსნელად.
- VBA რედაქტორში იპოვეთ პროექტი დოკუმენტის სახელით და დააწკაპუნეთ "ThisDocument".
- შემდეგი, დააწკაპუნეთ "ჩასმა" ინსტრუმენტთა პანელზე.
- და აირჩიეთ "მოდული" მენიუში.
- ახლა თქვენ გახსნით რედაქტირების ზონას, უბრალოდ ჩასვით კოდები იქ:
Sub AutoFitTextForAllTableCells()
' Check if there are any tables in the document
If ActiveDocument.Tables.Count > 0 Then
Dim objTable As Table
Dim objCell As Cell
' Process each cell in each table and set the options accordingly
For Each objTable In ActiveDocument.Tables
For Each objCell In objTable.Range.Cells
objCell.WordWrap = False
objCell.FitText = True
Next
Next
Else
MsgBox("There is no table in this document!")
End If
End Sub
მოემზადეთ მოსალოდნელი მარცხისთვის
ინციდენტები ყოველთვის შეგაწუხებთ. ასე რომ, საუკეთესო გზაა დროის დახარჯვა და მომზადება. სიფრთხილის ზომები შეიძლება მოიცავდეს ფაილების სარეზერვო ასლს და გარკვეული თანხის დახარჯვას ა დაზიანებული Word doc აღდგენის ინსტრუმენტი. იმის გამო, რომ მონაცემთა დაკარგვა შეიძლება ნებისმიერს დაემართოს ნებისმიერ ადგილას, დროა რაღაცის გაკეთება.
ავტორი შესავალი:
ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Excel მონაცემთა შეცდომის გამოსწორების ინსტრუმენტი მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად