ცხრილების ერთი სიტყვის დოკუმენტიდან მეორეზე ამოღების 4 მეთოდი

ამ სტატიაში მოხარული ვართ, რომ გაჩვენოთ 4 მეთოდი, რათა ამოიღოთ მრავალი ცხრილი ერთი Word დოკუმენტიდან მეორეში.

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

აქ არის ჩვენი 4 მიდგომა.

მეთოდი 1: ყველა ცხრილის ჯგუფური ექსპორტი ერთი დოკუმენტიდან მეორეზე

1. პირველ რიგში, Word-ში VBA რედაქტორის გასააქტიურებლად დააჭირეთ Alt+F11-ს.
2. შემდეგ დააწკაპუნეთ "ნორმალური" პროექტზე და შემდეგ ჩანართზე "ჩასმა".
3. აირჩიეთ "მოდული" ჩამოსაშლელ მენიუში.
4. და ორჯერ დააწკაპუნეთ მოდულის გასახსნელად და მარჯვენა მხარეს რედაქტირების ადგილის გამოსატანად.
5. ახლა დააკოპირეთ და ჩასვით შემდეგი მაკრო იქ:

Sub ExtractTablesFromOneDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim objNewDoc As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Selection.Copy
 
    '  Paste tables to new document in rich text format.
    Set objRange = objNewDoc.Range
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.Text = vbCr
  Next objTable
 
End Sub

6. დაბოლოს, დააჭირეთ ღილაკს "Run".

ეს მაკრო ამოიღებს ორივე ცხრილს და მათ წარწერებსაც.

მეთოდი 2: ამოიღეთ კონკრეტული ცხრილი დოკუმენტიდან

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

1. პირველი, დააინსტალირეთ და გაუშვით მაკრო შემდეგი ნაბიჯები მეთოდი 1.
2. მეორე, შეცვალეთ ეს მაკრო ამით:

Sub ExtractSpecificTables()
  Dim objTable As Table
  Dim objDoc As Document
  Dim objNewDoc As Document
  Dim objRange As Range
  Dim strTable As String
 
  strTable = InputBox("Enter the table number: ")
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  objDoc.Tables(strTable).Range.Select
  Selection.Copy
 
  Set objRange = objNewDoc.Range
  objRange.Collapse Direction:=wdCollapseEnd
  objRange.PasteSpecial DataType:=wdPasteRTF
 
End Sub

3. ახლა გამოჩნდება შეყვანის ყუთი.
4. შეიყვანეთ ცხრილის ნომერი და დააჭირეთ "OK".

მეთოდი 3: ჯგუფური ამონაწერი ყველა ცხრილის მრავალი დოკუმენტიდან

1. დასაწყისისთვის, ყველა ფაილი ერთ საქაღალდეში მოათავსეთ.
2. შემდეგ დააინსტალირეთ და გაუშვით მაკრო ზუსტად ზემოთ მოცემული ინსტრუქციებით.
3. შეცვალეთ მაკრო ამით:

Sub ExtractTablesFromMultiDocs()
  Dim objTable As Table
  Dim objDoc As Document, objNewDoc As Document
  Dim objRange As Range
  Dim strFile As String, strFolder As String
 
  '  Initialization
  strFolder = InputBox("Enter folder address here: ")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
 
  Set objNewDoc = Documents.Add
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    Set objDoc = ActiveDocument
 
    For Each objTable In objDoc.Tables
      objTable.Range.Select
      Selection.Copy
 
      Set objRange = objNewDoc.Range
      objRange.Collapse Direction:=wdCollapseEnd
      objRange.PasteSpecial DataType:=wdPasteRTF
      objRange.Collapse Direction:=wdCollapseEnd
      objRange.Text = vbCr
    Next objTable
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
 
End Sub

4. ახლა მოთხოვნის ველში შეიყვანეთ საქაღალდის მისამართი, სადაც ინახავთ თქვენს დოკუმენტებს და დააწკაპუნეთ "OK".

მეთოდი 4: დააკოპირეთ ცხრილები ხელით

თუმცა, თუ თავს კომფორტულად არ გრძნობთ VBA-ში, თქვენ კარგად შეასრულებთ სამუშაოს ხელით, სანამ ცხრილების შეზღუდული რაოდენობაა.

1. პირველ რიგში, სამიზნე ცხრილის ასარჩევად დააწკაპუნეთ პლიუსის ნიშანზე ზედა მარცხენა კუთხეში.
2. შემდეგ დააჭირეთ "Ctrl+ C" მის დასაკოპირებლად.
3. შემდეგ გახსენით ახალი დოკუმენტი.
4. და დააჭირეთ "Ctrl+ V" ცხრილის ჩასმა ახალ დოკუმენტში.
5. გახსოვდეთ ახალი დოკუმენტის შენახვა.

გაუმკლავდეთ დოკუმენტის პრობლემებს

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

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

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