Бұл мақалада біз сізге Word құжатындағы мәтін жолақтарынан мәтіндерді шығарудың екі жылдам және оңай әдісін көрсеткіміз келеді.
Уақыт өте келе біз мәтіндік өрістердің үлкен санын қамтитын Word файлын аламыз. Әдетте, сол қораптардың ішінде мәтіндер немесе салыстырмалы мазмұн болады. Содан кейін бүкіл мәтін жолағын сақтаудың орнына тек мәтіндерді алу қажеттілігі туындауы мүмкін.
Әрине, мәтінді көшіру және оны басқа жерге қою арқылы бір мәтіндік жолақтағы сөздерді алу тез. Дегенмен, олардың жүздегені туралы сөз болғанда, біз жұмысты аяқтау үшін бірнеше жылдам кеңестерді білгеніміз жөн.
1-әдіс: «Таңдау тақтасын» пайдаланыңыз
- Ең алдымен, «Басты бет» қойындысын басыңыз.
- Содан кейін «Өңдеу» тобындағы «Таңдау» белгішесін басыңыз.
- Содан кейін ашылмалы мәзірде «Таңдау тақтасын» таңдаңыз.
- Енді экранның оң жағында сіз тақтада көрінетін барлық мәтіндік жолдарды көре аласыз.
- «Ctrl» пернесін басып, барлығын таңдау үшін тақтадағы мәтіндік өріс атауларын бір-бірден басыңыз.
- Курсорды жолақтардың біріне қоюға жылжытыңыз және тінтуірдің оң жақ түймешігімен басыңыз.
- Тізім опциясында «Көшіру» түймесін басыңыз. Енді бұл қораптар қажет болмаса, жай ғана «Жою» түймесін басыңыз.
- Келесіде Windows мәзірін ашу үшін «Бастау» түймесін басыңыз.
- «WordPad» таңдаңыз және оны ашыңыз.
- Содан кейін мәтін ұяларынан барлық мәтіндерді алу үшін «Қою» түймесін басыңыз.
- Әрі қарай, барлық мәтіндерді таңдап, «Көшіру» опциясын таңдау үшін тінтуірдің оң жақ түймешігімен басыңыз.
- Енді жаңа Word құжатын ашыңыз және мәтінді алу үшін «Тек мәтінді сақтау» опциясын таңдау үшін тінтуірдің оң жақ түймешігімен басыңыз.
2-әдіс: VBA кодтарын қолданыңыз
Көріп отырғаныңыздай, бірінші әдіспен де барлық мәтін ұяларын таңдаудан аулақ бола алмайсыз. Егер сіздердің кейбіреулеріңіз мұндай еңбек жұмысын жек көретін болсаңыз, біз сізге макросты іске қосу жолын ұсынамыз. 2-әдіспен барлық мәтіндерді бір уақытта шығарып алуға және мәтіндік жолдарды жоюға болады.
- Біріншіден, VBA редакторын ашу үшін «Alt + F11» пернелерін басыңыз.
- Екіншіден, «Қалыпты», содан кейін «Кірістіру» түймесін басыңыз.
- Содан кейін жаңасын енгізу үшін «Модульді» таңдаңыз.
- Содан кейін өңдеу аймағын ашу үшін модуль атауын екі рет басыңыз.
- Келесі кодтарды қойып, «Іске қосу» түймесін басыңыз:
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 қателерге бейім, сондықтан сыбайлас жемқорлықтың жиі құрбаны болады. Сондықтан құжаттарды зақымданудан қорғау үшін оларды дұрыс басқару керек. Бір рет олар бүлінсе, сіз оларды біржола жоғалту қаупіне тап боласыз. Содан кейін сізге қолдануға тура келеді бүлінген Word деректерін қалпына келтіру құралы.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. Excel файлындағы қателерді қалпына келтіру құралы және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com