Word sənədinizi çap edərkən şəkilləri və formaları VBA vasitəsilə necə avtomatik gizlətmək olar

Bu yazıda biz Word sənədinizi çap edərkən VBA vasitəsilə şəkilləri və formaları avtomatik gizlətməyin yolunu sizə göstərməyə diqqət edəcəyik.

Əvvəlki səhifələrimizdən birindəost, şəkillərin və formaların çapının qarşısını almaq üçün onları gizlətməyin 4 yolunu təqdim etdik. Təfərrüatlar üçün bu məqaləyə müraciət edə bilərsiniz: Word sənədini şəkillər və formalar olmadan çap etməklə mürəkkəbinizə qənaət etməyin 4 yolu

Bununla belə, ötən gün təklif etdiyimiz 4 adi üsul əvvəlcə ekranda şəkillər və formaların gizlədilməsini tələb edir. Üstəlik, faylları çap etmək üçün Word-ün səhnə arxası görünüşünə əl ilə keçməlisiniz. Bundan sonra, şəkilləri və şəkilləri ekranınızda toxunulmaz saxlamaq istəyirsinizsə, yeganə seçiminiz bütün əvvəlki hərəkətləri geri qaytarmaqdır.

Buna görə də, səylərə qənaət etməyinizə kömək etmək üçün sizə makro yolu təqdim etmək istərdik.

Makronu işə salmaq üçün addımlar

1. Birincisi və birincisiost, "Developer" sekmesine klikləyin.
2. Sonra VBA redaktorunu açmaq üçün "Visual Basic" düyməsini basın.
3. Sonra "Daxil et" sekmesini tıklayaraq yeni modul daxil etmək üçün "Normal" düyməsini basın.
4. Sonra "Modul" seçin.
5. İndi redaktə sahəsinə sahib olmaq üçün yeni yaradılmış modulun üzərinə iki dəfə klikləyin.
6. Aşağıdakı kodları oraya yapışdırın:

Sub PrintNoImagesOrShapesInDoc()
  Dim objDoc As Document
  Dim objInLineShape As InlineShape
  Dim objShape As Shape
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  '  Find all images and shapes in the active document and then hide them to prevent from being printed.
  With objDoc
    For Each objInLineShape In .InlineShapes
      objInLineShape.Select
      Selection.Font.Hidden = True
    Next objInLineShape
    Options.PrintDrawingObjects = False
  End With
 
  Dialogs(wdDialogFilePrint).Show
 
  With objDoc
    For Each objInLineShape In .InlineShapes
      objInLineShape.Select
      Selection.Font.Hidden = False
    Next objInLineShape
  End With
End Sub

7. Nəhayət, "Çalış" düyməsini basın və ya "F5" düyməsini basın.

Bu klik və ya vuruşla Word "Çap et" informasiya qutusunu təklif edəcək. Çap xüsusiyyətlərini seçdikdən sonra çap etmək üçün "OK" düyməsini basın.

Siz heç bir şəkil və ya forma olmayan bir fayl alacaqsınız, elektron versiya isə eyni qalacaq. Şəkillər və formalar istisna olmaqla, birdən çox faylı çap etməlisinizsə, yol budur.

1. Birincisi, bütün faylları eyni qovluqda təşkil edin.
2. Sonra VBA redaktorunda makro qurmaq və işə salmaq üçün yuxarıda göstərilən bütün addımları təkrarlayın, yalnız makronu bununla əvəz edin:

Sub PrintMultiDocWithNoImagesAndShapes()
  Dim objDoc As Document
  Dim objInLineShape As InlineShape
  Dim objShape As Shape
  Dim strFile As String, strFolder As String
 
  '  Initialization
 
  strFolder = "C:\Users\Public\Documents\New folder\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
    '  Open each doc and print it withour images and shapes.
    With objDoc
      For Each objInLineShape In .InlineShapes
        objInLineShape.Select
        Selection.Font.Hidden = True
      Next objInLineShape
      Options.PrintDrawingObjects = False
    End With
 
    Dialogs(wdDialogFilePrint).Show
 
    With objDoc
      For Each objInLineShape In .InlineShapes
        objInLineShape.Select
        Selection.Font.Hidden = False
      Next objInLineShape
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

Qeyd:

“strFolder = “C:\Users\Public\Documents\New folder\”” kod sətirində fayl yolunu faylları saxladığınız qovluqdan faktiki biri ilə əvəz edin.

Qırılan faylları təmir etmək zərurəti

Fayl itkisi indi yad bir mövzu olmasa da, bəzi insanlar hələ də əhəmiyyətini pozur doc fix. Bəziləri sadəcə zədələnmiş faylları atacaqlar. Bəs bu, həqiqətən kritikdirsə? Son tarix yaxınlaşdıqca, s üçün kifayət qədər vaxtınız olacaqtaryenidən t? Cavab bəllidir. Zərərli sənədləri əldə etməyə gəldikdə, etibarlı bir alət seçmək olduqca zəruridir.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xarab xls və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com