Бұл мақалада ескертпе немесе сілтеме нөмірлерін ескертпе аймағында қалыпты мәтін пішіміне келтірудің 5 әдісін ұсынамыз.
Біз қашан ескертпелер немесе ескертпелер енгізген сайын, негізгі мәтіндерде сілтеме нөмірлері болады. Әдепкі бойынша, екі сандарда да бұл сандар жоғарғы сценарийде орналасқан. Нота аймағындағы жоғарғы сандарды қалыпты мәтінге ауыстырғымыз келсе, бірақ негізгі мәтіндерде сілтеме нөмірлерін өзгеріссіз қалдырсақ ше? Босаңсыңыз! Міне, біздің жолдарымыз.
1-әдіс: Ескерту диапазонында “Ctrl + A” әріптерін қолданыңыз
- Біріншіден, ескертпелер немесе ескертпелер аймағында курсорды нота аймағына қойыңыз.
- Содан кейін барлық мәтіндер мен анықтамалық нөмірлерді таңдау үшін «Ctrl + A» пернелерін басыңыз.
- «Үй» қойындысын нұқыңыз, содан кейін «Superscript» пәрменін таңдаңыз.

Келесі нәрсе - үстіңгі скрипт пішімі жойылғанын көресіз.
2-әдіс: төте жолдарды қолданыңыз
- Бастау үшін сілтемелердің нөмірін қоса ескертпелердің бірін таңдаңыз. Мұнда сілтеме нөмірін форматтауды өзгерту мысалын аламыз.
- Екіншіден, «Үй» қойындысының астындағы «Таңдау» пәрменін басыңыз.
- Содан кейін оның ашылмалы мәзірінен «Ұқсас форматтаумен мәтінді таңдаңыз» таңдаңыз.
- Қазір барлық анықтамалық нөмірлер таңдалуда. Жоғарғы скрипт пішімін жою үшін «Ctrl + Shift + =» пернелерін басыңыз.
3-әдіс: «Жоба» көрінісі бойынша пішімдеуді өзгерту
- Алдымен «Көру» батырмасын басыңыз.
- Содан кейін көрініске ауысу үшін «Жобаны» басыңыз.
- Әрі қарай «Сілтемелер» және «Ескертулерді көрсету» батырмасын басыңыз.
- «Ескертулерді көрсету» өрісінде «Түсіндірменің аумағын қарау» немесе «Түсіндірме аймағын қарау» құсбелгісін қойыңыз.
- Экранның төменгі жағындағы жазбалар тақтасын ашу үшін «OK» батырмасын басыңыз.
- Біздің жағдайда ашылмалы терезеден «Барлық ескертулерді» таңдаңыз.
- Барлық мәтіндер мен нөмірлерді нота аймағында таңдаңыз.
- Жоғарғы скрипт пішімінен құтылу үшін «Ctrl + Shift + =» пернелерін басыңыз.
4-әдіс: Word макросын іске қосыңыз
- Word бағдарламасындағы VBA редакторын қосу үшін, ең алдымен «Alt + F11» пернелерін басыңыз.
- Әрі қарай «Қалыпты» батырмасын басыңыз.
- Содан кейін «Кірістіру» қойындысын басып, жаңасын жасау үшін «Модуль» батырмасын басыңыз.
- Оны ашу үшін модульді екі рет басыңыз.
- Келесі кодтарды сол жерге қойыңыз:
Sub ChangeFootnoteAndEndnoteSuperscripNumberToNormal()
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekFootnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneFootnotes
End If
Selection.Find.ClearFormatting
With Selection.Find.Font
.Superscript = True
.Subscript = False
End With
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = False
End With
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekEndnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneEndnotes
End If
Selection.Find.ClearFormatting
With Selection.Find.Font
.Superscript = True
.Subscript = False
End With
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = False
End With
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
End Sub
- Соңында «Іске қосу» батырмасын басыңыз.
Бұл макросты сілтемелерде де, түсіндірмелерде де жұмыс істейді, сондықтан бірнеше секунд ішінде пішімдеуді өзгертуге болады.
5-әдіс: «Табу және ауыстыру» функциясын қолдану
- Алдымен, 3-әдіс бойынша алғашқы 2 қадамды қайталаңыз.
- Содан кейін «Іздеу және ауыстыру» диалогтық терезесін ашу үшін «Ctrl + H» пернелерін басыңыз.
- «Нені табу» және «Ауыстыру» мәтін жолақтарында пішімдеуді өшіруді ұмытпаңыз.
- Келесі курсорды «Нені табыңыз» мәтініне қойып, «Қосымша» батырмасын басыңыз.
- «Пішім» қойындысын басып, «Қаріп» опциясын таңдаңыз.
- Енді «Қаріпті табу» диалогтық терезесінде «Superscript» құсбелгісін қойып, «OK» батырмасын басыңыз.
- Содан кейін курсорды «Ауыстыру» мәтін жолына орналастырыңыз.
- 5-қадамды қайталаңыз.
- Бұл жолы «Қаріпті табу» диалогтық терезесінде «Superscript» және «Subscript» өрістеріндегі құсбелгілерді алып тастап, «OK» батырмасын басыңыз.
- Соңында, «Іздеу және ауыстыру» өрісіне оралыңыз. «Барлығын ауыстыру» батырмасын басыңыз.
Құжатқа қатысты мәселелер
Сөз соншама мүмкіндіктер мен функцияларға қабілетті. Word ақымақ дәлел емес болғандықтан, оның қашан істен шығатынын ешқашан айта алмайсың. Егер сіз олардың барлығын сынап көргіңіз келсе, қауіпсіз жерде болыңыз және құжаттардың сақтық көшірмесін жасаңыз. Ақыр соңында, а бүлінген докс біз көргіміз келетін ең аз нәрсе.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xls қалпына келтіру және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com










