Ana içeriğe atla

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, herhangi bir sınırlama olmaksızın denemek için ücretsiz 60 Gün.

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.


En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler ProToplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla  /   Kimlik Avına Karşı E-postalar  /  🕘Gönderenin Saat Dilimini Göster ...

👩🏼‍🤝‍👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme  /  Kişi Grubunu Bireysel Gruplara Bölme  /  Doğum Günü Hatırlatıcılarını Kaldır ...

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

 

 

Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dobrý den,
já bych potřeboval, ale VBA script který by fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Děkuji.

ENG:
Good day,
I would need a VBA script that would work including subfolders. Can someone please edit this script as well? Thank you.
This comment was minimized by the moderator on the site
Hi Daniel Beneš,
To include subfolders, please try the following VBA code.
After adding the code, go to the Tools tab, click References, in the opening References - Project dialog box, check the Microsoft Scripting Runtime box, and then click the OK button to save the changes. See the following screenshot:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
After that, press the F5 key to run the code.

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
This comment was minimized by the moderator on the site
Nice tool but I got the problem, that I can't convert DOC files (written in capitals!) into docx files.
It works with doc files.
This comment was minimized by the moderator on the site
Hi,
The following code can help to convert both doc. and DOC. files into docx files. Please give it a try. Thanks for your feedback.

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
This comment was minimized by the moderator on the site
Thanks for sharing
This comment was minimized by the moderator on the site
best graphic design company in india
Designing is a craft of communicating words as articulations. Visuals matter more than words in the advanced field.
The experts in the designing business recommend that illustrations are simpler to recall than words,
and that is the reason Website designing and Graphics play an imperative job.

This comment was minimized by the moderator on the site
Thanks for sharing this useful information.
This comment was minimized by the moderator on the site
This is really insightful article , found it very helpful and informational
This comment was minimized by the moderator on the site
HelloNice post .. Keep sharing.Thank You
This comment was minimized by the moderator on the site
Hello sir,
I love with this post.I really appreciate for this website.Your information is so good and valuable.Lovable idea and concept for sharing this website.
This is an amazing website.This post is nice.
Thanks for sharing
This comment was minimized by the moderator on the site
Hi....Hi, This blog content very technical information, it is on of the best blog i have got. Very interesting and describe in a very easy way.
This comment was minimized by the moderator on the site
Hello,
I am glad to find this useful information Thanks for sharing this amazing article.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations