Ushbu maqolada biz Word hujjatingizni izohlar va so'nggi izohlarsiz chop etishning 3 ta amaliy usulini taklif qilishdan mamnunmiz.
Izohlar va so'nggi izohlar Word hujjatidagi noaniq nuqtalarni ko'rsatish uchun yordam beradi. Aytgancha, chop etish haqida gap ketganda, sizga qog'ozning hech bir joyida izohlar va so'nggi izohlar kerak bo'lishi mumkin. Afsuski, ularni chop etishdan chetlashtirishning to'g'ridan-to'g'ri usullari yo'q, masalan, belgilashlar bilan nima qilishingiz mumkin. Buning o'rniga, o'zingiz xohlagan narsani amalga oshirish uchun bu erda quyidagi vaqtinchalik echimlarni tanlashingiz mumkin.
1-usul: "Qoralama" ko'rinishi ostida ishlang
- Avvalo, izohlarga misol keltiraylik. Tasmadagi "Ko'rish" yorlig'ini bosing.
- Keyin "Qoralama" tugmasini bosing.
- Keyin "Ma'lumotnomalar" ni bosing va "Eslatmalarni ko'rsatish" ni bosing.
- Ochilgan oynada "Izoh maydonini ko'rish" yoki "Yakuniy izoh maydonini ko'rish" oynasini tanlang.
- "OK" tugmasini bosing.
- Ekranning pastki qismidagi "Barcha izohlar" ni tanlash uchun ochiladigan tugmani bosing.
- Keyin barcha izohlarni tanlash uchun "Ctrl + A" tugmasini bosing.
- Keyin "Shrift" oynasini ochish uchun "Ctrl + D" tugmasini bosing.
- "Yashirin" katagiga belgi qo'ying va "OK" tugmasini bosing.
- Keyin ochiladigan menyuda "Izohni ajratuvchi" ni tanlang.
- Izoh ajratgichni tanlang.
- 8 va 9-bosqichlarni takrorlang.
- Keyin "Izohni davom ettirishni ajratuvchi" ni tanlang.
- Izoh davomi ajratgichni tanlang.
- 8 va 9-bosqichlarni takrorlang.
Endi izohga havola raqamlari asosiy matnlarda ko'rinadigan bo'ladi. Agar siz ularni ham yashirishingiz kerak bo'lsa, quyidagi amallarni bajaring:
- "Uy" yorlig'ini bosing va "Topish" bo'limidagi ochiladigan tugmani bosing.
- "Kengaytirilgan qidiruv" ni tanlang.
- Keyin "Nimani toping" matn maydoniga "^f" ni kiriting. Agar so'nggi izohlar bilan ishlayotgan bo'lsangiz, “^e” ni kiriting.
- "Topish" tugmasini bosing va "Asosiy hujjat" ni tanlang.
- Endi barcha izohli mos yozuvlar raqamlari tanlangan. Ularni yashirin matnlar sifatida formatlang.
Endi oxirgi harakat bor. "Fayl" ni, so'ng "Tanlovlar" ni bosish orqali "So'z parametrlari" oynasini oching. Ochilgan oynada "Displey" tugmasini bosing va "Yashirin matnni chop etish" katagi belgilanmaganligiga ishonch hosil qiling va "OK" tugmasini bosing.
Yakuniy izohlar uchun protsedura deyarli bir xil.
2-usul: Uslublarni yashirish
- Avvalo, "Uslublar" guruhidagi o'q tugmasini bosib, "Uslublar" oynasini oching.
- Misol uchun, agar biz oxirgi izohlarni bu safar yashirishni tanlasak, "Yakuniy izoh matni" uslubini o'ng tugmasini bosing.
- "O'zgartirish" -ni tanlang.
- "Uslubni o'zgartirish" oynasida "Format" tugmasini bosing va "Shrift" ni tanlang.
- "Shrift" oynasida "Yashirin" katagiga belgi qo'ying va "OK" tugmasini bosing.
- Keyin "Uslubni o'zgartirish" oynasida "OK" tugmasini bosing.
- Keyingi "Uslublar" oynasida "Yakuniy eslatma" ni o'ng tugmasini bosing.
- “Barcha XX misol(lar)ni tanlash” bandini tanlang.
- Endi barcha so'nggi izohlar tanlovda. Ularni yashirin matnlar sifatida formatlang.
- Ko'rib turganingizdek, so'nggi eslatmani ajratuvchi hali ham mavjud, shuning uchun siz ham uni yashirishingiz kerak. 1-usuldagi amallarni bajaring.
3-usul: Word VBA dasturidan foydalaning
- Avval VBA muharririni ochish uchun “Alt+ F11” tugmasini bosing.
- Keyin chap ustundagi "Oddiy" tugmasini bosing.
- Keyin "Qo'shish" va "Modul" tugmasini bosing.
- Yangi modulni ochish uchun ikki marta bosing va quyidagi kodlarni joylashtiring:
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
- Nihoyat, "Ishga tushirish" tugmasini bosing.
Makrosni ishga tushirish hujjatni izohsiz va so'nggi izohsiz chop etadi va ularni asl faylda saqlaydi.
Word bilan bog'liq muammolarni hal qilish
Word bir muncha vaqt muvaffaqiyatsiz bo'lishi mumkin. Bu bizning qimmatli hujjatlarimizning xavfsizligiga mutlaqo tahdid soladi. Biroq, agar siz Word-dan foydalanishda biron bir muammoga duch kelsangiz, har doim buning uchun vosita mavjud So'zni tiklash.
Muallif kirish:
Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc excelni tiklang va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com













