Bu Blogda Ara

28 Eylül 2020 Pazartesi

Ham Dosyaların FAZ 2 Ders Notlarına Dönüştürülmesi

Bu word dosyalarının düzenlenirken aşağıdaki değişiklikler uygulanmıştır:

  1. Öncelikle word dosyasında bozulmaya meyilli görselin olup olmadığı baştan aşağı kontrol edilmiştir. Eğer böyle potansiyel tehlikeli yapılar varsa bu alanlar görsele çevrilmiştir. Bu görseller "Metin İle Aynı Hizada" ayarında "Normal" stil hiyerarşisinde kaydedilmiştir.
  2. Dosyada düzenleme esnasında "Otomatik Madde İşaretçileri"nin kontrolden çıkması tehlikesine karşın, bunlar, makro ile normal metne çevrilmiştir. "ALT+F11" ile "Visual Basic Script" penceresi açılmış, ardından "CTRL+G" ile "Immediate" arayüzüne aşağıdaki kod yapıştırılmış, "Enter" tuşu ile çalıştırılmıştır:
    ActiveDocument.Range.ListFormat.ConvertNumbersToText
  3. Eğer "Stil Galerisi" çok kalabalık ise, aşağıdaki makro kodu, "Visual Basic Script" penceresinde, "This document"e sağ tıklanıp "Insert / Module" arayüzüne yapıştırılıp "Run" ile çalıştırılmıştır:
    Sub DeleteUnusedStyles()
       Dim aStyle As Style
       For Each aStyle In ActiveDocument.Styles
       If aStyle.BuiltIn = False Then
          With ActiveDocument.Content.Find
          .ClearFormatting
          .Style = aStyle.NameLocal
          .Execute FindText:="", Format:=True
          If .Found = False Then aStyle.Delete
          End With
       End If
       Next aStyle
    End Sub
  4. Eğer word dosyası, içindeki görsellerin diskte çok yer kaplamasından dolayı, büyük bir boyutta ise aşağıdaki makro, "Insert / Module" arayüzüne yapıştırılıp "Run" ile çalıştırılmıştır:
    Sub test()
    Dim shp As InlineShape
    If ActiveDocument.InlineShapes.Count = 0 Then Exit Sub
    For i = ActiveDocument.InlineShapes.Count To 1 Step -1
       Set shp = ActiveDocument.InlineShapes(i)
        If shp.Type = wdInlineShapePicture Then
            shp.Select
            Selection.Cut
            Selection.PasteSpecial Link:=False, DataType:=15, Placement:=wdInLine, _
            DisplayAsIcon:=False
        End If
    Next
    End Sub
  5. "Başlamadan Önce" başlığı; "Giriş" olarak "Başlık 2" stil hiyerarşisinde kaydedilmiştir.
  6. "Giriş" başlığı altındaki tablo içindeki metin kesilmiş, ardından tablo silinmiş ve metin "Normal" stil hiyerarşisinde kaydedilmiştir.
  7. "Bölümle İlgili Özlü Söz", "Bu Bölümde Öğrenecekleriniz", "Birlikte Düşünelim" başlıkları ve alt metinleri silinmiştir.
  8. "Uygulamalar", "Uygulama Soruları" başlıklarının içerikleri mevcut ise "Normal" stil hiyerarşisinde kaydedilmiştir; eğer başlıkların içerikleri yoksa bunlar silinmiştir.
  9. "Bu Bölümde Ne Öğrendik?" başlığı; "Bölüm Özeti" olarak "Başlık 2" stil hiyerarşisinde kaydedilmiştir.
  10. "KAYNAKÇA" başlığı; "Normal" stil hiyerarşisinde kaydedilmiştir.

Aşağıdaki özel kullanım için çekilmiş vidyoları izlemeniz faydalı olacaktır.






Ek bilgi geldikçe güncellenecektir.  

Hiç yorum yok:

Yorum Gönder