Bu makale, word belgelerini excel elektronik tablolarına nasıl dönüştürebileceğinizi, ancak aynı biçimlendirmeyi nasıl koruyabileceğinizi göstermektedir. Bir word belgesindeki verilerinizi biçimlendirmeniz veya sıralamanız gerektiğini varsayalım. Açıkçası, excel bunu yapmak için daha iyi bir seçimdir. Neyse ki, verileri yeni excel dosyasına tekrar yazmak zorunda değilsiniz.Aşağıdaki resim bu makalenin amacını vurgulamaktadır. Bunu nasıl kolayca yapabileceğinizi öğrenmek için hızlıca bir göz atın.

Alıştırma Çalışma Kitabını İndirin

Alıştırma çalışma kitabını aşağıdaki indirme butonundan indirebilirsiniz.

Word'den Excel'e Dönüştürme.xlsm

Word'ü Aynı Biçimlendirmeyle Excel'e Dönüştürmenin 2 Yolu

Aşağıdaki word belgesine sahip olduğunuzu düşünün. Şimdi bunu bir excel elektronik tablosuna dönüştürmek istiyorsunuz. Ardından aşağıdaki yöntemleri izleyin.

1. Kopyala-Yapıştır ile Word'ü Excel'e Dönüştürün

Verileri word belgesinden kopyalayıp excel sayfasına yapıştırabilirsiniz. Bunu yapmak için aşağıdaki adımları izleyin.

📌 Adımlar

• Önce word dosyasına gidin, ardından CTRL+A Tüm belgeyi seçmek için. Gerekirse yalnızca belirli bir aralığı da seçebilirsiniz.
• Bundan sonra, tuşuna basın CTRL+C Verileri aşağıda gösterildiği gibi kopyalamak için.

• Ardından, excel elektronik tablosuna gidin. Ardından, verileri almak istediğiniz aralığın sol üst hücresini seçin.
• Şimdi, basın CTRL+V Alternatif olarak, bu hücreye sağ tıklayabilirsiniz. Ardından Kaynak Biçimlendirmesini Koru (K) bir şey yok. Yapıştırma Seçenekleri .
• Bundan sonra, aşağıdaki sonucu alacaksınız.

Daha fazlasını okuyun: Word'den Excel'e Birden Çok Hücreye Kopyalama (3 Yol)

2. VBA ile Word'ü Excel'e Dönüştürme

Aynı şeyi Excel VBA ile de yapabilirsiniz. Bunu yapmak için aşağıdaki adımları izleyin.

📌 Adımlar

• İlk olarak, yeni bir çalışma sayfası ekleyin. Ardından, çalışma kitabını bir makro özellikli çalışma kitabı .
• Ardından, tuşuna basın ALT+F11 VBA penceresini açmak için.
• Ardından, şunları seçin Insert>> Modül aşağıdaki resimde gösterildiği gibi yeni bir modül oluşturmak için.

• Bundan sonra, kopyala düğmesini kullanarak aşağıdaki kodu kopyalayın.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word dosyası(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Lütfen Seçiniz") If File = False Then Exit Sub Set Word = CreateObject("Word.Application") Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)Document.Activate PG = Document.Paragraphs.Count Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End) Range.Select On Error Resume Next Word.Selection.Copy ActiveSheet.Range("B2").Select ActiveSheet.Paste Document.Close Word.Quit (wdDoNotSaveChanges) Application.ScreenUpdating = True End Sub 

• Ardından, kopyalanan kodu aşağıda gösterildiği gibi modül penceresine yapıştırın.

• Şimdi, basın F5 kodu çalıştırmak için. Bunu ayrıca Koşmak
• Bundan sonra, dönüştürmek istediğiniz word dosyasını seçmeniz istenecektir.
• Şimdi, istediğiniz word belgesinin konumuna göz atın. Ardından, dosyayı seçin ve Açık .

• Son olarak, önceki yönteme benzer bir sonuç elde edeceksiniz.

🔎 Kod Nasıl Çalışır?

Sub WordToExcelWithFormatting()

Dim Document, Word As Object

Dim Dosya As Varyant

Dim PG, Aralık

Gerekli değişkenlerin bildirilmesi.

Application.ScreenUpdating = False

Dosya = Application.GetOpenFilename _

("Word dosyası(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Lütfen Seçiniz")

Dosya = Yanlış İse Alttan Çık

Set Word = CreateObject("Word.Application")

Bu ayarlar Kelime değişkenini bir word belgesi olarak ayarlayın.

Set Belge = Word.Belgeler.Aç(Dosyaadı:=Dosya, Salt Okunur:=Doğru)

Bu atama Belge değişkenini kullanıcı tarafından atıfta bulunulan nesne veya dosyaya yönlendirir.

Belge.Etkinleştir

PG = Document.Paragraphs.Count

Bu kod satırı PG word belgesindeki paragraf sayısına değişken

Set Aralık = Document.Range(Başlangıç:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End)

Aralık.Seç

Hatada Sonraki Devam Et

Word.Seçim.Kopyala

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Belge.Kapat

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

End Sub

Daha fazlasını okuyun: Word Tablosunu Excel Elektronik Tablosuna Dönüştürme (6 Yöntem)

Hatırlanması Gerekenler

• Word dosyasını PDF olarak da kaydedebilirsiniz. Ardından, PDF düzenleyicinizi kullanarak Excel Elektronik Tablosuna dönüştürebilirsiniz.
• Çalışma kitabını şu şekilde kaydetmeyi unutmayın .xlsm Aksi takdirde kodu kaybedersiniz.

Sonuç

Artık bir word belgesini excel elektronik tablosuna nasıl dönüştüreceğinizi ve biçimlendirmeyi nasıl koruyacağınızı biliyorsunuz. Bu makale sorununuzu çözmenize yardımcı olduysa lütfen bize bildirin. Daha fazla soru veya öneri için aşağıdaki yorum bölümünü de kullanabilirsiniz. ExcelWIKI excel hakkında daha fazlasını keşfetmek için blog. Bizimle kalın ve öğrenmeye devam edin.