Note: The other languages of the website are Google-translated. Back to English

Word'de .doc biçimindeki dosyaları toplu olarak .docx'e nasıl dönüştürebilirim?

97-2003 biçimindeki bazı Word belgelerini aldığınızı varsayarsak, tüm bu .doc biçimindeki belgeleri tek seferde toplu olarak .docx biçimine nasıl dönüştürebilirsiniz? Bu makale size bu sorunu çözmek için iki yöntem gösterecektir.

VBA kodu ile .doc formatındaki dosyaları toplu olarak .docx'e dönüştürün
Kutools for Word ile .doc formatındaki dosyaları toplu olarak .docx'e dönüştürün


VBA kodu ile .doc formatındaki dosyaları toplu olarak .docx'e dönüştürün

Bu bölümde, belirtilen bir klasördeki tüm .doc biçimindeki belgeleri aynı anda .docx belgelerine dönüştürmek için VBA kodunu göstereceğiz. Lütfen aşağıdaki işlemleri yapın.

1. Lütfen .docx'e dönüştüreceğiniz tüm .doc biçimindeki belgeleri belirtilen bir klasörde toplayın.

2. Tuşuna basın. Ara Toplam + F11 tuşuna basarak Uygulamalar için Microsoft Visual Basic pencere.

3. Pencerede tıklayın Ekle > modül. Ardından, VBA kodunu Modül penceresine kopyalayın.

VBA kodu: Tüm .doc biçimindeki belgeleri belirli bir klasörde toplu olarak .docx'e dönüştürün

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20181128
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

4. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Açılışta Araştır penceresinde, .doc formatındaki belgeleri içeren klasörü seçin ve tıklayın OK. Ekran görüntüsüne bakın:

Ardından, tüm .doc biçimindeki belgeler, aşağıda gösterilen ekran görüntüsü gibi hemen .docx belgelerine dönüştürülür.


Kutools for Word ile .doc formatındaki dosyaları toplu olarak .docx'e dönüştürün

Bu bölümde kullanışlı bir yardımcı program önerilecektir. İle Doc / Docx yarar Kutools for Word, bir klasördeki .doc biçimindeki tüm belgeleri kolayca .docx belgelerine dönüştürebilirsiniz. Lütfen aşağıdaki gibi deneyin.

Kutools for Word : 100'den fazla kullanışlı Word eklentisiyle, 60 gün içinde hiçbir sınırlama olmaksızın ücretsiz denemek.

1. Lütfen tüm .doc biçimindeki belgeleri belirtilen bir klasörde toplayın ve ardından Kutools Artı > Doc / Docx. Ekran görüntüsüne bakın:

2. içinde Belge Biçimi Dönüştürücü iletişim kutusu, aşağıdaki işlemleri yapmanız gerekir:

2.1) .doc formatındaki belgeleri içeren klasörü seçin. Kaynak dosya klasörü Bölüm;
2.2) Seç Doc'u docx'e dönüştür itibaren Biçim Dönüştürme açılır liste;
2.3) Varsayılan olarak, Hedef yol, kaynakla aynı kutusu işaretlenmiştir. Dönüştürülen tüm .docx belgelerini aynı klasöre yerleştirmek istiyorsanız, bu seçeneği seçili bırakın;
.Docx belgelerini ve kaynak .doc belgelerini ayırmak istiyorsanız, lütfen Hedef yol, kaynakla aynı .docx belgelerini kaydetmek için yeni bir klasör seçin. Şuraya kaydet Kutu;
2.4) Başlama buton. Ekran görüntüsüne bakın:

3. Ardından, size kaç belgenin başarıyla dönüştürüldüğünü söyleyen bir iletişim kutusu açılır, OK düğmesine basın ve kapatın Belge Biçimi Dönüştürücü pencere.

Artık tüm .doc biçimindeki belgeler .docx dosyalarına dönüştürülüyor. Ekran görüntüsüne bakın:

Bu yardımcı programı ücretsiz olarak denemek istiyorsanız, lütfen şu adrese gidin: yazılımı ücretsiz indirin önce ve sonra yukarıdaki adımlara göre işlemi uygulamaya gidin.


Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (17)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tebrikler! Paylaşım için teşekkürler. Bu son derece yardımcı oldu. Dönüştürülmesi gereken 50'den fazla belgem vardı. Hepsini halletmek için 000 saatten fazla bir dokunuş sürdü. Büyük yardım. 39. seçeneği kullandım
Bu yorum sitedeki moderatör tarafından en aza indirildi
PDF dosyasına dönüştürmek istediğiniz Word belgesini açın. Yalnızca içe aktarmak istiyorsanız ... ConvertOnlineFree - Word belgelerinin bireysel ve toplu konuşmalarını PDF'ye ... PDFOnline - ücretsiz Word (doc, docx ve txt) to PDF dönüştürücü.

Güzel blog, paylaştığınız yazı güzel.Bu yazı çok faydalı. Arkadaşım bu blogu kullanmamı önerdi.

https://customersurveyinfo.com
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, paylaşım için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Okumak için ilginç şeyler. Aynen böyle devam.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Bu yararlı bilgiyi bulduğuma sevindim Bu harika makaleyi paylaştığınız için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba....Merhaba, Bu blog içeriği çok teknik bilgiler, sahip olduğum en iyi bloglardan biri. Çok ilginç ve çok kolay bir şekilde tarif edin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba efendim,
Bu gönderiyi çok seviyorum.Bu site için gerçekten minnettarım.Bilgileriniz çok güzel ve değerli.Bu siteyi paylaşmak için çok güzel bir fikir ve konsept.
Bu harika bir web sitesi. Bu yazı güzel.
Paylaşım için teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
MerhabaGüzel gönderi..Paylaşmaya devam edin.Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu gerçekten anlayışlı bir makale, çok yararlı ve bilgilendirici buldum
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu yararlı bilgi paylaşımı için teşekkür ederiz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hindistan'ın en iyi grafik tasarım şirketi
Tasarım, kelimeleri artikülasyon olarak iletme sanatıdır. Gelişmiş alanda görseller kelimelerden daha önemlidir.
Tasarım işindeki uzmanlar, çizimlerin kelimelerden daha kolay hatırlanmasını tavsiye ediyor.
ve Web sitesi tasarımı ve Grafiklerin zorunlu bir iş oynamasının nedeni budur.

Bu yorum sitedeki moderatör tarafından en aza indirildi
Paylaşım için teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika bilgiler Çok faydalı paylaşım için teşekkürler.

Farmtrac 60
Bu yorum sitedeki moderatör tarafından en aza indirildi
Güzel araç ama sorunum var, DOC dosyalarını (büyük harflerle yazılmış!) docx dosyalarına dönüştüremiyorum.
doc dosyaları ile çalışır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Aşağıdaki kod, her iki belgeyi de dönüştürmeye yardımcı olabilir. ve DOC. dosyaları docx dosyalarına dönüştürün. Lütfen bir deneyin. Geri bildiriminiz için teşekkürler.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20220506
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(VBA.LCase(xFileName), "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Dobry den,
já bych potřeboval, ale VBA script kteri, fungoval včetně podsložek tarafından. Umíte někdo prosím upravit i tento skript? Dekuji.

ENG:
İyi günler,
Alt klasörler dahil çalışacak bir VBA betiğine ihtiyacım olacak. Birisi lütfen bu betiği de düzenleyebilir mi? Teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Daniel Benes,
Alt klasörleri dahil etmek için lütfen aşağıdaki VBA kodunu deneyin.
Kodu ekledikten sonra, Tools sekmesini tıklayın Referanslar, açılışta Referanslar - Proje iletişim kutusunda Microsoft Komut Dosyası Çalışma Zamanı ve ardından OK Değişiklikleri kaydetmek için düğmesine basın. Aşağıdaki ekran görüntüsüne bakın:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Bundan sonra, düğmesine basın F5 kodu çalıştırmak için anahtar.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20221124
  Dim xDlg As FileDialog
  Dim xFldPath As Variant
  Dim xFileName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFldPath = xDlg.SelectedItems(1) + "\"
  Call ListAllFiles(xFldPath)
  Application.ScreenUpdating = True
End Sub

Function ListAllFiles(FldPath)
  Dim xFSO As FileSystemObject
  Dim xFolder As Folder
  Dim xSubFolder As Folder
  Dim xNewName As String
  On Error Resume Next
  xFileName = Dir(FldPath & "*.doc", vbNormal)
  While xFileName <> ""
    xNewName = VBA.Left$(xFileName, VBA.InStrRev(xFileName, "doc") - 1) & "docx"
    Documents.Open FileName:=FldPath & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FldPath & xNewName, wdFormatDocumentDefault
    ActiveDocument.Close
    xFileName = Dir()
  Wend
  Set xFSO = CreateObject("Scripting.FileSystemObject")
  Set xFolder = xFSO.GetFolder(FldPath)
  For Each xSubFolder In xFolder.SubFolders
    Call ListAllFiles(xSubFolder.Path + "\")
  Next
  Set xFSO = Nothing
  Set xFolder = Nothing
End Function
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar