4 metodes, kā iegūt tabulas no viena Word dokumenta citā

Šajā rakstā mēs priecājamies parādīt jums 4 metodes, kā iegūt vairākas tabulas no viena Word dokumenta citā.

Tabula ir visbiežāk izmantotais līdzeklis, ko izmantojam tabulāras informācijas glabāšanai. Tā sakārto datus rindās un kolonnās, sniedzot lasītājiem skaidru priekšstatu par visu informāciju. Garā dokumentā var būt daudz tabulu, tāpēc dažādiem mērķiem tās ir jāeksportē uz jaunu dokumentu.

Šeit ir mūsu 4 pieejas.

1. metode: visu tabulu eksportēšana no viena dokumenta uz otru

1. Pirmkārt un galvenokārt, nospiediet taustiņu kombināciju “Alt+F11”, lai aktivizētu VBA redaktoru programmā Word.
2. Pēc tam noklikšķiniet uz “Normal” un pēc tam uz cilnes “Insert”.
3. Nolaižamajā izvēlnē izvēlieties “Modulis”.
4. Veiciet dubultklikšķi, lai atvērtu moduli un labajā pusē parādītu rediģēšanas vietu.
5. Tagad tur nokopējiet un ielīmējiet šādu 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. Visbeidzot, noklikšķiniet uz “Palaist”.

Šis makro iegūs gan tabulas, gan to parakstus.

2. metode: Izvelciet no dokumenta īpašu tabulu

Tagad, ja jūsu dokumentā ir daudz tabulu, bet jums ir jānosūta viena konkrēta tabula kādam. Tad šāds makro jums daudz palīdzēs.

1. Vispirms instalējiet un palaidiet makro, veicot 1. metodes darbības.
2. Otrkārt, aizstājiet šo makro ar šo:

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. Tagad parādīsies ievades lodziņš.
4. Ievadiet tabulas numuru un noklikšķiniet uz “OK”.

3. metode: pakotnē izvelciet visas tabulas no vairākiem dokumentiem

1. Lai sāktu, sakārtojiet visus failus vienā mapē.
2. Pēc tam instalējiet un palaidiet makro ar precīziem iepriekš sniegtajiem norādījumiem.
3. Aizstāt makro ar šo:

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. Tagad uzvedņu lodziņā ievadiet mapes adresi, kurā glabājat savus dokumentus, un noklikšķiniet uz Labi.

4. metode: kopēt tabulas manuāli

Tomēr, ja nejūtaties ērti ar VBA, jums ir labi darbu veikt manuāli, ja vien ir ierobežots tabulu skaits.

1. Vispirms noklikšķiniet uz pluszīmes augšējā kreisajā stūrī, lai atlasītu mērķa tabulu.
2. Pēc tam nospiediet “Ctrl + C”, lai to nokopētu.
3. Pēc tam atveriet jaunu dokumentu.
4. Nospiediet “Ctrl + V”, lai ielīmētu tabulu jaunā dokumentā.
5. Neaizmirstiet saglabāt jauno dokumentu.

Rīkoties ar dokumentu problēmām

Kamēr mēs turpināsim lietot Word, tā vienmēr būs Vārdu bojājumi. Tomēr vairs nebaidieties. Tā vairs nav nenovēršama problēma. Izmantojot kvalificētu atkopšanas rīku, jums ir lielas iespējas iegūt visus vērtīgos datus.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp korumpēts xlsx un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar