Bu yazıda, Word belgenizdeki metin kutularından metin çıkarmak için 2 hızlı ve kullanımı kolay yöntem göstermek istiyoruz.
Zaman zaman çok sayıda metin kutusu içeren bir Word dosyası alabiliriz. Genellikle, bu kutuların içinde metinler veya ilgili içerikler olacaktır. O zaman tüm metin kutusunu tutmak yerine yalnızca içindeki metinleri alma ihtiyacı olabilir.
Kesinlikle, metni kopyalayıp başka bir yere yapıştırarak tek bir metin kutusundaki kelimeleri almak hızlıdır. Ancak, yüzlercesi söz konusu olduğunda, işi halletmek için bazı hızlı ipuçları öğrensek iyi olur.
Yöntem 1: "Seçim Bölmesini" kullanın
- Öncelikle “Ana Sayfa” sekmesine tıklayın.
- Ardından “Düzenleme” grubundaki “Seç” simgesine tıklayın.
- Ardından, açılır menüden "Seçim Bölmesi"ni seçin.
- Şimdi ekranın sağ tarafında, bölmede görünen tüm metin kutularını görebilirsiniz.
- "Ctrl" tuşuna basın ve hepsini seçmek için bölmedeki bu metin kutusu adlarını tek tek tıklayın.
- Ve imleci kutu satırlarından birine yerleştirmek için hareket ettirin ve sağ tıklayın.
- Liste seçeneğinde “Kopyala”ya tıklayın. Artık bu kutulara ihtiyacınız olmayacaksa, sadece "Sil"e basın.
- Ardından Windows menüsünü görüntülemek için "Başlat"a tıklayın.
- “WordPad”i seçin ve açın.
- Ardından, metin kutularındaki tüm metinleri almak için "Yapıştır"ı tıklayın.
- Ardından, tüm metinleri seçin ve "Kopyala"yı seçmek için sağ tıklayın.
- Şimdi yeni bir Word belgesi açın ve metni almak için “Yalnızca Metni Koru” seçeneğini seçmek için sağ tıklayın.
Yöntem 2: VBA Kodlarını Kullanın
Gördüğünüz gibi, ilk yöntemde bile tüm metin kutularını seçmekten kaçınamazsınız. Bazılarınız bu tür emek işlerinden nefret ediyorsa, işte size bir makro çalıştırmanın yolunu sunuyoruz. Yöntem 2 ile tüm metinleri tek seferde çıkarabilir ve metin kutularını sildirebilirsiniz.
- Öncelikle, VBA editörünü açmak için “Alt+F11” tuşlarına basın.
- İkinci olarak, “Normal” ve ardından “Ekle” ye tıklayın.
- Ardından, yeni bir tane eklemek için “Modül” öğesini seçin.
- Ardından, düzenleme alanını açmak için modül adına çift tıklayın.
- Aşağıdaki kodları yapıştırın ve "Çalıştır" ı tıklayın:
Sub DeleteTextBoxesAndExtractTheText()
Dim nNumber As Integer
Dim strText As String
' Delete all textboxes and extract the text from them
With ActiveDocument
For nNumber = .Shapes.Count To 1 Step -1
If .Shapes(nNumber).Type = msoTextBox Then
strText=strText& .Shapes(nNumber).TextFrame.TextRange.Text & vbCr
.Shapes(nNumber).Delete
End If
Next
End With
' Open a new document to paste the text from textboxes.
If strText <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strText
Else
MsgBox ("There is no textbox.")
End If
End Sub
İşte büyük ihtimalle alacağınız şey:
Bozulmuş Word Dosyalarıyla Başa Çıkın
Word hatalara eğilimlidir ve bu nedenle sık sık yolsuzluğa kurban gider. Bu nedenle, belgelerinizi hasardan korumak için uygun şekilde yönetmeniz gerekir. Bir kez bozulduklarında, onları kalıcı olarak kaybetme riskiyle karşı karşıya kalacaksınız. O zaman kullanmak zorunda kalacaksın bozuk Word veri kurtarma aracı.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. Excel dosya hatası kurtarma aracı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com