2 būdai, kaip nukopijuoti tekstus iš Word į Excel su kiekvienu žodžiu atskirame langelyje

Šiame įraše džiaugiamės galėdami pasidalinti su jumis dviem būdais, kaip nukopijuoti tekstus iš „Word“ į „Excel“, kiekvieną žodį įrašant į atskirą langelį.

Jei esate kalbininkas, tikriausiai turėsite daug skaičiuoti žodžių dažnį. Tada mūsų šiandienos tema bus puiki pagalba. 2 toliau pateikti metodai leis įklijuoti tekstus iš dokumento į Excel lapą ir išvardyti kiekvieną žodį stulpelio langelyje.

1 būdas: naudokite parinktį „Rasti ir pakeisti“.

1. Pirmiausia padarykite tikslinio dokumento kopiją. Tai labai svarbu, ir mes atliksime visas operacijas kopijavimo faile, kad išvengtume duomenų praradimo.
2. Antra, pasirinkite visus tikslinius tekstus ir pritaikykite jiems stilių „Normalus“. Norėdami tai padaryti, paspauskite „Alt + Ctrl + Shift + S“, kad atidarytumėte langą „Stiliai“. Tada raskite ir spustelėkite stilių „Normalus“.
3. Trečia, paspauskite „Ctrl + H“, kad suaktyvintumėte laukelį „Rasti ir pakeisti“.
4. Užveskite žymeklį ant teksto laukelio „Rasti ką“ ir įveskite tarpą.
5. Tada padėkite žymeklį į teksto laukelį „Pakeisti“ ir įveskite „^p“.
6. Tada spustelėkite „Pakeisti viską“.
7. Kitame iššokančiame laukelyje spustelėkite „Ne“.
8. Dabar galite matyti, kad kiekvienas žodis yra vienoje eilutėje. Tačiau taip pat yra tuščia eilutė:

Taigi, norėdami jį pašalinti, turite dar kartą iškviesti langelį „Rasti ir pakeisti“.

9. Šį kartą įveskite „^p^p“ teksto laukelyje „Rasti ką“ ir „^p“ laukelyje „Pakeisti į“.
10. Spustelėkite „Pakeisti viską“.
11. Dabar paspauskite „Ctrl + C“, kad nukopijuotumėte žodžių sąrašą.
12. Atidarykite „Excel“ ir paspauskite „Ctrl + V“, kad įklijuotumėte sąrašą.

2 būdas: naudokite VBA kodus, kad sumažintumėte darbo krūvį

1. Panašiai pirmiausia padarykite kopiją ir pasirinkite visus tikslinius tekstus.
2. Tada paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių.
3. Tada eilės tvarka spustelėkite „Įprastas“ ir „Įterpti“.
4. Ir pasirinkite „Modulis“, kad sukurtumėte naują.
5. Dukart spustelėkite modulį, kad jį atidarytumėte, ir įklijuokite šiuos kodus:

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. Tada spustelėkite mygtuką „Vykdyti“.
7. Tada bus pranešimo laukelis, nurodantis, ką reikia daryti toliau.
8. Atidarykite „Excel“ ir paspauskite „Ctrl + V“, kad įklijuotumėte tekstus. Poveikis yra toks pat kaip ir 1 metodu.

Susitvarkykite su Word dokumentų klaidomis

Ar kada nors tapote auka Žodžių korupcija? Jei taip, suprasite, koks gali būti beviltiškas. Todėl kaip niekad svarbu įsigyti kvalifikuotą remonto įrankį sugadintam dokumentui pataisyti.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti xlsx bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com