2 módszer az összes e-mail cím kinyerésére a Word-dokumentumból, és összefűzésével kötegelt feldolgozáshoz

Oszd meg most:

Ebben a cikkben 2 módszert mutatunk be az összes e-mail cím kibontására egy Word-dokumentumban, és összefűzésére a kötegelt feldolgozáshoz.

Időnként előfordulhat, hogy egyszerre több személynek kell e-mailt küldenie. A dolgok azonban kissé bonyolultak lehetnek, ha a címeik oldalakonként szétszórnak egy hosszú dokumentumot. A teljes dokumentumban való navigálás és azok egyenkénti megtalálása időigényes lehet. Ezért szeretnénk megmutatni Önnek a gyors módszert, amellyel mindegyiket egyetlen mozdulattal kibonthatja a postafiókban lévő kötegelt feldolgozáshoz.

1. módszer: Használja a „Keresés és csere” opciót

  1. Először is nyissa meg az e-mail címeket tartalmazó dokumentumot.
  2. Ezután a „Kezdőlap” fülre kattintva kezdjük.
  3. Ezután kattintson a fejjel lefelé fordított háromszögre a „Keresés” ikonon.
  4. A legördülő listában válassza a „Speciális keresés” lehetőséget.Kattintson a "Kezdőlap" -> Kattintson a Fejjel lefelé gombra a "Keresés" mögött -> Kattintson a "Speciális keresés" gombra.
  5. Most megnyílik a „Keresés és csere” párbeszédpanel. Győződjön meg arról, hogy a „Keresés” lap be van kapcsolva, és írja be a „[Az,0-9]{1,}\@[Az,0-9,\.]{1,}” kifejezést a „Keressen mit” szövegmezőbe.
  6. Ezután kattintson a „Tovább” gombra a további lehetőségek megtekintéséhez.Írja be a karakterláncokat -> kattintson a "Tovább" gombra
  7. Ezután jelölje be a „Helyettesítő karakterek használata” négyzetet a „Keresési beállítások” alatt.
  8. Kattintson a „Keresés” gombra, és válassza a „Fő dokumentum” lehetőséget.Jelölje be a "Jártó karakterek használata" -> Kattintson a "Keresés" -> Válassza a "Fő dokumentum" lehetőséget.
  9. Most láthatja, hogy a dokumentumban szereplő összes e-mail cím ki van emelve. Zárja be a párbeszédpanelt.
  10. Ezután kattintson a „Másolás” gombra a „Vágólap” csoportban a „Kezdőlap” fülön.Kattintson a "Kezdőlap" -> Kattintson a "Másolás" gombra
  11. Most hozzon létre egy új Word dokumentumot.
  12. Kattintson a jobb gombbal az újra, és válassza a „Csak szöveg megtartása” lehetőséget. Látni fogja, hogy az összes e-mail cím be van illesztve az oszlopba.Válassza a "Csak szöveg megtartása" lehetőséget
  13. Ezután kattintson a „Csere” gombra a „Szerkesztés” csoportban a „Főoldal” fülön.Kattintson a "Kezdőlap" -> Kattintson a "Csere" gombra
  14. A „Csere” lapon írja be a „^p” és „;” jelet. a „Mit keres” és „Csere erre” szövegmezőkben.
  15. És ne felejtse el törölni a „Helyettesítő karakterek használata” mezőt.
  16. Ezután kattintson az „Összes cseréje” gombra. A Word megmondja, hány cserét hajtott végre, és bezárhatja az összes nyitott dobozt. A dokumentumon az e-mail címek pontosvesszővel vannak elválasztva.Írja be a "Keressen mit" és a "Csere erre" szövegdobozokat -> Törölje a "Jártó karakterek használata" mezőt -> Kattintson az "Összes cseréje" gombra.E-mail címek pontosvesszővel elválasztva
  17. Végül be kell másolnia ezeket a címeket a postafiókjába, és ugyanazt az információt egyszerre elküldeni az összes címzettnek.

2. módszer: VBA kódok használata

  1. Először nyomja meg az „Alt+F11” gombot a VBA-szerkesztő megnyitásához.
  2. Ezután a szerkesztési területre illessze be a következő kódokat:
Sub ExtractAllEmailAddressesFromDocument()
  Dim strEmailAddresses As String    

      ' Find all email addresses in a document,and Extract them.
      With ActiveDocument.Range        
        With.Find
          .ClearFormatting
          .Replacement.ClearFormatting
          .Text = "[A-z,0-9]{1,}\@[A-z,0-9,\.]{1,}"
          .Replacement.Text = ""
          .Forward = True
          .Wrap = wdFindStop
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchByte = False
          .MatchAllWordForms = False
          .MatchSoundsLike = False
          .MatchWildcards = True
          .Execute
      End With   
      Do While .Find.Found
        strEmailAddresses = strEmailAddresses & .Text & ";"
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
      End With

      '  Open a new document to paste the email addresses.
      If strEmailAddresses <> "" Then
        Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
        ActiveDocument.Range.Text = strEmailAddresses
      End If
End Sub
  1. Ezután nyomja meg a „Futtatás” gombot.Kódok beillesztése -> Nyomja meg a "Futtatás" gombot

Ezután egy újabb dokumentumod lesz, amelyben az összes e-mail cím szerepel, pontosvesszővel elválasztva. És elkezdheted használni őket kötegelt feldolgozáshoz a postaládádban.

A VBA kódok futtatásának hatása

Ragadja meg az időt a sérült fájlok visszakeresésére

Igaz, a Word használatával mindig találhat meglepetéseket. Bár lenyűgözik a képességei, ügyeljen az esetleges összeomlásokra, amelyeket a Word elszenvedhet. Egyrészt leállítja a munkáját. Másrészt egy még nagyobb fenyegetés is jelezheti, amikor a Word összeomlik. A nagyobb fenyegetés alatt pedig az Ön feltört fájljait és pótolhatatlan adatait értjük.

Ezért továbbra is azt javasoljuk, hogy készítsen biztonsági mentéseket, és ami a legfontosabb, szerezzen be egy programot, amely Word-sérülés javítása így nem vesztegeti az időt a nyüzsgésre.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls problémajavító eszköz és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com

Oszd meg most:

Hozzászólások lezárva.