Աղյուսակները մեկ բառի փաստաթղթից մյուսը հանելու 4 մեթոդ

Այս հոդվածում մենք ուրախ ենք ձեզ ցույց տալ 4 մեթոդներ՝ մի քանի աղյուսակներ մի Word փաստաթղթից մյուսը հանելու համար:

Աղյուսակը ամենատարածված միջոցն է աղյուսակային տեղեկատվություն պահելու համար։ Այն տվյալները դասավորում է տողերով և սյուներով՝ ընթերցողներին ներկայացնելով ամբողջ տեղեկատվության հստակ պատկերը։ Երկար փաստաթուղթը կարող է պարունակել բազմաթիվ աղյուսակներ, ուստի անհրաժեշտություն կա դրանք արտահանել նոր փաստաթուղթ՝ տարբեր նպատակներով։

Ահա մեր 4 մոտեցումները.

Մեթոդ 1. խմբաքանակի արտահանում բոլոր աղյուսակները մեկ փաստաթղթից մյուսը

1. Նախևառաջ, սեղմեք «Alt+F11»՝ Word-ում VBA խմբագրիչը գործարկելու համար։
2. Այնուհետև կտտացրեք «Նորմալ» նախագիծը և հաջորդ «Տեղադրեք» ներդիրը:
3. Բացվող ընտրացանկում ընտրեք «Մոդուլ»:
4. Եվ կրկնակի սեղմեք՝ մոդուլը բացելու և աջ կողմում խմբագրման տարածքը դուրս բերելու համար:
5. Այժմ պատճենեք և տեղադրեք հետևյալ մակրոն այնտեղ.

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. Ի վերջո, կտտացրեք «Գործարկել» կոճակին:

Այս մակրոն կհանի և՛ աղյուսակները, և՛ դրանց ենթագրերը:

Մեթոդ 2. փաստաթղթից հանել հատուկ աղյուսակ

Այժմ, եթե ձեր փաստաթղթում շատ աղյուսակներ կան, բայց դուք պետք է մեկ կոնկրետ աղյուսակ ուղարկեք ինչ-որ մեկին: Այնուհետև հետևյալ մակրոն ձեզ շատ կօգնի։

1. Նախ, տեղադրեք և գործարկեք մակրո 1-ին մեթոդի հետևյալ քայլերը:
2. Երկրորդ, փոխարինեք այդ մակրոն հետևյալով.

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. Այժմ կհայտնվի մուտքագրման տուփ:
4. Մուտքագրեք սեղանի համարը և սեղմեք «OK»:

Մեթոդ 3. Բազմաթիվ փաստաթղթերից հանել բոլոր աղյուսակները

1. Սկսելու համար բոլոր ֆայլերը դասավորեք մեկ թղթապանակում։
2. Այնուհետև տեղադրեք և գործարկեք մակրո՝ ճշգրիտ վերը նշված հրահանգներով:
3. Մակրոն փոխարինեք հետևյալով.

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. Այժմ հուշման վանդակում մուտքագրեք թղթապանակի հասցեն, որտեղ պահում եք ձեր փաստաթղթերը և սեղմեք «OK»:

Մեթոդ 4. Պատճենել աղյուսակները ձեռքով

Այնուամենայնիվ, եթե դուք հարմարավետ չեք զգում VBA-ի հետ, դուք լավ եք կատարել աշխատանքը ձեռքով, քանի դեռ կան սահմանափակ թվով աղյուսակներ:

1. Նախ, սեղմեք վերին ձախ անկյունում գտնվող գումարած նշանը՝ նպատակային աղյուսակը ընտրելու համար։
2. Այնուհետև սեղմեք «Ctrl+ C»՝ այն պատճենելու համար:
3. Հաջորդը բացեք նոր փաստաթուղթ:
4. Եվ սեղմեք «Ctrl+ V»՝ աղյուսակը նոր փաստաթղթում տեղադրելու համար:
5. Հիշեք պահպանել նոր փաստաթուղթը:

Փաստաթղթերի հետ կապված խնդիրների լուծում

Քանի դեռ մենք շարունակում ենք օգտագործել Word-ը, միշտ կլինի Բառի վնաս. Այնուամենայնիվ, մի վախեցեք այլևս: Դա այլևս անլուծելի խնդիր չէ: Վերականգնման որակյալ գործիքի միջոցով դուք մեծ հնարավորություն ունեք առբերելու ձեր բոլոր արժեքավոր տվյալները:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված xlsx և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com