ამ სტატიაში გვინდა გაჩვენოთ 2 სწრაფი და მარტივი გამოსაყენებელი მეთოდი თქვენი Word დოკუმენტის ტექსტური ყუთებიდან ტექსტების ამოსაღებად.
დროდადრო, ჩვენ შეგვიძლია მივიღოთ Word ფაილი, რომელიც შეიცავს დიდი რაოდენობით ტექსტურ ყუთებს. ჩვეულებრივ, ამ ყუთებში იქნება ტექსტები ან შედარებითი შინაარსი. მაშინ შეიძლება საჭირო გახდეს მხოლოდ ტექსტების შიგნით მიღება, მთელი ტექსტური ველის შენახვის ნაცვლად.
რა თქმა უნდა, სწრაფია სიტყვების მოძიება ერთი ტექსტის ველში უბრალოდ ტექსტის კოპირებით და სხვაგან ჩასმით. თუმცა, როდესაც საქმე ასობით მათგანს ეხება, უმჯობესია ვისწავლოთ რამდენიმე სწრაფი რჩევა სამუშაოს შესასრულებლად.
მეთოდი 1: გამოიყენეთ "შერჩევის პანელი"
- პირველ რიგში, დააჭირეთ ღილაკს "მთავარი".
- შემდეგ დააჭირეთ "აირჩიეთ" ხატულას "რედაქტირების" ჯგუფში.
- შემდეგი, ჩამოსაშლელი მენიუში აირჩიეთ "შერჩევის პანელი".
- ახლა ეკრანის მარჯვენა მხარეს ხედავთ ყველა ტექსტურ ყუთს, რომელიც ჩანს პანელზე.
- დააჭირეთ "Ctrl" და დააწკაპუნეთ ტექსტის ყუთების სახელებზე სათითაოდ, რათა აირჩიოთ ისინი.
- და გადადით კურსორის დასაყენებლად ერთ-ერთ უჯრაზე და დააწკაპუნეთ მარჯვენა ღილაკით.
- სიაში, დააჭირეთ ღილაკს "კოპირება". ახლა თუ აღარ დაგჭირდებათ ეს ყუთები, უბრალოდ დააჭირეთ "წაშლას".
- შემდეგ დააჭირეთ ღილაკს „დაწყება“, რომ ნახოთ Windows-ის მენიუ.
- აირჩიეთ "WordPad" და გახსენით იგი.
- შემდეგ დააწკაპუნეთ „ჩასმა“ ტექსტის ველებიდან ყველა ტექსტის მისაღებად.
- შემდეგი, აირჩიეთ ყველა ტექსტი და დააწკაპუნეთ მარჯვენა ღილაკით, რათა აირჩიოთ "ასლი".
- ახლა გახსენით ახალი Word დოკუმენტი და დააწკაპუნეთ მარჯვენა ღილაკით, რათა აირჩიოთ „მხოლოდ ტექსტის შენარჩუნება“ ტექსტის მისაღებად.
მეთოდი 2: გამოიყენეთ VBA კოდები
როგორც ხედავთ, პირველი მეთოდითაც კი ვერ აიცილებთ ყველა ტექსტური ველის არჩევას. იმ შემთხვევაში, თუ ზოგიერთ თქვენგანს უბრალოდ სძულს ასეთი შრომითი სამუშაო, აქ ჩვენ შემოგთავაზებთ მაკრო მუშაობის გზას. მეთოდი 2, შეგიძლიათ ამოიღოთ ყველა ტექსტი ერთი ნაბიჯით და წაშალოთ ტექსტური ველები.
- პირველ რიგში, დააჭირეთ "Alt+ F11" VBA რედაქტორის გასახსნელად.
- მეორეც, დააჭირეთ ღილაკს "ნორმალური" და შემდეგ "ჩასმა".
- შემდეგი, აირჩიეთ "მოდული" ახალი ჩასასმელად.
- შემდეგ ორჯერ დააწკაპუნეთ მოდულის სახელზე, რათა გახსნათ რედაქტირების არეალი.
- ჩასვით შემდეგი კოდები და დააჭირეთ "გაშვებას":
Sub DeleteTextBoxesAndExtractTheText()
Dim nNumber As Integer
Dim strText As String
' Delete all textboxes and extract the text from them
With ActiveDocument
For nNumber = .Shapes.Count To 1 Step -1
If .Shapes(nNumber).Type = msoTextBox Then
strText=strText& .Shapes(nNumber).TextFrame.TextRange.Text & vbCr
.Shapes(nNumber).Delete
End If
Next
End With
' Open a new document to paste the text from textboxes.
If strText <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strText
Else
MsgBox ("There is no textbox.")
End If
End Sub
აი, რას მიიღებთ სავარაუდოდ:
გაუმკლავდეთ Wrecked Word ფაილებს
სიტყვა მიდრეკილია შეცდომებისკენ და, შესაბამისად, ხშირია კორუფციის მსხვერპლი. ამიტომ, თქვენ უნდა მართოთ თქვენი დოკუმენტები სწორად, რათა დაიცვათ ისინი დაზიანებისგან. ერთხელაც ისინი გახრწნილები იქნებით მათი სამუდამოდ დაკარგვის რისკის წინაშე. მაშინ მოგიწევთ გამოიყენოთ დაზიანებული Word მონაცემთა აღდგენის ინსტრუმენტი.
ავტორი შესავალი:
ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Excel ფაილის შეცდომების აღდგენის ინსტრუმენტი მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად