4 metode za izdvajanje tabela iz jednog Word dokumenta u drugi

U ovom članku drago nam je da vam pokažemo 4 metode za izdvajanje više tabela iz jednog Word dokumenta u drugi.

Tabela je najčešće korišteno sredstvo za pohranjivanje tabelarnih informacija. Ona organizira podatke u redove i kolone, pružajući čitateljima jasan pregled svih informacija. Dugačak dokument može sadržavati mnogo tabela, tako da postoji potreba za njihovim izvozom u novi dokument iz različitih razloga.

Evo naša 4 pristupa.

Metoda 1: Grupni izvoz svih tabela iz jednog dokumenta u drugi

1. Prvo i najvažnije, pritisnite "Alt+F11" da biste pokrenuli VBA editor u Wordu.
2. Zatim kliknite na "Normal" projekat i na karticu "Insert".
3. Odaberite “Module” na padajućem izborniku.
4. I dvaput kliknite da otvorite modul i otvorite prostor za uređivanje na desnoj strani.
5. Sada kopirajte i zalijepite sljedeći makro tamo:

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. Na kraju, kliknite "Pokreni".

Ovaj makro će izdvojiti i tabele i njihove natpise.

Metoda 2: Izdvojite određenu tabelu iz dokumenta

Sada, u slučaju da u vašem dokumentu postoji mnogo tabela, ali morate nekome poslati jednu određenu tabelu. Tada će vam sljedeći makro mnogo pomoći.

1. Prvo, instalirajte i pokrenite makro slijedeći korake iz metode 1.
2. Drugo, zamijenite taj makro sa ovim:

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. Sada će se pojaviti okvir za unos.
4. Unesite broj tabele i kliknite na “OK”.

Metoda 3: Grupno izdvajanje svih tabela iz više dokumenata

1. Za početak, sve datoteke složite u jednu mapu.
2. Zatim instalirajte i pokrenite makro sa tačnim gore navedenim uputstvima.
3. Zamijenite makro sa ovim:

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. Sada u okvir sa upitom unesite adresu fascikle u kojoj pohranjujete svoje dokumente i kliknite na “OK”.

Metod 4: Ručno kopirajte tabele

Međutim, ako se ne osjećate ugodno sa VBA-om, posao možete obaviti ručno sve dok postoji ograničen broj tabela.

1. Prvo, kliknite na znak plus u gornjem lijevom uglu da biste odabrali ciljnu tabelu.
2. Zatim pritisnite “Ctrl+ C” da ga kopirate.
3. Zatim otvorite novi dokument.
4. I pritisnite “Ctrl+ V” da zalijepite tablicu u novi dokument.
5. Ne zaboravite da sačuvate novi dokument.

Rješavanje problema s dokumentima

Sve dok koristimo Word, uvijek će ga postojati Oštećenje riječi. Međutim, ne plašite se više. To više nije nepopravljiv problem. Uz kvalificirani alat za oporavak, imate velike šanse da povratite sve svoje vrijedne podatke.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući corrupt xlsx i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com