Төменде келтірілген мақалада біз сізге Word-қа бірнеше автотүзету жазбаларын бумалық қосу немесе жою әдісін ұсынғымыз келеді.
Word-та автотүзету деп аталатын кіріктірілген мүмкіндік бар. Көптеген қолданушылар онымен таныс. Негізінде, көбіміз оны қате жазылған сөздерді түзету үшін қолданамыз. Сіз қанша керек заттарды импорттай алсаңыз да, оны бір-бірлеп жасауыңыз керек. Жалпы, біз бұған төзуге мәжбүр боламыз. Бірақ макроға келетін болсақ, сіз автоматты түрде түзетулер жазбаларының тізімін құру арқылы көп уақытты үнемдей аласыз және оларды бір рет басу арқылы бір рет импорттай аласыз.
Төменде оны қалай орындауға болатындығы көрсетілген егжей-тегжейлі келтірілген:
Пакеттік бірнеше автоматты түзетулер енгізу
- Бірінші кезектеost, Word бағдарламасында бос құжатты ашып, 2 бағаннан және бірнеше қатардан тұратын кесте салыңыз.
- Кестеге барлық қате жазылған сөздерді бірінші бағанға енгізіңіз.
- Екінші бағанға барлық дұрыс сөздерді енгізіңіз.
- Осыдан кейін Word бағдарламасындағы VBA редакторын шақыру үшін «Alt + F11» пернелерін басыңыз.
- Содан кейін «Қалыпты» және «Кірістіру» қойындысын нұқыңыз.
- Ашылмалы мәзірден «Модуль» таңдаңыз.
- Жаңа модульді оң жақта ашу үшін келесі батырманы екі рет басыңыз.
- Енді келесі кодтарды сол жерге қойыңыз:
Sub BatchAddAutoCorrectEntries()
Dim objTable As Table
Dim objOriginalWord As Cell
Dim objOriginalWordRange As Range
Dim objReplaceWordRange As Range
Dim nRowNumber As Integer
Set objTable = ActiveDocument.Tables(1)
nRowNumber = 1
For Each objOriginalWord In objTable.Columns(1).Cells
Set objOriginalWordRange = objOriginalWord.Range
objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
Set objReplaceWordRange = objTable.Cell(nRowNumber, 2).Range
objReplaceWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
AutoCorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text
nRowNumber = nRowNumber + 1
Next objOriginalWord
Msgbox("All autocorrect items in the table1 are added.")
End Sub
- Макросты іске қосу үшін «Іске қосу» батырмасын басыңыз немесе «F5» батырмасын басыңыз.
Ескертулер:
- Макросты іске қосу кестедегі барлық элементтер импортталғанын көрсететін нәтиже өрісін сұрайды.
- Кесте ұяшығындағы элементтен кейін бос орын жоқтығына көз жеткізіңіз. Әйтпесе, макрос сәтсіздікке ұшырайды.
Пакеттік бірнеше автоматты түзетулер жазбаларын жою
Мұнда керісінше бірнеше автоматты түзетулерді бірнеше секунд ішінде жою қажет. Бақытымызға орай, макростың көмегімен бұл оңай болуы керек.
- Біріншіден, Word бағдарламасында жаңа бос құжат жасаңыз.
- Содан кейін бірнеше жолдардың 1 бағанына кесте салыңыз.
- Жою керек барлық қате сөздерді кестеге енгізіңіз.
- Осыдан кейін макросты орнатыңыз және іске қосыңыз.
- Бірақ макросты мынамен ауыстырыңыз:
Sub BatchDeleteAutoCorrectEntries()
Dim objTable As Table
Dim objOriginalWord As Cell
Dim objOriginalWordRange As Range
Dim nRowNumber As Integer
Set objTable = ActiveDocument.Tables(1)
nRowNumber = 1
For Each objOriginalWord In objTable.Columns(1).Cells
Set objOriginalWordRange = objOriginalWord.Range
objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
On Error Resume Next
AutoCorrect.Entries.Item(objOriginalWordRange.Text).Delete
nRowNumber = nRowNumber + 1
Next objOriginalWord
Msgbox("All autocorrect items in the table1 are deleted.")
End Sub
- Сол сияқты, нәтиже өрісі төменде келтірілген:
Құжаттардың бұзылуымен күресу қаруы
Күні бойы есеппен жұмыс істегеніңізді елестетіп көріңіз. Кенеттен Word жауап беруді тоқтатады. Содан кейін бірнеше секундтан кейін сіз есепті компьютерден таба алмайсыз. Олар жай жоғалып кеткен сияқты! Сіз өзіңізді қаншалықты шарасыз сезінесіз! Алайда, жүрегіңді ашып, сәттілік тілеудің орнына сізге нақты қару керек қалпына келтіру docx.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген xls және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com