Cədvəlləri bir Word sənədindən digərinə çıxarmaq üçün 4 üsul

Bu yazıda sizə bir Word sənədindən digərinə birdən çox cədvəl çıxarmaq üçün 4 üsul göstərməkdən məmnunuq.

Cədvəl cədvəl məlumatlarını saxlamaq üçün ən çox istifadə etdiyimiz vasitədir. O, məlumatları sətir və sütunlarda yerləşdirir və oxuculara bütün məlumatların aydın görünüşünü təqdim edir. Uzun bir sənəddə bir çox cədvəl ola bilər, buna görə də onları müxtəlif məqsədlər üçün yeni bir sənədə ixrac etmək lazımdır.

Budur bizim 4 yanaşmamız.

Metod 1: Bütün cədvəlləri bir sənəddən digərinə toplu ixrac edin

1. İlk növbədə, Word-də VBA redaktorunu işə salmaq üçün "Alt" + "F11" düymələrini basın.
2. Sonra "Normal" layihəsini və növbəti "Daxil et" sekmesini vurun.
3. Açılan menyuda "Modul" seçin.
4. Və modulu açmaq üçün iki dəfə klikləyin və sağ tərəfdəki redaktə yerini çıxarın.
5. İndi aşağıdakı makronu kopyalayıb oraya yapışdırın:

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. Nəhayət, "Çalıştır" düyməsini basın.

Bu makro həm cədvəlləri, həm də onların başlıqlarını çıxaracaq.

Metod 2: Sənəddən Xüsusi Cədvəl çıxarın

İndi, əgər sənədinizdə çoxlu cədvəl varsa, ancaq kiməsə xüsusi bir cədvəl göndərməlisiniz. Onda aşağıdakı makro sizə çox kömək edəcək.

1. Əvvəlcə 1-ci üsuldakı addımları izləyən makroları quraşdırın və işə salın.
2. İkincisi, həmin makronu bununla əvəz edin:

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. İndi açılan bir giriş qutusu olacaq.
4. Cədvəl nömrəsini daxil edin və "OK" düyməsini basın.

Metod 3: Bütün Cədvəlləri Çox Sənəddən Toplu çıxarın

1. Başlamaq üçün bütün faylları bir qovluğa yerləşdirin.
2. Sonra yuxarıda göstərilən təlimatlarla bir makro quraşdırın və işə salın.
3. Makronu bununla əvəz edin:

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. İndi tələb olunan qutuda sənədlərinizi saxladığınız qovluq ünvanını daxil edin və "OK" düyməsini basın.

Metod 4: Cədvəlləri əl ilə köçürün

Bununla belə, əgər VBA ilə özünüzü rahat hiss etmirsinizsə, məhdud sayda masalar olduğu müddətcə işi əl ilə edə bilərsiniz.

1. Əvvəlcə hədəf cədvəlini seçmək üçün yuxarı sol küncdəki artı işarəsini vurun.
2. Sonra onu kopyalamaq üçün "Ctrl + C" düyməsini basın.
3. Sonra yeni bir sənəd açın.
4. Və cədvəli yeni sənədə yapışdırmaq üçün "Ctrl + V" düyməsini basın.
5. Yeni sənədi saxlamağı unutmayın.

Sənəd problemləri ilə məşğul olun

Nə qədər ki, biz Word-dən istifadə etməyə davam edirik, həmişə olacaq Sözün zədələnməsi. Bununla belə, artıq qorxma. Bu artıq həll edilə bilməyən problem deyil. İxtisaslı bərpa aləti ilə bütün dəyərli məlumatlarınızı əldə etmək şansınız yüksəkdir.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xarab xlsx və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com