Bu yazıda, size Word belgenizdeki yatay ve dikey metinleri dönüştürmenin 4 hızlı ve kolay yolunu göstermek istiyoruz.
Ara sıra, belgemizde metinleri yatay veya dikey olarak düzenlememiz muhtemeldir. Ardından, yatay bir metni dikey bir metne dönüştürme şansı vardır. Tüm bilgileri yeniden yazmak zaman alıcı ve sabır öldürücü olacaktır.
Bu nedenle, size yatay bir metni dikey bir metinle ve tersini yapmak için aşağıdaki gibi 4 yol sunmak istiyoruz:
Durum 1: Dikey Metinleri Yatay Metinlere Dönüştürün
Öncelikle dikey ve yatay metinler arasında geçiş yapmak için 2 yöntem vardır.
Yöntem 1: "Değiştir" Özelliğini Kullanın
- Öncelikle şunu seçin: tarmetin al
- Ardından “Ana Sayfa” sekmesine tıklayın.
- Ardından “Düzenleme” grubuna gidin ve “Değiştir” seçeneğini tıklayın. Veya “Bul ve Değiştir” iletişim kutusunu açmak için “Ctrl+H” tuşlarına basabilirsiniz.

- Şimdi imleci “Neyi bul” metin kutusuna getirin, “^p” girin.
- Ve "Şununla değiştir" metin kutusuna bir boşluk yazın.
- Ardından, "Tümünü Değiştir" i tıklamanız yeterlidir.
- Açılan bir iletişim kutusu olacak, sadece “Evet” e tıklayın.
Yöntem 2: Makro Çalıştır
- Öncelikle “Geliştirici” sekmesine tıklayın.
- Ardından, VBA düzenleyicisini tetiklemek için “Visual Basic”e tıklayın. Alternatif yol, "Alt + F11" tuşlarına basmaktır.
- Ardından “Normal” projesine tıklayın.
- Ve "Ekle" yi tıklayın.
- Normal projede yeni bir modül oluşturmak için “Modül”ü seçin.
- Daha sonra düzenleme alanını açmak için modüle çift tıklayın.
- Aşağıdaki kodları oraya yapıştırın:
Sub ConvertVerticalToHorizontalList()
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = False
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- Son olarak, "Çalıştır" ı tıklayın.
Durum 2: Yatay Metinleri Dikey Metinlere Dönüştürün
Yöntem 1: "Değiştir" Özelliği ile tekrar gidin
- İçintart ile, vaka3'in yöntem 1'indeki ilk 1 adımı tekrarlayın.
- Ancak bu sefer “Bul ve Değiştir” iletişim kutusunda “Neyi Bul” metin kutusuna bir boşluk ve “Şununla değiştir” kutusuna “^p” girin.
- Ardından "Tümünü Değiştir" i tıklayın.
Yöntem 2: Makro Çalıştır
- Benzer şekilde, durum 6'in yöntem 2'sindeki ilk 1 adımı izleyin.
- Ve bu sefer bunun yerine aşağıdaki kodları yapıştırın:
Sub ConvertHorizontalToVerticalList()
With Selection.Find
.Text = " "
.Replacement.Text = "^p"
.Forward = False
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- "Çalıştır" ı tıklamayı unutmayın.
L'nizi Alınost fileto
Günümüz iş hayatında sürekli olarak dijital cihazlarla uğraşmak zorunda kaldığımız için kritik bilgileri kaybetme riskiyle de karşı karşıyayız. Bunu önlemek için yedek almak harika bir çözümdür. Ancak, yedekleme günlük bir sebat gerektirir. Zaman geçtikçe, dosyaların yedeğini alma kararlılığınız günlük hayatın arka planına karışabilir. Ve hiçbir şey sihirli değnek değildir, yedekler bile. Bu nedenle, bir bozuk Word belgesi kurtarma aracı.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. hasarlı xlsx onarım aracı ve pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com






