Jadvallarni bitta so'zli hujjatdan boshqasiga chiqarishning 4 usuli

Ushbu maqolada biz sizga bir Word hujjatidan boshqasiga bir nechta jadvallarni chiqarishning 4 usulini ko'rsatishdan mamnunmiz.

Jadval jadval ko'rinishidagi ma'lumotlarni saqlash uchun eng ko'p ishlatiladigan vositadir. U ma'lumotlarni qatorlar va ustunlarga joylashtiradi va o'quvchilarga barcha ma'lumotlarni aniq ko'rinishda taqdim etadi. Uzun hujjatda ko'plab jadvallar bo'lishi mumkin, shuning uchun ularni turli maqsadlar uchun yangi hujjatga eksport qilish zarurati tug'iladi.

Mana bizning 4 ta yondashuvimiz.

1-usul: Barcha jadvallarni bir hujjatdan boshqasiga to'plamli eksport qilish

1. Avvalo, Word dasturida VBA muharririni ishga tushirish uchun "Alt + F11" tugmalarini bosing.
2. Keyin "Oddiy" loyihani va keyingi "Qo'shish" yorlig'ini bosing.
3. Ochilgan menyuda "Module" ni tanlang.
4. Va modulni ochish uchun ikki marta bosing va o'ng tarafdagi tahrirlash maydonini chiqaring.
5. Endi u erga quyidagi makrosni nusxa ko'chiring va joylashtiring:

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. Nihoyat, "Ishga tushirish" tugmasini bosing.

Ushbu makros ikkala jadval va ularning sarlavhalarini ham chiqaradi.

2-usul: Hujjatdan maxsus jadvalni ajratib oling

Endi, agar hujjatingizda jadvallar ko'p bo'lsa, lekin siz kimgadir ma'lum bir jadvalni yuborishingiz kerak. Keyin quyidagi makros sizga katta yordam beradi.

1. Birinchidan, 1-usuldagi amallarni bajarib, makrosni o'rnating va ishga tushiring.
2. Ikkinchidan, ushbu makroni bu bilan almashtiring:

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. Endi kirish oynasi paydo bo'ladi.
4. Jadval raqamini kiriting va "OK" tugmasini bosing.

3-usul: Bir nechta hujjatlardan barcha jadvallarni to'plamdan ajratib oling

1. Boshlash uchun barcha fayllarni bitta papkaga joylashtiring.
2. Keyin yuqoridagi ko'rsatmalar bilan makrosni o'rnating va ishga tushiring.
3. Makrosni shu bilan almashtiring:

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. Endi so'rov maydoniga hujjatlaringiz saqlanadigan papka manzilini kiriting va "OK" tugmasini bosing.

4-usul: Jadvallarni qo'lda nusxalash

Biroq, agar VBA bilan o'zingizni qulay his qilmasangiz, jadvallar soni cheklangan bo'lsa, ishni qo'lda bajarishingiz mumkin.

1. Birinchidan, maqsadli jadvalni tanlash uchun yuqori chap burchakdagi ortiqcha belgini bosing.
2. Keyin uni nusxalash uchun "Ctrl + C" tugmasini bosing.
3. Keyin yangi hujjatni oching.
4. Jadvalni yangi hujjatga joylashtirish uchun "Ctrl + V" tugmasini bosing.
5. Yangi hujjatni saqlashni unutmang.

Hujjat bilan bog'liq muammolarni hal qilish

Biz Word dan foydalanishda davom etar ekanmiz, har doim mavjud bo'ladi So'zning shikastlanishi. Biroq, endi qo'rqmang. Bu endi tuzatib bo'lmaydigan muammo emas. Malakali tiklash vositasi yordamida barcha qimmatli ma'lumotlarni qayta tiklash imkoniyati yuqori bo'ladi.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan xlsx va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com