2 veidi, kā kopēt tekstus no Word uz Excel ar katru vārdu atsevišķā šūnā

Šajā ierakstā mēs ar prieku dalāmies ar jums divos veidos, kā kopēt tekstus no Word uz Excel, katru vārdu ievietojot atsevišķā šūnā.

Ja esat valodnieks, jums, iespējams, daudz jādara vārdu biežums. Tad mūsu šodienas tēma būs liela palīdzība. Divas zemāk aprakstītās metodes ļaus jums ielīmēt tekstus no dokumenta Excel lapā un katru vārdu uzskaitīt kolonnas šūnā.

1. metode: izmantojiet opciju “Atrast un aizstāt”

1. Vispirms izveidojiet mērķa dokumenta kopiju. Tas ir ārkārtīgi svarīgi, un mēs veiksim visas darbības kopijas failā, lai novērstu datu zudumu.
2. Otrkārt, atlasiet visus mērķa tekstus un lietojiet tiem stilu “Parastais”. Lai to izdarītu, nospiediet taustiņu kombināciju “Alt+Ctrl+Shift+S”, lai atvērtu logu “Stili”. Pēc tam atrodiet stilu “Parastais” un noklikšķiniet uz tā.
3. Treškārt, nospiediet “Ctrl + H”, lai aktivizētu lodziņu “Atrast un aizstāt”.
4. Novietojiet kursoru tekstlodziņā “Atrast ko” un ievadiet tur atstarpi.
5. Nākamā vieta kursoru atrodas tekstlodziņā “Aizstāt ar” un tur ievadiet “^ p”.
6. Pēc tam noklikšķiniet uz “Aizstāt visu”.
7. Nākamajā uznirstošajā lodziņā noklikšķiniet uz Nē.
8. Tagad jūs varat redzēt, kā katrs vārds ir vienā rindā. Bet ir arī tukša rinda šādi:

Tātad, lai to noņemtu, jums vēlreiz jāizsauc lodziņš “Atrast un aizstāt”.

9. Šoreiz tekstlodziņā “Atrodi ko” ievadiet “^ p ^ p” un lodziņā “Aizstāt ar” ierakstiet “^ p”.
10. Noklikšķiniet uz “Replace All”.
11. Tagad nospiediet “Ctrl + C”, lai kopētu vārdu sarakstu.
12. Atveriet programmu Excel un nospiediet “Ctrl + V”, lai ielīmētu sarakstu.

2. metode: izmantojiet VBA kodus, lai samazinātu darba slodzi

1. Līdzīgi vispirms izveidojiet kopiju un atlasiet visus mērķa tekstus.
2. Pēc tam nospiediet “Alt + F11”, lai atvērtu VBA redaktoru.
3. Pēc tam secībā noklikšķiniet uz “Normal” un “Insert”.
4. Un izvēlieties “Modulis”, lai izveidotu jaunu.
5. Veiciet dubultklikšķi uz moduļa, lai to atvērtu, un ielīmējiet šādus 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. Pēc tam noklikšķiniet uz Palaist.
7. Tālāk būs ziņojumu lodziņš, kas norāda, kas jums jādara tālāk.
8. Atveriet programmu Excel un nospiediet “Ctrl + V”, lai tur ielīmētu tekstus. Efekts ir tāds pats kā 1. metodē.

Nodarbojieties ar Word dokumentu kļūdām

Vai esat kādreiz kļuvis par upuri Vārdu korupcija? Ja tā, jūs sapratīsit, cik izmisīgi cilvēks var kļūt. Tāpēc kļūst svarīgāk nekā jebkad agrāk iegūt kvalificētu labošanas rīku, lai salabotu salauzto dokumentu.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt xlsx un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar