У цій статті ми хочемо показати вам 2 швидкі та прості у використанні методи вилучення текстів із текстових полів у вашому документі Word.
Час від часу ми можемо отримати файл Word, що містить велику кількість текстових полів. Зазвичай всередині цих вікон містяться тексти або відносний вміст. Тоді може виникнути потреба отримати лише тексти всередині, а не зберігати ціле текстове поле.
Звичайно, швидко отримати слова в одному текстовому полі просто копіюючи текст та вставляючи його кудись ще. Однак, коли мова йде про сотні з них, нам краще вивчити кілька швидких порад, щоб зробити роботу.
Спосіб 1: Використовуйте “Область вибору”
- Перш за все, натисніть вкладку «Головна».
- Потім клацніть піктограму «Вибрати» у групі «Редагування».
- Далі у спадному меню виберіть “Панель вибору”.
- Тепер у правій частині екрана ви можете бачити всі текстові поля, видимі на панелі.
- Натисніть “Ctrl” і клацніть назви цих текстових полів на панелі, щоб вибрати їх усі.
- І перейдіть, щоб навести курсор на один із рядків вікна та клацнути правою кнопкою миші.
- У списку-опції натисніть “Копіювати”. Тепер, якщо вам більше не потрібні ці поля, просто натисніть «Видалити».
- Далі натисніть кнопку «Пуск», щоб переглянути меню Windows.
- Виберіть “WordPad” і відкрийте його.
- Потім натисніть «Вставити», щоб отримати всі тексти з текстових полів.
- Далі виділіть усі тексти та клацніть правою кнопкою миші, щоб вибрати “Копіювати”.
- Тепер відкрийте новий документ Word і клацніть правою кнопкою миші, щоб вибрати «Зберігати лише текст», щоб отримати текст.
Спосіб 2: Використовуйте коди VBA
Як ви бачите, навіть із першим способом ви не зможете уникнути виділення всіх текстових полів. Якщо деякі з вас просто ненавидять таку трудову роботу, ми пропонуємо вам спосіб запустити макрос. За допомогою методу 2 ви можете витягти всі тексти за один раз і видалити текстові поля.
- Спочатку натисніть “Alt + F11”, щоб відкрити редактор VBA.
- По-друге, натисніть «Звичайний», а потім «Вставити».
- Далі виберіть «Модуль», щоб вставити новий.
- Потім двічі клацніть на назві модуля, щоб відкрити область редагування.
- Вставте такі коди та натисніть «Виконати»:
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
Ось, що ви, швидше за все, отримаєте:
Справитися зі зруйнованими файлами Word
Слово схильне до помилок і, отже, часта жертва корупції. Тому вам доведеться правильно керувати своїми документами, щоб захистити їх від пошкодження. Коли вони зіпсуються, ви зіткнетеся з ризиком втратити їх назавжди. Тоді вам доведеться використовувати пошкоджений інструмент відновлення даних Word.
Вступ автора:
Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі Засіб відновлення помилок файлу Excel та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com