Bu makalede, size bir Word belgesindeki tüm e-posta adreslerini ayıklamanın ve bunları toplu işlem için birleştirmenin 2 yolunu tanıtacağız.
Ara sıra, aynı anda birden çok kişiye e-posta göndermeniz gerekebilir. Ancak, adresleri sayfalarca uzun bir belgeye dağıldığında işler biraz zorlaşabilir. Belgenin tamamında gezinmek ve bunları tek tek bulmak zaman alabilir. Bu nedenle, posta kutunuzdaki toplu işleme için hepsini tek hamlede çıkarmanın hızlı yolunu göstermek istiyoruz.
Yöntem 1: “Bul ve Değiştir” Seçeneğini Kullanın
- Öncelikle, e-posta adreslerini içeren belgeyi açın.
- Ardından “Ana Sayfa” sekmesine tıklayarak başlıyoruz.
- Ardından, "Bul" simgesindeki baş aşağı üçgeni tıklamayı seçin.
- Açılır listeden "Gelişmiş Bul"u seçin.
- Şimdi “Bul ve Değiştir” iletişim kutusunu açacaksınız. "Bul" sekmesinin açık olduğundan emin olun ve "Aranan" metin kutusuna "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}" yazın.
- Ardından, daha fazla seçenek görüntülemek için “Daha fazla”ya tıklayın.
- Ardından, "Arama Seçenekleri" altındaki "Joker karakter kullan" kutusunu işaretleyin.
- “Bul” düğmesine tıklayın ve “Ana Belge” seçeneğini seçin.
- Artık bu belgedeki tüm e-posta adreslerinin vurgulandığını görebilirsiniz. İletişim kutusunu kapatın.
- Ardından, "Giriş" sekmesi altındaki "Pano" grubunda "Kopyala" yı tıklayın.
- Şimdi yeni bir Word belgesi oluşturun.
- Yenisine sağ tıklayın ve “Yalnızca Metni Koru” seçeneğini seçin. Tüm e-posta adreslerinin sütuna yapıştırıldığını göreceksiniz.
- Daha sonra "Giriş" sekmesi altındaki "Düzenleme" grubunda "Değiştir" i tıklayın.
- “Değiştir” sekmesinin altına “^p” ve “;” girin sırasıyla "Neyi bul" ve "Şununla değiştir" metin kutularında.
- Ve "Joker karakter kullan" kutusunu temizlemeyi unutmayın.
- Ardından “Tümünü Değiştir” düğmesine tıklayın. Word size kaç tane değiştirme yaptığını söyler ve siz de tüm açık kutuları kapatabilirsiniz. Belgede, noktalı virgülle ayrılmış e-posta adresleri vardır.
- Son olarak yapmanız gereken bu adresleri mail kutunuza kopyalamak ve aynı bilgileri tüm alıcılara aynı anda göndermektir.
Yöntem 2: VBA Kodlarını Kullanın
- İlk olarak, VBA editörünü açmak için “Alt+F11” tuşlarına basın.
- Ardından düzenleme alanına aşağıdaki kodları yapıştırın:
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
- Sonraki "Çalıştır" düğmesine basın.
Sonrasında, noktalı virgülle ayrılmış tüm e-posta adreslerinin bulunduğu yeni bir belgeye sahip olacaksınız. Ve bunları posta kutunuzda toplu işlem için kullanmaya başlayabilirsiniz.
Hasarlı Dosyaları Almak İçin Zamanı Yakalayın
Doğru, Word ile çalışarak her zaman bazı sürprizler bulabilirsiniz. Yeteneklerine hayran kalırken, Word'ün maruz kalabileceği olası çökmelere dikkat etmelisiniz. Bir yandan işinizi durdurur. Öte yandan, Word çöktüğünde daha da büyük bir tehdit harekete geçebilir. Ve daha büyük tehdit derken, gizliliği ihlal edilmiş dosyalarınız ve yeri doldurulamaz verileriniz kastedilmektedir.
Bu nedenle, yedeklemeler yapmanızı ve en önemlisi, bir program edinmenizi sürekli olarak öneriyoruz. kelime hasarını onarmak böylece etrafta dolaşarak zaman kaybetmezsiniz.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xls sorun düzeltme aracı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com