Worde Gönderilen Metni Sütunu Hesaplayarak Yazdırmak

Arkadaşlar ve hocalarım worde 27 karakter ile sınırlanmış İsim Soyisim gönderiyorum ismin bir altındaki satıra da bu ismin ünvanını gönderiyorum.

göndermekte ve yazdırmakta problemim yok fakat başaramadığım ve araştırıp bulamadığım konu bunları yazdırırken isim soyisim altına gelen ünvan ya ileride yada geride oluyor bir türlü oralatamadım
isim kısa veya uzun olursa ileride veya geride kalıyor
 
sütunu tek tek karakter olarak sayfım (86) karakter boşluk olarak saydım (160) boşluk var
buna uygun hesaplama yapmak istedim bir türlü her ismime göre ortalama yaptıramadım

yapmak istediğim olay

İsim Soyisim sütunun sonunaa 5 bolluk kalacak şekilde sola dayalı yazması ve altına yazılacak ünvan da isme göre ortalı olması

bu konuda yardımcı olurmusunuz

uyguladığım formül
İsim Soyisim

.Selection.Text = Space(160 - (Len(DLookup("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")) * 1.7)) & Dlookup ("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")

Ünvan
.Selection.Text = Space(160 - ((Len(DLookup("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")) + (Len(DLookup("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")) / 2)) * 1.7) + 12) & Dlookup ("Unvan", "Ek_süre_Talep_Sorgu")

Sayın bibib

Worda aktarırken yer imli şablon dosya kullanırsanız işiniz daha kolay olur diye düşünüyorum. Ekteki örnek dosyayı inceler misiniz?

Sayın userx Hocam

ilginiz içi teşekkür ediyorum. Kullandığım programda sıra1.... den başlayarak devam eden yer imli gömülü tek sayfa şablon kullanıyorum Bu şablonu tüm farklı form ve üstyazılar için kullandığımdan dolayı imza için gönderdiğim yazıların im sıraları değişebiliyor bu yüzden imza için ayrıca bir im yeri oluşturamıyorum bu yüzden hangi sıraya geldi ise o alana yazmak zorunda olduğu için (bazen yazılar kıs veya uzun çeşitli olabiliyor) sütundaki karakter sayısını hesaplayarak hesaplama yaptırabilirmiyim diye düşünerek böyle bir kod ve hesaplama lazım oldu.

Kullandığınız dosyanın rastgele verilerle oluşturduğunuz bir kopyasını yüklerseniz inceleyip yardımcı olmaya çalışırız.