Word sənədinizdə mətn qutularından mətnləri çıxarmaq üçün 2 sürətli üsul

Bu yazıda biz sizə Word sənədinizdə mətn qutularından mətn çıxarmaq üçün 2 sürətli və istifadəsi asan üsul göstərmək istəyirik.

Zaman zaman çoxlu sayda mətn qutuları olan Word faylı əldə edə bilərik. Adətən həmin qutuların içərisində mətnlər və ya nisbi məzmunlar olacaq. Sonra bütün mətn qutusunu saxlamaq əvəzinə, yalnız mətnləri içəriyə daxil etmək zərurəti yarana bilər.

Şübhəsiz ki, mətni kopyalayıb başqa yerə yapışdırmaqla bir mətn qutusunda sözləri tez əldə etmək olar. Bununla belə, söhbət onlardan yüzlərlə olanda işin öhdəsindən gəlmək üçün bəzi sürətli məsləhətləri öyrənməyimiz daha yaxşı olardı.

Metod 1: "Seçim Paneli"ndən istifadə edin

1. Əvvəlcə "Əsas səhifə" sekmesini vurun.
2. Sonra “Redaktə” qrupunda “Seç” ikonasına klikləyin.
3. Sonra, açılan menyuda "Seçim Bölməsi" ni seçin.
4. İndi ekranın sağ tərəfində, paneldə görünən bütün mətn qutularını görə bilərsiniz.
5. "Ctrl" düyməsini basın və hamısını seçmək üçün paneldəki mətn qutusu adlarını bir-bir vurun.
6. Və kursoru qutu xəttindən birinə yerləşdirmək üçün hərəkət edin və sağ klikləyin.
7. Siyahı seçimində "Kopyala" düyməsini basın. İndi bu qutulara artıq ehtiyacınız yoxdursa, sadəcə "Sil" düyməsini basın.
8. Növbəti addımda Windows menyusunu açmaq üçün "Başlat" düyməsini basın.
9. "WordPad" seçin və açın.
10. Sonra mətn qutularından bütün mətnləri əldə etmək üçün "Yapışdır" düyməsini basın.
11. Sonra, bütün mətnləri seçin və "Kopyala" seçmək üçün sağ klikləyin.
12. İndi yeni bir Word sənədini açın və mətni əldə etmək üçün "Yalnız Mətni Saxla" seçimini etmək üçün sağ klikləyin.

Metod 2: VBA kodlarından istifadə edin

Gördüyünüz kimi, ilk üsulla belə, bütün mətn qutularını seçməkdən qaça bilməzsiniz. Bəziləriniz bu cür əmək işinə nifrət edirsinizsə, burada sizə makro işlətməyin yolunu təklif edəcəyik. Metod 2 ilə siz bütün mətnləri bir anda çıxara və mətn qutularını silə bilərsiniz.

1. Əvvəlcə VBA redaktorunu açmaq üçün "Alt + F11" düyməsini basın.
2. İkincisi, "Normal" və sonra "Daxil et" düyməsini basın.
3. Sonra yenisini daxil etmək üçün "Modul" seçin.
4. Sonra redaktə sahəsini açmaq üçün modulun adına iki dəfə klikləyin.
5. Aşağıdakı kodları yapışdırın və "Çalış" düyməsini bası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

Əldə edə biləcəyiniz şey budur:

Zərərli Word Faylları ilə mübarizə aparın

Word səhvlərə meyllidir və buna görə də tez-tez korrupsiyanın qurbanı olur. Buna görə sənədləri zədələnmədən qorumaq üçün onları düzgün idarə etməlisiniz. Bir dəfə korlanmışlarsa, onları daimi olaraq itirmək riski ilə üzləşəcəksiniz. Sonra istifadə etməli olacaqsınız zədələnmiş Word məlumat bərpa aləti.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc Excel faylı xətalarının bərpası vasitəsi və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com