Ki jan yo pakèt konvèti dosye fòma doc .dokx nan Pawòl?

Sipoze ou te resevwa kèk 97-2003 fòma dokiman Pawòl, ki jan ou ka pake konvèti tout bagay sa yo dokiman fòma doc nan fòma dokx nan yon fwa? Atik sa a pral montre w de metòd pou rezoud pwoblèm sa a.

Pakèt konvèti .dok fòma doc yo .dokx ak VBA kòd

Pakèt konvèti .dok fòma dosye a .dokx ak Kutools pou Pawòl

---

---

Pakèt konvèti .dok fòma doc yo .dokx ak VBA kòd

Seksyon sa a pral montre w kòd la VBA konvèti tout dokiman fòma doc nan yon katab espesifik dokiman docs nan yon fwa. Tanpri fè jan sa a.

1. Tanpri, kolekte tout dokiman fòma doc ou pral konvèti nan .docx nan yon katab espesifye.

2. Peze la Alt + F11 kle yo louvri a Microsoft Visual Basic pou aplikasyon pou fenèt.

3. Nan fennèt la, klike sou Antre > Modil. Lè sa a, kopi anba a VBA kòd nan fenèt modil la.

VBA kòd: Pakèt konvèti tout dokiman fòma doc .docx nan yon katab sèten

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. Peze la F5 kle nan kouri kòd la. Nan ouvèti a Browse fenèt la, chwazi katab la gen dokiman yo fòma dok epi klike sou OK. Al gade nan Ekran:

Lè sa a, tout .dok fòma dokiman yo konvèti nan dokiman dokiman imedyatman kòm anba a Ekran yo montre.

---

Pakèt konvèti .dok fòma dosye a .dokx ak Kutools pou Pawòl

Y ap rekòmande yon sèvis piblik sou la men nan seksyon sa a. Avèk la Doc / Docx sèvis piblik nan Kutools pou Pawòl, ou ka byen konvèti tout dokiman fòma doc nan yon katab dokiman doc. Tanpri eseye jan sa a.

Kutools pou Pawòl : Avèk plis pase 100 itilizatè Pawòl ajoute-ins, gratis eseye pa gen okenn limit nan jou 30.

1. Tanpri, kolekte tout fòma fòma doc nan yon katab espesifye, Lè sa a, klike sou Kutools Plis > Doc / Docx. Al gade nan Ekran:

2. Nan Dokiman fòma konnvètè bwat dyalòg, ou bezwen fè jan sa a:

2.1) Chwazi folder nan gen dokiman fòma doc nan la Katab dosye Sous seksyon;

2.2) Chwazi Konvèti doc docx ki soti nan Fòma konvèti gout-desann lis;

2.3) Pa default, a Destinasyon chemen menm jan ak sous bwat se tcheke. Si ou vle mete tout dokiman konvèti .dokx nan menm katab la, jis kenbe opsyon sa a chwazi;

Si ou vle separe dokiman yo .dokx ak sous la .dok dokiman, tanpri dezaktive la Destinasyon chemen menm jan ak sous bwat, epi chwazi yon katab nouvo pou konsève pou dokiman yo .dokx nan la Mete Anons sa sou bwat;

2.4) Klike sou la Kòmanse bouton. Al gade nan Ekran:

3. Lè sa a, yon bwat dyalòg Pops leve di ou ki jan anpil dokiman yo te avèk siksè konvèti, klike sou la OK bouton epi fèmen a Dokiman fòma konnvètè fenèt.

Koulye a, tout dokiman fòma doc yo konvèti nan .dokx dosye. Al gade nan Ekran:

Si ou vle gen yon jijman gratis nan sèvis piblik sa a, tanpri ale nan gratis download lojisyèl an premye, ak Lè sa a, ale nan aplike operasyon an dapre pi wo etap yo.

---

---

Kutools pou pespektiv

Plis pase 100 Fonksyon avanse pou pespektiv 2010, 2013, 2016, 2019 ak 365

Plis Features | Telechaje gratis | Se sèlman $ 39.00 pou dè santèn de fonksyon