ဇယားကွက်များကို စာလုံးတစ်လုံးမှ အခြားတစ်ခုသို့ ထုတ်ယူရန် နည်းလမ်း ၄ ခု

ဤဆောင်းပါးတွင်၊ Word document တစ်ခုမှ တစ်ခုသို့ ဇယားများစွာကို ထုတ်ယူရန် နည်းလမ်း 4 ခုဖြင့် သင့်အား ပြသရန် ဝမ်းမြောက်မိပါသည်။

ဇယားသည် ဇယားပါ အချက်အလက်များကို သိမ်းဆည်းရန်အတွက် ကျွန်ုပ်တို့ အသုံးအများဆုံး နည်းလမ်းဖြစ်သည်။ ၎င်းသည် ဒေတာများကို အတန်းနှင့် ကော်လံများဖြင့် စီစဉ်ပေးသောကြောင့် စာဖတ်သူများအနေဖြင့် အချက်အလက်အားလုံးကို ရှင်းရှင်းလင်းလင်း မြင်တွေ့နိုင်မည်ဖြစ်သည်။ ရှည်လျားသော စာရွက်စာတမ်းတစ်ခုတွင် ဇယားများစွာ ပါဝင်နိုင်သောကြောင့် ရည်ရွယ်ချက်အမျိုးမျိုးအတွက် ၎င်းတို့ကို စာရွက်စာတမ်းအသစ်တစ်ခုသို့ ထုတ်ယူရန် လိုအပ်ပါသည်။

ဤသည်မှာ ကျွန်ုပ်တို့၏ ချဉ်းကပ်မှု 4 ချက်ဖြစ်သည်။

နည်းလမ်း 1- စာရွက်စာတမ်းတစ်ခုမှတစ်ခုသို့ ဇယားအားလုံးကို အသုတ်လိုက်ထုတ်ပါ။

1. Word မှာ VBA editor ကိုဖွင့်ဖို့ ပထမဆုံး “Alt+ F11” ကိုနှိပ်လိုက်ပါ။
2. ထို့နောက် “Normal” ပရောဂျက်ကို နှိပ်ပြီး နောက် “Insert” tab ကိုနှိပ်ပါ။
3. drop-down menu တွင် "Module" ကိုရွေးချယ်ပါ။
4. ပြီးလျှင် module ကိုဖွင့်ရန် နှစ်ချက်နှိပ်ပြီး ညာဘက်ခြမ်းရှိ တည်းဖြတ်ခြင်းနေရာကို ထုတ်ပေးပါ။
5. ယခု ဤနေရာတွင် အောက်ပါ macro ကို ကူးယူပြီး ကူးထည့်ပါ။

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. နောက်ဆုံး Run ကိုနှိပ်ပါ။

ဤ macro သည် ဇယားနှစ်ခုလုံးနှင့် ၎င်းတို့၏ စာတန်းများကိုလည်း ထုတ်ယူပါမည်။

နည်းလမ်း 2- စာရွက်စာတမ်းတစ်ခုမှ သီးခြားဇယားတစ်ခုကို ထုတ်ယူပါ။

ယခု သင့်စာရွက်စာတမ်းတွင် ဇယားများစွာရှိနေပါက၊ သို့သော် သင်တစ်စုံတစ်ဦးထံသို့ သီးခြားဇယားတစ်ခု ပေးပို့ရန်လိုအပ်ပါသည်။ ဒါဆိုရင် အောက်ပါ macro က သင့်ကို အများကြီး အထောက်အကူ ပြုပါလိမ့်မယ်။

1. ပထမဦးစွာ method 1 တွင် အောက်ပါအဆင့်များအတိုင်း macro ကို install လုပ်ပြီး run ပါ။
2. ဒုတိယ၊ ဤ macro ကို ဤတစ်ခုနှင့် အစားထိုးပါ။

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. ယခုတွင် input box တစ်ခုပေါ်လာလိမ့်မည်။
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. ပထမဦးစွာ target table ကို ရွေးချယ်ရန် ဘယ်ဘက်အပေါ်ထောင့်ရှိ အပေါင်းလက္ခဏာကို နှိပ်ပါ။
2. ထို့နောက် ကူးယူရန် “Ctrl+C” ကိုနှိပ်ပါ။
3. ထို့နောက် စာရွက်စာတမ်းအသစ်ကိုဖွင့်ပါ။
4. စာရွက်အသစ်တွင် ဇယားကို paste လုပ်ရန် "Ctrl+ V" ကိုနှိပ်ပါ။
5. စာရွက်စာတမ်းအသစ်ကို သိမ်းဆည်းရန် မမေ့ပါနှင့်။

စာရွက်စာတမ်းပြဿနာများကို ကိုင်တွယ်ဖြေရှင်းပါ။

Word ကို ဆက်သုံးနေသရွေ့တော့ အမြဲရှိနေမှာပါ။ စကားလုံးပျက်စီးခြင်း။. သို့သော် မကြောက်တော့ပါ။ ရှင်းလို့မရတဲ့ ပြဿနာမဟုတ်တော့ဘူး။ အရည်အချင်းပြည့်မီသော ပြန်လည်ရယူရေးကိရိယာဖြင့်၊ သင်၏တန်ဖိုးရှိသောဒေတာအားလုံးကို ပြန်လည်ရယူရန် အခွင့်အလမ်းမြင့်မားသည်။

စာရေးသူနိဒါန်း:

Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ အကျင့်ပျက် xlsx နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com