Бұл мақалада біз сізге Word құжатын сілтемелер мен соңғы ескертулерсіз басып шығарудың 3 практикалық әдісін ұсынуға қуаныштымыз.
Сілтемелер мен соңғы ескертулер Word құжатындағы түсініксіз нүктелерді суреттеуге көмектеседі. Айтуынша, басып шығаруға келетін болсақ, сізге қағаздың ешбір жерінде түсіндірмелер мен соңғы ескертулердің кластері қажет болуы мүмкін. Өкінішке орай, оларды басып шығарудан шығарудың тікелей жолдары жоқ, мысалы, түзетулермен не істеуге болады. Оның орнына, қалағаныңызды орындау үшін осы жерден келесі уақытша шешімдерді таңдауға болады.
1-әдіс: «Жоба» көрінісінде жұмыс жасаңыз
- Алдымен түсіндірмелердің мысалын алайық. Таспадағы «Көру» қойындысын басыңыз.
- Әрі қарай «Жоба» түймесін басыңыз.
- Содан кейін «Сілтемелер» түймесін басып, «Ескертпелерді көрсету» түймесін басыңыз.
- Ашық терезеде «Сілтеме аймағын қарау» немесе «Соңғы ескерту аймағын қарау» жолағын таңдаңыз.
- «OK» түймесін басыңыз.
- Экранның төменгі жағындағы ашылмалы түймені басып, «Барлық сілтемелер» тармағын таңдаңыз.
- Содан кейін барлық түсіндірмелерді таңдау үшін «Ctrl+ A» түймесін басыңыз.
- Содан кейін «Қаріп» жолағын ашу үшін «Ctrl + D» басыңыз.
- «Жасырын» құсбелгісін қойып, «OK» түймесін басыңыз.
- Содан кейін ашылмалы мәзірден «Сілтемені бөлу» тармағын таңдаңыз.
- Түсіндірме бөлгішті таңдаңыз.
- 8 және 9 қадамдарды қайталаңыз.
- Содан кейін «Сілтемені жалғастыру бөлгішін» таңдаңыз.
- Түсіндірменің жалғасы бөлгішін таңдаңыз.
- 8 және 9 қадамдарды қайталаңыз.
Енді сілтеменің анықтамалық нөмірлері негізгі мәтіндерде көрінетін болады. Оларды да жасыру қажет болса, мына қадамдарды орындаңыз:
- «Басты» қойындысын басып, «Табу» ашылмалы түймесін басыңыз.
- «Қосымша іздеу» опциясын таңдаңыз.
- Содан кейін «Нені табу» мәтіндік жолағына «^f» енгізіңіз. Соңғы сілтемелермен айналысатын болсаңыз, «^e» сөзін енгізіңіз.
- «Табу» түймесін басып, «Негізгі құжатты» таңдаңыз.
- Енді барлық сілтемелер анықтамалық нөмірлері таңдауда. Оларды жасырын мәтіндер ретінде пішімдеңіз.
Енді соңғы қадам қалды. «Файл», содан кейін «Параметрлер» түймесін басу арқылы «Сөз параметрлері» жолағын ашыңыз. Ашық терезеде «Дисплей» түймесін басып, «Жасырын мәтінді басып шығару» ұяшығы белгіленбегеніне көз жеткізіңіз және «OK» түймесін басыңыз.
Соңғы ескертулер үшін процедура өте бірдей.
2-әдіс: Мәнерлерді жасыру
- Ең алдымен, «Стильдер» тобындағы көрсеткі түймесін басу арқылы «Стильдер» терезесін ашыңыз.
- Мысалы, егер біз осы жолы соңғы ескертулерді жасыруды таңдасақ, «Соңғы жазба мәтіні» стилін тінтуірдің оң жақ түймешігімен басыңыз.
- «Өзгерту» таңдаңыз.
- «Стильді өзгерту» жолағында «Формат» түймесін басып, «Қаріпті» таңдаңыз.
- «Қаріп» жолағында «Жасырын» құсбелгісін қойып, «ОК» түймесін басыңыз.
- Содан кейін «Стильді өзгерту» жолағында «OK» түймесін басыңыз.
- Әрі қарай «Стильдер» терезесінде «Соңғы жазба сілтемесін» тінтуірдің оң жақ түймешігімен басыңыз.
- «Барлық XX дана(лар)ды таңдау» опциясын таңдаңыз.
- Енді барлық соңғы сілтемелер таңдауда. Оларды жасырын мәтіндер ретінде пішімдеңіз.
- Көріп отырғаныңыздай, соңғы ескертпе бөлгіш әлі де бар, сондықтан оны да жасыру керек. 1-әдістегі қадамдарды орындаңыз.
3-әдіс: Word VBA қолданыңыз
- Алдымен VBA редакторын ашу үшін «Alt+ F11» пернесін басыңыз.
- Содан кейін сол жақ бағандағы «Қалыпты» батырмасын басыңыз.
- Содан кейін «Кірістіру» және «Модуль» түймесін басыңыз.
- Жаңа модульді ашу және келесі кодтарды қою үшін екі рет басыңыз:
Sub PrintWithoutFootnotesAndEndnotes()
Dim objDoc As Document
Dim nFootnoteRefFontColorIndex As Integer
Dim nFootnoteTxtFontColorIndex As Integer
Dim nFootnoteSeparatorFontColorIndex As Integer
Dim nFootnoteContinuationSeparatorColorIndex As Integer
Dim nEndnoteRefFontColorIndex As Integer
Dim nEndnoteTxtFontColorIndex As Integer
Dim nEndnoteSeparatorFontColorIndex As Integer
Dim nEndnoteContinuationSeparatorColorIndex As Integer
Set objDoc = ActiveDocument
With objDoc
' Save the current color index.
nFootnoteRefFontColorIndex = .Styles("Footnote Reference").Font.ColorIndex
nFootnoteTxtFontColorIndex = .Styles("Footnote Text").Font.ColorIndex
nFootnoteSeparatorFontColorIndex = .Footnotes.Separator.Font.ColorIndex
nFootnoteContinuationSeparatorColorIndex = .Footnotes.ContinuationSeparator.Font.ColorIndex
nEndnoteRefFontColorIndex = .Styles("Endnote Reference").Font.ColorIndex
nEndnoteTxtFontColorIndex = .Styles("Endnote Text").Font.ColorIndex
nEndnoteSeparatorFontColorIndex = .Endnotes.Separator.Font.ColorIndex
nEndnoteContinuationSeparatorColorIndex = .Endnotes.ContinuationSeparator.Font.ColorIndex
.Styles("Footnote Reference").Font.ColorIndex = wdWhite
.Styles("Footnote Text").Font.ColorIndex = wdWhite
.Footnotes.Separator.Font.ColorIndex = wdWhite
.Footnotes.ContinuationSeparator.Font.ColorIndex = wdWhite
.Styles("Endnote Reference").Font.ColorIndex = wdWhite
.Styles("Endnote Text").Font.ColorIndex = wdWhite
.Endnotes.Separator.Font.ColorIndex = wdWhite
.Endnotes.ContinuationSeparator.Font.ColorIndex = wdWhite
End With
Dialogs(wdDialogFilePrint).Show
With objDoc
' Restore the color index
.Styles("Footnote Reference").Font.ColorIndex = nFootnoteRefFontColorIndex
.Styles("Footnote Text").Font.ColorIndex = nFootnoteTxtFontColorIndex
.Footnotes.Separator.Font.ColorIndex = nFootnoteSeparatorFontColorIndex
.Footnotes.ContinuationSeparator.Font.ColorIndex = nFootnoteContinuationSeparatorColorIndex
.Styles("Endnote Reference").Font.ColorIndex = nEndnoteRefFontColorIndex
.Styles("Endnote Text").Font.ColorIndex = nEndnoteTxtFontColorIndex
.Endnotes.Separator.Font.ColorIndex = nEndnoteSeparatorFontColorIndex
.Endnotes.ContinuationSeparator.Font.ColorIndex = nEndnoteContinuationSeparatorColorIndex
End With
End Sub
- Соңында «Іске қосу» түймесін басыңыз.
Макросты іске қосу құжатты сілтемелерсіз және соңғы ескертпелерсіз басып шығарады және оларды түпнұсқа файлда сақтайды.
Word мәселелерімен айналысу
Word кейбір уақытта сәтсіздікке ұшырауы мүмкін. Бұл біздің құнды құжаттарымыздың қауіпсіздігіне мүлдем қауіп төндіреді. Дегенмен, Word бағдарламасын пайдалану кезінде қандай да бір мәселелерге тап болсаңыз, әрқашан құрал бар Сөзді қалпына келтіру.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. excel қалпына келтіру және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com













