4 módszer táblázatok kinyerésére egyik Word dokumentumból a másikba

Ebben a cikkben örömmel mutatunk be 4 módszert, amellyel több táblázatot bonthat ki egyik Word-dokumentumból a másikba.

táblázat a most A használt azt jelenti, hogy táblázatos információkat tárolunk. Sorokba és oszlopokba rendezi az adatokat, így az olvasók áttekinthetik az összes információt. Egy hosszú dokumentum sok táblát tartalmazhat, ezért különféle célokra új dokumentumba kell exportálni őket.

Íme a 4 megközelítésünk.

1. módszer: Az összes tábla kötegelt exportálása egyik dokumentumból a másikba

1. Első és legelsőost, nyomja meg az „Alt+F11” gombot a VBA-szerkesztő elindításához a Wordben.
2. Ezután kattintson a „Normál” projektre, majd a „Beszúrás” fülre.
3. A legördülő menüben válassza a „Modul” lehetőséget.
4. Kattintson duplán a modul megnyitásához és a jobb oldalon lévő szerkesztési terület megjelenítéséhez.
5. Most másolja és illessze be a következő makrót:

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. Végül kattintson a „Futtatás” gombra.

Ez a makró kibontja mindkét táblázatot és azok feliratait is.

2. módszer: Egy adott táblázat kibontása a dokumentumból

Most arra az esetre, ha sok táblázat van a dokumentumban, de el kell küldenie valakinek egy adott táblát. Akkor a következő makró sokat fog segíteni.

1. Először telepítse és futtassa a makrót az 1. módszer lépései szerint.
2. Másodszor cserélje ki ezt a makrót erre:

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. Most megjelenik egy beviteli mező.
4. Adja meg a táblázat számát, majd kattintson az „OK” gombra.

3. módszer: Az összes tábla kötegelt kibontása több dokumentumból

1. A start és az összes fájlt egy mappába rendezheti.
2. Ezután telepítsen és futtasson egy makrót a fenti utasításokkal.
3. Cserélje ki a makrót erre:

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. Most a felszólító mezőbe írja be a mappa címét, ahol a dokumentumokat tárolja, és kattintson az „OK” gombra.

4. módszer: Másolja ki a táblázatokat manuálisan

Ha azonban nem érzed jól magad a VBA-val, nyugodtan végezheted el a munkát kézzel, amíg korlátozott számú asztal áll rendelkezésre.

1. Először kattintson a bal felső sarokban lévő plusz jelre a kiválasztáshoz tarkap asztalt.
2. Ezután nyomja meg a „Ctrl+C” gombot a másoláshoz.
3. Ezután nyisson meg egy új dokumentumot.
4. És nyomja meg a „Ctrl+V” gombot a táblázat beillesztéséhez egy új dokumentumba.
5. Ne felejtse el menteni az új dokumentumot.

Dokumentumproblémák kezelése

Amíg a Word-t használjuk, mindig lesz Szókárosodás. Azonban ne félj többé. Ez már nem megoldhatatlan probléma. Egy minősített helyreállítási eszközzel nagy eséllyel visszakeresheti az összes értékes adatot.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült xlsx és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com