Telefon Tutucu

Telefonun daha iyi çekim yapabilmesi için bir tripod aranmıştır.

Alt taraftaki kıskaç metal, gövde kısmı metal, telefonu tutan kıskaç plastiktir.

2021 Mayıs ayındaki taramada, internetteki benzerleri, ucuz olarak, 17 TL'ye kadar bulunabilmiştir. Fakat bunların metal mi plastik mi olduğu tespit edilememiştir. Bazı satıcıların sabit bir görsel kullanması, ürünün doğruluğunu şüpheye düşürdüğü için görerek alınması tercih edilmiştir.

Karaköy Yeraltı Çarşısından alınan bu telefon tutucu 45 TL'ye alınmıştır.

Ürünün verimli olup olmadığını zaman gösterecek.

Konum:

Word Dosyasında Görünmeyen Karakterleri Makro İle Temizleme Denemesi

Merhabalar.

Word dosyalarında istenmeyen ve görünmeyen karakterlerin işinizi yavaşlattığına şahit olmuşsunuzdur.

Bunları temizlemek için istenen karakter aralığının dışında tüm karakterleri silmek mantığında çalışan, basit bir makro denedim.

Kod, kısmen başarılı olsa da işlemciyi 3 basamaklı sayfaya erişen dosyalarda işlemciyi yorması ve aşağıdaki gibi bazı özel karakterlerin makroya eklenememesi gibi sorunlardan dolayı, kodun gelişimi maalesef sekteye uğradı.

Bu karakterlerin istisna dizisi içinde yer almasını istedim; fakat makro düzenleyici Unicode 255'inci karakter sırasından sonraki Genişletilmiş Latinceyi desteklemedi:
ā Ā ˁ ḍ Ḍ ˀ ḥ Ḥ ḫ Ḫ ġ Ġ Ī Ī ḳ Ḳ s̠ S̠ ṣ Ṣ ṭ Ṭ ū Ū ẕ Ẕ Ż Ż ẓ Ẓ

Word dosyasındaki deneme metni aşağıdadır:

ARŞİVLER

Lorem Ipsum, dizgi ve baskı endüstrisinde kullanılan mıgır metinlerdir. Lorem Ipsum, adı bilinmeyen bir matbaacının bir hurufat numune kitabı oluşturmak üzere bir yazı galerisini alarak karıştırdığı 1500'lerden beri endüstri standardı sahte metinler olarak kullanılmıştır.

Beşyüz yıl boyunca varlığını sürdürmekle kalmamış, aynı zamanda pek değişmeden elektronik dizgiye de sıçramıştır. 1960'larda Lorem Ipsum pasajları da içeren Letraset yapraklarının yayınlanması ile ve yakın zamanda Aldus PageMaker gibi Lorem Ipsum sürümleri içeren masaüstü yayıncılık yazılımları ile popüler olmuştur.

Joker karakterli değiştirme penceresinde ise şu arama ifadesini denedim. Kısmen başarılı oldu; ama 255'ten fazla karakteri bu pencerede yönetmek zor.
[!A-z 0-9 ışğüöçİŞĞÜÖÇ.,;'^13]

Çalıştırdığım makro:

Sub Gorunmeyen_Karakter_Vurgula()
Dim ToplamHarfSayisi As Long
ToplamHarfSayisi = ActiveDocument.Range.Characters.Count

Dim HarfSayac As Long
Dim Dizi As Variant
Dizi = Array("", "A", "B", "C", "Ç", "D", "E", "F", "G", "Ğ", "H", "I", "İ", "J", "K", "L", "M", "N", "O", "Ö", "P", _
"Q", "R", "S", "Ş", "T", "U", "Ü", "V", "W", "X", "Y", "Z", " ", ".", ",", ":", ";", _
"a", "b", "c", "ç", "d", "e", "f", "g", "ğ", "h", "ı", "i", "j", "k", "l", "m", "n", _
"o", "ö", "p", "q", "r", "s", "ş", "t", "u", "ü", "v", "w", "x", "y", "z", _
"!", Chr(34), "#", "$", "%", "&", "'", Chr(133), "(", ")", "*", "+", "-", "/", ">", "=", "<", "?", "@", _
"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
"â", "î", "û", "Â", "Î", "Û", _
"[", "\", "]", "^", "_", "`", "{", "|", "}", "~", "€", "ƒ", _
Chr(137), "Š", "‹", "Œ", "?", "'", "o", "-", "™", "š", "›", "œ", "Ÿ", "¡", "¢", "£", _
"¤", "¥", "¦", "§", "¨", "©", "ª", "­", "®", "¯", "°", "±", "²", "³", "´", "µ", "·", "¸", "¹", "º", "¼", "½", "¾", "¿", _
"À", "Á", "Ã", "Ä", "Å", "Æ", "È", "É", "Ê", "Ë", "Ì", "Í", "Ï", "Ñ", "Ò", "Ó", "Ô", "Õ", "×", _
"Ø", "Ù", "Ú", "ß", "à", "á", "ã", "ä", "å", "æ", "è", "é", "ê", "ë", "ì", "í", "ï", "ñ", "ò")

Dim DiziSayac As Long

For HarfSayac = 1 To ToplamHarfSayisi

For DiziSayac = 1 To UBound(Dizi)

If ActiveDocument.Range.Characters(HarfSayac) = Dizi(DiziSayac) Then

GoTo SonrakiHarf

End If

Next DiziSayac

If DiziSayac > UBound(Dizi) - 1 Then

ActiveDocument.Range.Characters(HarfSayac).Select

Selection.Range.HighlightColorIndex = wdRed

End If

ToplamHarfSayisi = ActiveDocument.Range.Characters.Count

If HarfSayac = ToplamHarfSayisi Then

GoTo IslemSonu

End If

SonrakiHarf:

Next HarfSayac
IslemSonu:
End Sub

Microsoft Word Tablo Makroları

Word dosyasındaki tabloların sadece başlık kısımlarını seçmek için aşağıdaki kodu çalıştırınız. 

Sub Tablo_Basliklarini_Sec()

On Error Resume Next

ActiveDocument.DeleteAllEditableRanges (-1)

Dim Tbl As Table

For Each Tbl In ActiveDocument.Tables

Tbl.Rows(1).Range.Editors.Add (-1)

Next

ActiveDocument.SelectAllEditableRanges (-1)

ActiveDocument.DeleteAllEditableRanges (-1)

End Sub

---

Tüm tabloları seçmek için aşağıdaki kodu çalıştırınız.

Sub Tum_Tablolari_Sec()

ActiveDocument.DeleteAllEditableRanges (-1)

Dim Tbl As Table

For Each Tbl In ActiveDocument.Tables

If Tbl.Rows.Count > 1 Then

Tbl.Range.Editors.Add (-1)

End If

Next

ActiveDocument.SelectAllEditableRanges (-1)

ActiveDocument.DeleteAllEditableRanges (-1)

End Sub

Kaynak: https://www.extendoffice.com/documents/word/639-word-select-all-tables.html

---

Dosyadaki tüm tabloları silmek için aşağıdaki kodu çalıştırınız.

Sub Tablolari_Sil()

Dim oTable As Table

For Each oTable In ActiveDocument.Tables

oTable.Delete

Next oTable

End Sub

Kaynak: https://www.extendoffice.com/documents/word/1208-word-remove-delete-all-tables.html

---

Bazı dosyalardaki tablolar metin içerisine, görseldeki gibi, yayılmış durumdadır.

Görseldeki işaretlenmek istenen "Yok" komutunu çalıştırmalıyız. Dolayısıyla, tabloları sade bir şekilde paragrafta tutmak, görseldeki komutu gerçekleştirmek için aşağıdaki kodu çalıştırınız.

Sub Tablolari_Satir_Disina_Cikar()

Dim oTable As Table

For Each oTable In ActiveDocument.Tables

oTable.Rows.WrapAroundText = False

Next oTable

End Sub

Kod çalıştırıldıktan sonra tablolar, görseldeki gibi, tek bir satıra yerleştirilmiştir.

Kaynak: https://microsoft.public.word.vba.general.narkive.com/15y0uOls/table-text-wrapping-property-from-vba

---

Kodlar Office 2013 ve 2016 sürümlerinde denenmiştir.

Konu ile ilgili yeni özellikler bulundukça veya üretilebildikçe buraya eklenecektir.

"Adaptive Subdivide" Modunda "Micro Displacement" Uygulamasında Obje Kenarlarında Meydana Gelen Boşluklar

Bu yazı; Blender'da "Adaptive Subdivide" modunda "Micro Displacement" uygulamasında obje kenarlarında meydana gelen boşluklardan dolayı oluşturulmuştur.

Bunlarla ilgili bazı başlıklar şöyleydi.

https://blender.stackexchange.com/questions/143529/displacement-map-creates-gaps-on-the-corners-of-a-wall

https://blender.stackexchange.com/questions/148279/visible-gaps-in-mesh-when-using-adaptive-subdiv-and-multiple-materials

https://blenderartists.org/t/microdisplacement-using-uv-texture-gaps-at-edges/677446/2

Andrew Price, https://twitter.com/andrewpprice/status/1160783200324481024 adresinde bu konuya değinmiş.

"Just posted this question on Blender stackexchange: https://blender.stackexchange.com/questions/148279/adaptive-subdiv-produces-visible-gap-between-materials Any way to prevent visible gaps in meshes when using multiple materials and adaptive subdiv?"

Joseph Masaki, https://twitter.com/vertenflow/status/1160782236578246656 adresinde Andrew'e şu cevabı vermiş:

Vertex paint driving mix nodes? not as easy to customize for different combinations.
https://drive.google.com/file/d/1r_wPcy6NuoclMXbUQdCX_mKrw8BNZ4Zm/view?usp=sharing

Joseph Masaki'nin paylaştığı "node" şöyle:

Fakat bu iki ayrı PBR materyali karşılamıyor. Bunun için Andrew'e https://blender.stackexchange.com/questions/148279/visible-gaps-in-mesh-when-using-adaptive-subdiv-and-multiple-materials adresinde verilen diğer cevapları test etmek gerekir:

One painful way to control adaptive subdiv displacement transitions is using Vertex Paint. Ex using stone and grass, each using their own displacement map:

Create 3 materials, two for the real materials and one that will be using the other two for the transition. enter image description here.

Create two node groups corresponding to each of your materials including the BSDF AND the Displacement output. enter image description here enter image description here

Create the transition geometry, ex: a band of faces that we'll use for vertex painting: enter image description here

Make sure to assign each material to its vertices, ex: grass on one side, stone on the other and the transition material in between enter image description here

Create a vertex color layer and paint where the transition happens, one side white, one side black. This is used to control the displacement "height" transition between the materials enter image description here

For the transition material, use the Attribute node to get the Vertex Color and drive the transitione by scaling the two materials displacement vectors enter image description here

Note, you will need one new "Mix" material and vertex color layer for each material transition required.