4 tapaa purkaa taulukoita yhdestä Word-asiakirjasta toiseen

Tässä artikkelissa näytämme sinulle mielellämme 4 tapaa poimia useita taulukoita yhdestä Word-asiakirjasta toiseen.

Taulukko on yleisimmin käytetty tapa tallentaa taulukkomuotoista tietoa. Se järjestää tiedot riveihin ja sarakkeisiin, jolloin lukijat näkevät kaiken tiedon selkeästi. Pitkä asiakirja voi sisältää useita taulukoita, joten ne on tarpeen viedä uuteen asiakirjaan eri tarkoituksia varten.

Tässä on 4 lähestymistapaamme.

Tapa 1: Erävienti kaikki taulukot asiakirjasta toiseen

1. Ensinnäkin, paina "Alt + F11" käynnistääksesi VBA-editorin Wordissa.
2. Napsauta sitten "Normaali" projekti ja "Lisää" -välilehti seuraavaksi.
3. Valitse avattavasta valikosta Moduuli.
4. Ja kaksoisnapsauta avataksesi moduulin ja tuodaksesi esiin muokkaustilan oikealla puolella.
5. Kopioi ja liitä sinne seuraava makro:

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. Napsauta lopuksi Suorita.

Tämä makro poimii sekä taulukot että niiden kuvatekstit.

Tapa 2: Pura tietty taulukko asiakirjasta

Nyt, jos asiakirjassasi on useita taulukoita, mutta sinun on lähetettävä yksi tietty taulukko jollekin. Sitten seuraava makro auttaa sinua paljon.

1. Asenna ja suorita ensin makro noudattamalla menetelmän 1 vaiheita.
2. Toiseksi, korvaa tämä makro tällä:

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. Nyt näkyviin tulee syöttöruutu.
4. Syötä taulukon numero ja napsauta "OK".

Tapa 3: Eräpoimi kaikki taulukot useista asiakirjoista

1. Aloita järjestämällä kaikki tiedostot yhteen kansioon.
2. Asenna ja suorita sitten makro tarkalla yllä olevilla ohjeilla.
3. Korvaa makro tällä:

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. Kirjoita nyt kehotusruutuun kansion osoite, johon tallennat asiakirjat, ja napsauta "OK".

Tapa 4: Kopioi taulukot manuaalisesti

Jos et kuitenkaan tunne olosi mukavaksi VBA:n kanssa, voit tehdä työn manuaalisesti, kunhan pöytiä on rajoitettu määrä.

1. Napsauta ensin plusmerkkiä vasemmassa yläkulmassa valitaksesi kohdetaulukon.
2. Paina sitten "Ctrl+C" kopioidaksesi sen.
3. Avaa seuraavaksi uusi asiakirja.
4. Ja paina Ctrl+V liittääksesi taulukon uuteen asiakirjaan.
5. Muista tallentaa uusi asiakirja.

Käsittele asiakirja-ongelmia

Niin kauan kuin käytämme Wordia, niitä tulee aina olemaan Sanavahinko. Älä kuitenkaan pelkää enää. Se ei ole enää korjaamaton ongelma. Pätevällä palautustyökalulla sinulla on hyvät mahdollisuudet noutaa kaikki arvokkaat tietosi.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korruptoitunut xlsx ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com