Үг бүрийг тусдаа нүдэнд Word програмаас Excel рүү хуулах 2 арга

Энэ бичлэгт бид Word програмаас Excel руу текстийг тусдаа нүдэнд байрлуулж хуулах 2 аргыг та бүхэнтэй хуваалцаж байгаадаа баяртай байна.

Хэрэв та хэл шинжлэлийн хүн бол үгийн давтамжийн тоололыг маш их хийх хэрэгтэй байх. Тэгвэл өнөөдрийн бидний сэдэв маш их тус болно. Доорх 2 арга нь баримтаас текстийг excel хуудас руу буулгаж, үг бүрийг баганын нүдэнд жагсаах боломжийг олгоно.

Арга 1: "Ол, солих" сонголтыг ашиглана уу

1. Эхлээд зорилтот баримт бичгийн хуулбарыг хий. Энэ нь маш чухал бөгөөд бид өгөгдөл алдагдахаас сэргийлэхийн тулд хуулбар файл доторх бүх үйлдлийг хийх болно.
2. Хоёрдугаарт, бүх зорилтот текстийг сонгоод "Ердийн" хэв маягаар хэрэглэнэ үү. Үүнийг хийхийн тулд "Alt+ Ctrl+ Shift+ S" товчийг дарж "Загварууд" цонхыг нээнэ үү. Дараа нь "Ердийн" хэв маягийг олж, дарна уу.
3. Гуравдугаарт, "Ctrl + H" товчийг дарж "Ол, солих" нүдийг нээнэ үү.
4. "Юуг олох" текст талбар дээр курсорыг тавиад тэнд хоосон зай оруулна уу.
5. Дараа нь курсорыг "Орлуулах" текст талбарт байрлуулж, тэнд "^p" гэж оруулна уу.
6. Дараа нь "Бүгдийг солих" дээр дарна уу.
7. Дараагийн гарч ирэх хайрцагт "Үгүй" дээр дарна уу.
8. Одоо та үг бүр нэг мөрөнд байгааг харж болно. Гэхдээ дараах байдлаар хоосон мөр байна.

Үүнийг арилгахын тулд та "Ол, солих" нүдийг дахин нээх хэрэгтэй.

9. Энэ удаад "Юуг олох" талбарт "^p^p", "Орлуулах" талбарт "^p" гэж бичнэ үү.
10. "Бүгдийг солих" дээр дарна уу.
11. Одоо "Ctrl + C" товчийг дарж үгийн жагсаалтыг хуулна.
12. Excel програмыг нээгээд "Ctrl + V" товчийг дарж жагсаалтыг буулгана уу.

Арга 2: Ажлын ачааллыг бууруулахын тулд VBA кодыг ашигла

1. Үүнтэй адилаар эхлээд хуулбар хийж, бүх зорилтот текстийг сонгоно уу.
2. Дараа нь "Alt + F11" товчийг дарж VBA засварлагчийг нээнэ үү.
3. Дараа нь "Хэвийн" болон "Оруулах" дээр дарна уу.
4. Шинэ модулийг үүсгэхийн тулд "Модуль" -ыг сонго.
5. Модулийг нээхийн тулд давхар товшоод дараах кодыг оруулна уу.

Sub CopySelectParagraphWordByWordToExcel()
 
  If Selection.Range <> "" Then
    Selection.Style = ActiveDocument.Styles("Normal") 
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = " "
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^p^p"
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Copy
 
    MsgBox ("Now you can just open a Excel worksheet to paste the text")
  Else
    MsgBox ("There is no selected text ")
  End If
 
End Sub

6. Дараа нь "Run" товчийг дарна уу.
7. Дараа нь танд юу хийх хэрэгтэйг харуулсан мессежийн хайрцаг гарч ирнэ.
8. Excel програмыг нээгээд "Ctrl + V" товчийг дарж текстийг тэнд буулгана уу. Үр нөлөө нь 1-р аргынхтай адил байна.

Word баримт бичгийн алдаатай ажиллах

Та хэзээ нэгэн цагт хохирогч болж байсан уу Үгийн авлига? Хэрэв тийм бол хүн ямар их цөхрөнгөө барж болохыг ойлгох болно. Тиймээс эвдэрсэн баримт бичгээ засахын тулд мэргэшсэн засварын хэрэгсэл авах нь урьд өмнөхөөсөө илүү чухал болж байна.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xlsx-ийг сэргээх болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com