Хүснэгтийг нэг үгийн баримтаас нөгөө үг рүү задлах 4 арга

Энэ нийтлэлд бид нэг Word баримтаас нөгөө рүү олон хүснэгт задлах 4 аргыг танд үзүүлэхэд таатай байна.

Хүснэгт бол хүснэгтийн мэдээллийг хадгалахад бидний хамгийн их ашигладаг хэрэгсэл юм. Энэ нь өгөгдлийг мөр, баганад байрлуулж, уншигчдад бүх мэдээллийн тодорхой харагдах байдлыг хангадаг. Урт баримт бичигт олон хүснэгт агуулагдаж болох тул тэдгээрийг янз бүрийн зорилгоор шинэ баримт бичигт экспортлох шаардлагатай болдог.

Энд бидний 4 арга барил байна.

Арга 1: Бүх хүснэгтийг нэг баримтаас нөгөөд багцаар экспортлох

1. Юуны өмнө, Word дээр VBA засварлагчийг ажиллуулахын тулд "Alt + F11" товчийг дарна уу.
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