Како претворити .доц формат датотеке у .доцк у Ворд?

Претпостављајући да сте добили неке Ворд документе КСНУМКС-КСНУМКС, како можете да конвертујете све ове .доц форматне документе у .доцк формат одједном? Овај чланак ће вам показати два начина за рјешавање овог проблема.

Батцх претворити .доц формат датотеке у .доцк са ВБА кодом

Батцх претворити .доц формат датотеке у .доцк с Кутоолс за Ворд

---

---

Батцх претворити .доц формат датотеке у .доцк са ВБА кодом

Овај одељак ће вам показати ВБА код за претворбу свих .доц форматних докумената у одређеној фасцикли у .доцк документе одједном. Урадите како следи.

КСНУМКС. Молимо сакупљајте све .доц форматне документе које ћете претворити у .доцк у одређеном директоријуму.

КСНУМКС. притисните други + ФКСНУМКС кључ за отварање Мицрософт Висуал Басиц за апликације прозор.

КСНУМКС. У прозору кликните на Убацити > Модули. Затим копирајте испод ВБА кода у прозор Модуле.

ВБА код: Батцх претворити све .доц форматне документе у .доцк у одређеном фолдеру

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

КСНУМКС. притисните F5 кључ за покретање кода. У отварању Прегледај прозор, одаберите фасциклу садржи документе .доц формата и кликните OK. Погледајте снимак екрана:

Тада се сви документи .доц документа конвертују у .доцк документе одмах као што је приказано испод.

---

Батцх претворити .доц формат датотеке у .доцк с Кутоолс за Ворд

У овом одељку ће се препоручити корисна корисност. Са Доц / Доцк корисност Кутоолс фор Ворд, можете лако претворити све .доц формат документа у фасциклу у .доцк документе. Молимо покушајте како слиједи.

Кутоолс фор Ворд : Са више од КСНУМКС практичних додатака за Ворд, слободно покушати без ограничења у КСНУМКС данима.

КСНУМКС. Молимо сакупљајте све .доц документе у одређеном директоријуму, а затим кликните на Кутоолс Плус > Доц / Доцк. Погледајте снимак екрана:

КСНУМКС. У Конвертор формата документа дијалог бок, морате урадити како слиједи:

КСНУМКС) Изаберите мапу која садржи документе .доц у формату Фасцикла изворне датотеке секција;

КСНУМКС) Изаберите Претвори доц у доцк од Формат Цонверт падајуће листе;

КСНУМКС) Подразумевано, Путни правац исти као извор кутија је означена. Ако желите да ставите све конвертоване .доцк документе у исту фасциклу, само задржите ову опцију изабрану;

Ако желите да раздвојите .доцк документе и изворне .доц документе, молимо уклоните ознаку Путни правац исти као извор поље и изаберите нову фасциклу да бисте сачували .доцк документе у фолдеру Сачувај у бок;

КСНУМКС) Кликните на Почетак дугме. Погледајте снимак екрана:

КСНУМКС. Затим се појављује дијалошки оквир да би вам испричао колико је докумената успешно конвертовано, кликните на дугме OK дугме и затворите Конвертор формата документа прозор.

Сада сви документи документа .доц конвертују се у .доцк датотеке. Погледајте снимак екрана:

Ако желите да имате бесплатну пробну верзију овог корисничког програма, молимо идите на бесплатан довнлоад софтвера прво, а затим идите да примените операцију према горе наведеним корацима.

---

---

Кутоолс за Оутлоок

Више од КСНУМКС напредних функција за Оутлоок КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС

Још карактеристика | Бесплатно скидање | Само $ КСНУМКС за стотине функција