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.  

Word Dosyasında Kullanılmayan Stilleri Visual Basic Script İle Silmek

Merhabalar.

Bazı word dosyalarını düzenlerken o dosyanın kaç bilgisayardan geçtiğini, stil galerisini açtığımızda listenin uzayıp gittiğini görüyoruz.

Bu kalabalıkta, hangi stilin kullanımda olup olmadığı anlamak bazen zor olabiliyor.

Aşağıda bağlantısını verdiğim sitede bunun için bir Visual Basic Script kodu paylaşılmış.

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_other-mso_2016/how-to-clear-unused-syles-in-ms-word-2016/d5da9b70-82d9-4a57-862a-f43621732c0d

Makro kodu:

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

"Geliştirici" sekmesine tıklayınız, veya ALT+F11 tuşlarına basınız.

"This document"e sağ tıklayınız. "Insert / Module" sayfası açınız.

Makro kodunu kopyalayıp açılan sayafaya yapıştırıyoruz. "Run" tuşuna basınız.

Makro kodunu işlemden sonra silebilirsiniz.

Dosyayı kaydediniz. Kayıt esnasında ekrana gelen ileti için, dosyayı makrosuz olarak kaydetmek isterseniz,  "Evet" butonuna basınız.

Faydalı olması dileğiyle.

Fazla Yer Kaplayan Görselleri Olan Bir Word Dosyasının Boyutunu Visual Basic Script İle Azaltmak

Merhabalar.

21.09.2020 Pazartesi tarihinde karşılaştığımız, dosya boyutu bildiğimiz yöntemler ile düşürülemeyen bir word dosyası üzerine aşağıdaki vidyoyu hazırladım. 

Dosyanın şişmesinin sebebi, içerisindeki PNG, EMF biçimli ağır görsellerdi. Bunların boyutunun nasıl düşürüleceğini aşağıdaki bağlantıdan öğrendim.

https://superuser.com/questions/1013190/how-to-automate-paste-as-jpeg-for-pasting-pics-in-word-so-as-to-reduce-the-ent

Öncelikle word dosyasını açıyoruz. ALT+F11 ile Visual Basic Script Editor arayüzüne erişiyoruz. Bazı dizüstü bilgisayarlarda bu komut kısayolu, çalışmadığı için Dosya / Seçenekler / Şeridi Özelleştir / Geliştirici sekmesini aktif ederek bu arayüze erişebilirsiniz. Sol menüde ekrana gelen "This document" dosyasına yani aktif olan belgeye sağ tıklayıp "Insert / Module" komutunu uygulayınız. Yukarıdaki adresteki kodu kopyalayıp açılan iç pencereye yapıştırınız.

Makro kodu:

32 bit işletim sistemi için bu kodu kullanınız.
'Diskte fazla yer kaplayan görsellerin boyutunu azalt Public Declare Sub Sleep Lib "kernel32" (ByVal milliseconds as Long) 'MS Office 32 Bit Sub GorselDiskAlaniniAzalt() 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 Call Sleep(1000) Selection.PasteSpecial Link:=False, DataType:=15, Placement:=wdInLine, DisplayAsIcon:=False Call Sleep(1000) End If Next End Sub

64 bit işletim sistemi için bu kodu kullanınız.
'Diskte fazla yer kaplayan görsellerin boyutunu azalt Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal milliseconds As LongPtr) 'MS Office 64 Bit Sub GorselDiskAlaniniAzalt() 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 Call Sleep(1000) Selection.PasteSpecial Link:=False, DataType:=15, Placement:=wdInLine, DisplayAsIcon:=False Call Sleep(1000) End If Next End Sub
Kod, 9 Şubat 2022 Salı tarihinde güncellenmiştir. Burada süre milisaniye olarak belirtilmiştir. 1000 milisaniye, 1 saniyeye denk gelir. İşlemci, RAM, disk türüne göre bu süreyi belirleyebilirsiniz. 350 görselli 300 MB'lık bir dosya, bu şekilde 30 MB'a düşürülmüştür.

⚠️ Eğer kalite ve görsellik önplanda ise bu işlem önerilmez. Görseller sıkıştırma sonrasında orta kaliteli JPEG olarak kaydedilir. Görselin detay içeren kısımlarında "noise" görülür.

Kodu paylaştığı için Karel'e teşekkür ederim.

Ardından iç pencereden dosyayı kaydediniz. Kayıt esnasında, Word Makro Etkinleştirilmiş Belgesi yani DOCM dosya biçimini seçiniz. Sonra bu DOCM dosyasını açınız. "Makrolar" iç penceresini açınız. Eğer birden fazla word dosyası açık ise "Makro yeri" kısmını "Belge 1" veya "Sadece bu belge" ayarlarında çalıştırmanız önerilir. Ardından tekrar dosyanızı DOCX olarak kaydedebilirsiniz.

Yukarıdaki kaynak sitede verilen bilgiye göre bu şekilde dosya biçimi değiştirilmiş. Buna ek olarak DOCM dosyasını kullanmaya mecbur değilsiniz. Ben de DOCX üzerinde bu kodu yapıştırdıktan sonra, aşağıda görselde kırmızı alanda gösterilen, "Run" tuşuna basınız. İşlem tamamlandıktan sonra kodu siliniz. Dosyayı DOCX olarak kaydetmeye devam ediniz. Ekrana, dosyayı makrosuz olarak kaydetmek isteyip istemediğiniz ile ilgili iletide "Evet" butonuna tıklayınız.

 UYARI: Bu kod vidyodaki dosyada olumsuz bir durum yaratmamıştır. Fakat yine de bu kodun karşılaşacağı muhtemel olumsuz durumları sıralamak istiyorum:

- Bu dosya içi görsel formatlama işi EMF, GIF, PNG dosyaları ile denenmiştir. Diğer dosya biçimleri ile nasıl bir durum ortaya çıkacağı ön görülmemiştir.

- Dosyanızdaki her bir görselin "metin ile aynı hizada" konumlandırma ayarında olmasına özellikle dikkat ediniz. Eğer görselleriniz göreceli olarak sayfada konumlanmış ise bu kod çalıştıktan sonra, görseller, dosyaya ilk kez hangi satırda, kaçıncı karakterin önünde eklendiyse oraya kayacaktır.

- Görsellerinizi muhakkak gruplandırınız. Bir sayfada ayrı olarak bağımsız birden fazla şekil (oklar, şemalar, metin kutuları) varsa, bu şekilleri birbirine muhakkak bağlayınız. Aksi takdirde konumları kayabilir.

Faydalı olması dileğiyle.

Youtube'da Süre Bağlantısı Oluşturmak, Yorumları Düzenlemek ve Yorumları Öne Çıkarmak

Merhabalar.

1) Youtube'a videolarında, yorum kısmında saat:dakika:saniye cinsinden veri girerek otomatik olarak ilgili videonun o süresine bağlantı oluşturulur. Saatlerce süren videolarda bu, çok kullanışlıdır.

Video izlerken URL olarak "Geçerli zaman ait video URL'sini kopyala"mak için, oynatma alanının üzerine sağ tıklayınız, komutu uygulayınız. Paylaşmak istediğiniz platforma giderek URL'yi yapıştırınız.

2) Youtube, ana sayfaya, 2020 yılına kadar, "Yorumlar" paneline doğrudan giden bir buton yerleştirmedi. Yorumlarınızın listelendiği sayfaya gitmek için bu bağlantıyı kullanabilirsiniz: 

https://www.youtube.com/feed/history/comment_history

Fakat, gelecekte Youtube'un sahipleri değişirse veya farklı bir ortama dönüşürse bu bağlantı değişebilir veya silinebilir.

3) Bir video için yazılmış yorumun veya sizin yazdığınız yorumun bağlantısını almak için zaman bildiren ifadeyi tıklayıp o yorumu veya yanıtı sayfanın en üstüne çıkarabilirsiniz. Bu tıklamadan sonra video bağlantısına ek olarak, adres çubuğunda, &lc= parametresinin sağında bir kod daha oluşur. Bu, yorumu veya yanıtı en üste çıkarmak içindir. Bu bağlantıyı kopyalayıp paylaşabilirsiniz.

Yorumları sıralamak için, şu ana kadar, 2 ölçüt verilmiş. Sıralama ölçütünü tıkladığınızda "En iyi yorumlar", "Önce en yeniler" şeklinde seçenekler verilmiştir. Dilerseniz bunları da kullanabilirsiniz.

Oldukça kullanışlı.