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

Sut i swp-drosi ffeiliau fformat .doc i .docx yn Word?

Gan dybio eich bod wedi derbyn rhai dogfennau Word fformat 97-2003, sut allwch chi swp-drosi'r holl ddogfennau fformat .doc hyn i fformat .docx ar unwaith? Bydd yr erthygl hon yn dangos dau ddull i chi ddatrys y broblem hon.

Swp trosi ffeiliau fformat .doc i .docx gyda chod VBA
Swp trosi ffeiliau fformat .doc i .docx gyda Kutools for Word


Swp trosi ffeiliau fformat .doc i .docx gyda chod VBA

Mae'r adran hon yn mynd i ddangos y cod VBA i chi drosi'r holl ddogfennau fformat .doc mewn ffolder benodol i ddogfennau .docx ar unwaith. Gwnewch fel a ganlyn.

1. Casglwch yr holl ddogfennau fformat .doc y byddwch chi'n eu trosi i .docx mewn ffolder benodol.

2. Gwasgwch y Alt + F11 allweddol i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Yn y ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch isod god VBA i mewn i ffenestr y Modiwl.

Cod VBA: Swp troswch yr holl ddogfennau fformat .doc i .docx mewn ffolder benodol

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. Gwasgwch y F5 allwedd i redeg y cod. Yn yr agoriad Pori ffenestr, dewiswch y ffolder sy'n cynnwys y dogfennau fformat .doc a chlicio OK. Gweler y screenshot:

Yna mae'r holl ddogfennau fformat .doc yn cael eu trosi'n ddogfennau .docx yn syth fel isod dangosir y screenshot.


Swp trosi ffeiliau fformat .doc i .docx gyda Kutools for Word

Argymhellir cyfleustodau defnyddiol yn yr adran hon. Efo'r Doc / Docx cyfleustodau Kutools am Word, gallwch chi drosi'r holl ddogfennau fformat .doc mewn ffolder yn hawdd i ddogfennau .docx. Ceisiwch fel a ganlyn.

Kutools am Word : Gyda mwy na 100 o ychwanegion Word defnyddiol, rhydd i roi cynnig arni heb unrhyw gyfyngiad mewn 60 diwrnod.

1. Casglwch yr holl ddogfennau fformat .doc mewn ffolder benodol, yna cliciwch Kutools Byd Gwaith > Doc / Docx. Gweler y screenshot:

2. Yn y Troswr Fformat Dogfen blwch deialog, mae angen i chi wneud fel a ganlyn:

2.1) Dewiswch y ffolder sy'n cynnwys dogfennau fformat .doc yn y Ffolder ffeiliau ffynhonnell adran;
2.2) Dewis Trosi doc i docx oddi wrth y Trosi Fformat rhestr ostwng;
2.3) Yn ddiofyn, mae'r Llwybr cyrchfan yr un peth â'r ffynhonnell blwch yn cael ei wirio. Os ydych chi am roi'r holl ddogfennau .docx wedi'u trosi yn yr un ffolder, dim ond cadw'r opsiwn hwn wedi'i ddewis;
Os ydych chi am wahanu'r dogfennau .docx a'r dogfennau ffynhonnell .doc, dad-diciwch y Llwybr cyrchfan yr un peth â'r ffynhonnell blwch, a dewis ffolder newydd i gadw'r dogfennau .docx yn y Cadw i blwch;
2.4) Cliciwch y dechrau botwm. Gweler y screenshot:

3. Yna mae blwch deialog yn ymddangos i ddweud wrthych faint o ddogfennau sydd wedi'u trosi'n llwyddiannus, cliciwch y OK botwm a chau'r Troswr Fformat Dogfen ffenestr.

Nawr mae'r holl ddogfennau fformat .doc yn cael eu trosi'n ffeiliau .docx. Gweler y screenshot:

Os ydych chi am gael treial am ddim o'r cyfleustodau hwn, ewch i dadlwythwch y meddalwedd am ddim yn gyntaf, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (15)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pob lwc! Diolch am Rhannu. Roedd hyn yn hynod o ddefnyddiol. Roedd gen i dros 50, 000 o ddogfennau yr oedd angen eu trosi. Wedi cymryd ychydig dros 39 awr i'w cyflawni. Help enfawr. Defnyddiais opsiwn 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Agorwch y ddogfen Word rydych chi am ei throi'n ffeil PDF. Os ydych yn dymuno mewnforio yn unig ... ConvertOnlineFree - sgyrsiau unigol a swp o Word docs i PDF ... PDFOnline - am ddim Word (doc, docx a txt) i PDF converter.

Blog neis, mae'r erthygl rydych chi wedi'i rhannu yn dda.Mae'r erthygl hon yn ddefnyddiol iawn. Mae fy ffrind yn awgrymu i mi ddefnyddio'r blog hwn.

https://customersurveyinfo.com
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch am rannu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Stwff diddorol i'w ddarllen. Cadwch ef i fyny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Rwy'n falch o ddod o hyd i'r wybodaeth ddefnyddiol hon Diolch am rannu'r erthygl anhygoel hon.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo .... Helo, Mae'r blog hwn yn cynnwys gwybodaeth dechnegol iawn, mae ar y blog gorau sydd gen i. Diddorol iawn a disgrifiwch mewn ffordd hawdd iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo syr,
Rwyf wrth fy modd gyda'r post.I hwn yn wir yn gwerthfawrogi ar gyfer y wefan hon. Mae eich gwybodaeth mor dda a gwerthfawr.Lovable syniad a chysyniad ar gyfer rhannu wefan hon.
Mae hwn yn wefan anhygoel.Mae'r swydd hon yn braf.
Diolch am Rhannu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
post HelloNice .. Daliwch ati i rannu.Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hon yn erthygl graff iawn, yn ei chael yn ddefnyddiol ac yn llawn gwybodaeth
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am rannu'r wybodaeth ddefnyddiol hon.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
cwmni dylunio graffeg gorau yn India
Crefft o gyfleu geiriau fel ymadroddion yw dylunio. Mae delweddau yn bwysicach na geiriau yn y maes uwch.
Mae'r arbenigwyr yn y busnes dylunio yn argymell bod darluniau'n symlach i'w cofio na geiriau,
a dyna'r rheswm y mae dylunio gwefannau a Graffeg yn chwarae rhan hanfodol.

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am Rhannu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwybodaeth wych Defnyddiol iawn diolch am rannu.

Farmtrac 60
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Offeryn neis ond cefais y broblem, na allaf drosi ffeiliau DOC (wedi'u hysgrifennu mewn priflythrennau!) yn ffeiliau docx.
Mae'n gweithio gyda ffeiliau doc.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Gall y cod canlynol helpu i drosi'r ddau doc. a DOC. ffeiliau i mewn i ffeiliau docx. Rhowch gynnig arni. Diolch am eich adborth.

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
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir