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

Ինչպե՞ս Word- ում .doc ֆորմատի ֆայլերը խմբաքանակով փոխարկել .docx- ի:

Ենթադրելով, որ դուք ստացել եք 97-2003 ձևաչափի Word փաստաթղթեր, ինչպե՞ս կարող եք խմբաքանակով միանգամից վերափոխել այս .doc ձևաչափի բոլոր փաստաթղթերը: docx ձևաչափի: Այս հոդվածը ձեզ ցույց կտա այս խնդրի լուծման երկու մեթոդ:

Փոխանակել .doc ձևաչափի ֆայլերը .docx- ի ՝ VBA կոդով
Խմբաքանակը .doc ձևաչափի ֆայլերը վերափոխում է .docx- ի `Kutools- ի համար Word- ի համար


Փոխանակել .doc ձևաչափի ֆայլերը .docx- ի ՝ VBA կոդով

Այս բաժինը պատրաստվում է ցույց տալ ձեզ VBA կոդը ՝ որոշակի պանակում միանգամից .docx փաստաթղթերի փոխակերպելու համար .doc ձևաչափի բոլոր փաստաթղթերը: Խնդրում եմ արեք հետևյալ կերպ.

1. Խնդրում ենք նշված պանակում հավաքել .doc ձևաչափի բոլոր փաստաթղթերը, որոնք կփոխարկեք:

2. Սեղմեք ալտ + F11 բանալին բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

3. Պատուհանում կտտացրեք Տեղադրել > Մոդուլներ, Դրանից հետո VBA կոդի ներքո պատճենեք Մոդուլի պատուհանում:

VBA կոդ. Խմբաքանակը .doc ձևաչափի բոլոր փաստաթղթերը որոշակի թղթապանակում վերափոխում է .docx- ի

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. Սեղմեք F5 ծածկագիրը գործելու համար: Բացման մեջ Թերթել պատուհանը, ընտրեք պանակը, որը պարունակում է .doc ձևաչափի փաստաթղթերը և կտտացրեք OK, Տեսեք,

Այնուհետև .doc ձևաչափի բոլոր փաստաթղթերը անմիջապես վերափոխվում են .docx փաստաթղթերի, ինչպես ցույց է տրված նկարում:


Խմբաքանակը .doc ձևաչափի ֆայլերը վերափոխում է .docx- ի `Kutools- ի համար Word- ի համար

Այս բաժնում օգտակար կոմունալ առաջարկվում է: Հետ Doc / Docx օգտակարությունը Kutools բառի համար, Դուք կարող եք հեշտությամբ փոխել թղթապանակի բոլոր .doc ձևաչափի փաստաթղթերը .docx փաստաթղթերի: Խնդրում ենք փորձել հետևյալ կերպ.

Kutools բառի համար ՝ ավելի քան 100 հարմար բառերի հավելումներով, անվճար փորձեք առանց սահմանափակումների 60 օրվա ընթացքում.

1. Խնդրում ենք հավաքել .doc ձևաչափի բոլոր փաստաթղթերը նշված պանակում, ապա կտտացնել Kutools Plus > Doc / Docx, Տեսեք,

2. Մեջ Փաստաթղթի ձևաչափի փոխարկիչ երկխոսության տուփ, դուք պետք է անեք հետևյալը.

2.1) Ընտրեք պանակը, որը պարունակում է .doc ձևաչափի փաստաթղթեր Աղբյուրի ֆայլի պանակ Բաժին;
2.2) Ընտրեք Փոխակերպել doc- ը docx- ի - ից Ձևաչափի փոխարկում բացվող ցուցակ;
2.3) Լռելյայնորեն, Նպատակակետի ուղին նույնն է, ինչ աղբյուրը վանդակը ստուգված է: Եթե ​​ուզում եք բոլոր փոխարկված .docx փաստաթղթերը տեղադրել նույն պանակում, պարզապես այս տարբերակը ընտրված պահեք.
Եթե ​​ցանկանում եք առանձնացնել .docx փաստաթղթերը և աղբյուրի .doc փաստաթղթերը, ապա ընտրեք ընտրությունը Նպատակակետի ուղին նույնն է, ինչ աղբյուրը տուփը և ընտրեք նոր պանակ ՝ .docx փաստաթղթերը պահելու համար Պահպանել տուփ;
2.4) Կտտացրեք այն սկիզբ կոճակ Տեսեք,

3. Դրանից հետո բացվում է երկխոսության տուփ ՝ ձեզ ասելու համար, թե քանի փաստաթուղթ է հաջողությամբ փոխարկվել, կտտացրեք այն OK կոճակը և փակել այն Փաստաթղթի ձևաչափի փոխարկիչ պատուհան.

Այժմ .doc ձևաչափի բոլոր փաստաթղթերը փոխարկվում են .docx ֆայլերի: Տեսեք,

Եթե ​​ցանկանում եք անվճար օգտվել այս օգտակար ծառայությունից, գնացեք այստեղ անվճար ներբեռնել ծրագրաշարը նախ և ապա անցեք գործողությունը կիրառելու համար ՝ համաձայն վերը նշված քայլերի:


Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (17)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փառք: Շնորհակալություն կիսվելու համար. Սա չափազանց օգտակար էր: Ես ունեի ավելի քան 50 փաստաթուղթ, որոնք պետք է փոխարկվեին: Ընդամենը մի հպում պահանջվեց ավելի քան 000 ժամ, որպեսզի դրանք ավարտվեն: Հսկայական օգնություն: Ես օգտագործել եմ տարբերակը 39
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բացեք Word փաստաթուղթը, որը ցանկանում եք վերածել PDF ֆայլի: Եթե ​​ցանկանում եք ներմուծել միայն ... ConvertOnlineFree - Word փաստաթղթերի անհատական ​​և խմբաքանակային խոսակցությունները PDF... PDFOnline - անվճար Word (doc, docx և txt) փոխարկիչ PDF:

Հաճելի բլոգ, ձեր տարածած հոդվածը լավն է: Այս հոդվածը շատ օգտակար է: Ընկերս ինձ առաջարկում է օգտվել այս բլոգից:

https://customersurveyinfo.com
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, շնորհակալություն կիսվելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հետաքրքիր իրեր կարդալու համար: Շարունակիր նույն ձեւով.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Ես ուրախ եմ գտնել այս օգտակար տեղեկատվությունը: Շնորհակալություն այս հիանալի հոդվածը կիսելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև...Բարև, այս բլոգի բովանդակությունը շատ տեխնիկական տեղեկատվություն է, այն լավագույն բլոգներից է, որը ես ստացել եմ: Շատ հետաքրքիր է և նկարագրեք շատ հեշտ ձևով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, պարոն,
Ես սիրում եմ այս գրառումը: Ես իսկապես գնահատում եմ այս կայքը: Ձեր տեղեկությունները այնքան լավն են և արժեքավոր: Սիրելի գաղափար և գաղափար այս վեբկայքով կիսվելու համար:
Սա հիանալի կայք է: Այս գրառումը հաճելի է:
Շնորհակալություն կիսվելու համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
HelloNice գրառում .. Շարունակեք կիսվել: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա իսկապես խորաթափանց հոդված է, այն շատ օգտակար և տեղեկատվական է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս օգտակար տեղեկատվությունը կիսելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնդկաստանի լավագույն գրաֆիկական դիզայնի ընկերությունը
Դիզայնը բառերը որպես հոդակապություն հաղորդելու արհեստ է: Զարգացած դաշտում պատկերներն ավելի կարևոր են, քան բառերը:
Դիզայներական բիզնեսի մասնագետները խորհուրդ են տալիս, որ նկարազարդումները ավելի հեշտ են հիշել, քան բառերը,
և դա է պատճառը, որ վեբ կայքերի նախագծումը և գրաֆիկան հրամայական աշխատանք են կատարում:

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն կիսվելու համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի տեղեկատվություն Շատ օգտակար շնորհակալություն կիսվելու համար:

Farmtrac 60
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գեղեցիկ գործիք, բայց ես խնդիր ունեցա, որ ես չեմ կարող DOC ֆայլերը (գրված մեծատառերով) վերածել docx ֆայլերի:
Այն աշխատում է doc ֆայլերով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Հետևյալ կոդը կարող է օգնել փոխարկել երկու փաստաթղթերը: և DOC. ֆայլերը docx ֆայլերի մեջ: Խնդրում եմ, փորձեք: Շնորհակալություն Ձեր արձագանքի համար:

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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Dobry den,
já bych potřeboval, ale VBA script který by fungoval včetně podsložek. Umíte někdo prosím upravit i tento script? Děkuji.

ENG:
Բարի օր,
Ինձ պետք է VBA սկրիպտ, որը կաշխատի՝ ներառելով ենթաթղթապանակները: Խնդրում եմ, ինչ-որ մեկը կարող է խմբագրել նաև այս սցենարը: Շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Դանիել Բենեշ,
Ենթաթղթապանակներ ներառելու համար փորձեք հետևյալ VBA կոդը:
Կոդն ավելացնելուց հետո անցեք Գործիքներ էջանշանը, սեղմեք Սայլակ, բացման մեջ Հղումներ - Նախագիծ երկխոսության տուփ, ստուգեք Microsoft Scripting Runtime տուփը, ապա կտտացրեք OK կոճակը՝ փոփոխությունները պահպանելու համար: Տեսեք հետևյալ սքրինշոթը.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Դրանից հետո սեղմեք կոճակը F5 ծածկագիրը գործելու համար:

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
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր