2 načina za kopiranje teksta iz Worda u Excel sa svakom riječi u zasebnoj ćeliji

U ovom postu s oduševljenjem vam predstavljamo dva načina kopiranja tekstova iz Worda u Excel, pri čemu je svaka riječ u zasebnoj ćeliji.

Ako ste lingvist, vjerojatno morate puno računati na učestalost riječi. Onda će naša današnja tema biti od velike pomoći. 2 metode u nastavku omogućit će vam da zalijepite tekstove iz dokumenta na Excel tablicu i navedete svaku riječ u ćeliji stupca.

Metoda 1: Iskoristite opciju "Pronađi i zamijeni".

1. Za početak, napravite kopiju ciljnog dokumenta. Ovo je izuzetno važno i sve operacije ćemo provoditi u datoteci kopije kako bismo spriječili gubitak podataka.
2. Drugo, odaberite sve ciljne tekstove i primijenite na njih stil "Normalno". Da biste to učinili, pritisnite "Alt + Ctrl + Shift + S" da biste otvorili prozor "Stilovi". Zatim pronađite i kliknite stil "Normalno".
3. Treće, pritisnite "Ctrl+ H" da biste pokrenuli okvir "Pronađi i zamijeni".
4. Postavite pokazivač na tekstualni okvir "Pronađi što" i unesite razmak tamo.
5. Zatim postavite kursor na tekstualni okvir "Zamijeni sa" i tamo unesite "^p".
6. Zatim kliknite "Zamijeni sve".
7. Kliknite "Ne" u sljedećem okviru koji će se pojaviti.
8. Sada možete vidjeti da je svaka riječ u jednom retku. Ali postoji i prazan red kako slijedi:

Dakle, da biste ga uklonili, morate ponovno pozvati okvir "Pronađi i zamijeni".

9. Ovaj put unesite “^p^p” u tekstni okvir “Pronađi što” i “^p” u okvir “Zamijeni sa”.
10. Kliknite "Zamijeni sve".
11. Sada pritisnite “Ctrl+ C” za kopiranje popisa riječi.
12. Otvorite Excel i pritisnite “Ctrl+ V” za lijepljenje popisa.

Metoda 2: Koristite VBA kodove za smanjenje radnog opterećenja

1. Slično tome, prvo napravite kopiju i odaberite sve ciljne tekstove.
2. Zatim pritisnite “Alt+ F11” da biste otvorili VBA editor.
3. Zatim redom kliknite "Normalno" i "Umetni".
4. I odaberite "Modul" za stvaranje novog.
5. Dvaput kliknite na modul da ga otvorite i zalijepite sljedeće kodove:

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. Zatim kliknite gumb "Pokreni".
7. Zatim će se pojaviti okvir s porukom koji pokazuje što trebate učiniti sljedeće.
8. Otvorite Excel i pritisnite “Ctrl+ V” da tamo zalijepite tekstove. Učinak je isti kao u metodi 1.

Pozabavite se pogreškama Word dokumenta

Jeste li ikada postali žrtva Korupcija riječi? Ako je tako, shvatit ćete koliko netko može postati očajan. Stoga postaje važnije nego ikad nabaviti kvalificirani alat za popravak koji će popraviti vaš pokvareni dokument.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti xlx i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com