Seçili Paragraf Döngülerinde Dosya Sonu Uyarısı Vermek

If Selection.StoryType = wdMainTextStory Then wUnits = Selection.Move(Unit:=wdWord, Count:=2) If wUnits < 2 Then _ MsgBox "Selection is at the end of the document" End If Kaynak: https://www.codevba.com/Word/Selection/Move.htm#.YhzTxXNByUl

Sadece Satır Dışında Kalmış, Metinden Bağımsız Duran Görselleri Bulmak, Toplam Sayılarını Almak

Word dosyasında satır dışında kalmış, metinden bağımsız duran görseller varsa ve görsellerin satır içinde olması gerekiyorsa sadece onları bulmak için aşağıdaki kodu kullanabilirsiniz.

Aşağıdaki kodu kopyalayıp Not Defteri'ne yapıştırınız. Dosya biçimini ".bas" olarak kaydediniz. Kodu, Visual Basic arayüzünden "F8" tuşu ile adım adım uygulayınız!

Attribute VB_Name = "Satirdisi_Gorsel_Bul" Sub Satirdisi_Gorsel_Bul() Dim dokuman As Word.Document Dim satirdisi_gorsel As Word.Shape MsgBox ("Belgede, satıriçi " & ActiveDocument.InlineShapes.Count & "; " & vbCr & _ "satırdışı, metinden bağımsız " & ActiveDocument.Shapes.Count & "; " & vbCr & _ "toplam: " & ActiveDocument.Shapes.Count + ActiveDocument.InlineShapes.Count & " görsel var. " & vbCr & _ "Kodu, Visual Basic arayüzünden F8 ile adım adım uygulayınız!") Set dokuman = ActiveDocument For Each satirdisi_gorsel In dokuman.Shapes satirdisi_gorsel.Select Selection.Range.Select Next End Sub

Kedi Temaları

Merdiven korkuluklarının önünde alttan vuran ışık ile görüntülenen kedi için uyarlanmış bir vidyo.

Taşınabilir Vidyo Düzenleme Araçları

NCH VideoPad Video Editor Professional 10.10 Portable.7z
8.9 MB
Şifre: 123
https://mega.nz/file/81hAgC6C#vVHG68ISwXBD7LIMZeAtfT_9k_LH0wzY-9GRci7IrLs
Kaynak: https://tophanmem.com/download-videopad-video-editor/

---

Avidemux
41,9 MB

Vidyoya altyazı gömmek için kullanıldı.

https://portableapps.com/downloading/?a=AvidemuxPortable&n=Avidemux%20Portable&s=s&p=&d=pa&f=AvidemuxPortable_2.8.0.paf.exe
Kaynak: https://www.makeuseof.com/tag/embed-subtitles-mp4-flv-videos-avidemux-crossplatform/

---

Joker Karakter Aktif İken Arama İfade Açıklamaları

Joker Karakter Aktif İken Arama İfade Açıklamaları

Bu yazı "-" tire karakterini aramak için yapılan denemeler sırasında oluşturulmuştur. İnternette genelde joker aktif iken "^13" değerinin "^p" değerini karşıladığı bilgisini görürsünüz. Diğer sayılar da farklı karakterleri bulabiliyor. Denk geldiklerimi aşağıda listeledim. Listelenmeyen karakterleri sayıyı aşağıya veya yukarıya doğru deneyerek, sizler de bulabilirsiniz.

^9 =
Tab, sekme boşluğu

^32 =  
Boşluk işareti

^42 =
Herhangi bir karakteri bulur. Arama sırasında "Sonraki" tuşuna basıldığında, karakterleri sırasıyla bulur

^44 = ,
Virgül

^45 = -
Tire veya eksi işareti

^46 = .
Nokta

^47 = /
Sağa yatık kesme işareti

^48 = 0
Sıfır

^57 = 9
Dokuz

^58 = :
Dikey iki nokta

^59 = ;
Noktalı virgül

^61 = =
Eşittir

^92 = Word içinde "köprü" olan linkleri bulur. URL sadece metin ise, yani URL metni üzerindeyken, imleç "el" şeklini almıyorsa, bunları bulmaz.

^95 = _
Alt tire

^96 = `


^97 = a
Küçük a

^98 = b
Küçük b

^99 = c
Küçük c

^100 = d
Küçük d

^110 = n
Küçük n

^120 = x
Küçük x

^135 = ç
Küçük ç

^140 = î
Şapkalı küçük i

^141 = ı
Küçük ı

^152 = İ
Büyük İ

^154 = Ü
Büyük Ü

^159 = ş
Küçük ş

^160 = á
Küçük sağa yükselen şapkalı a