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