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

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 (17)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
MawrB7v1
MawrB7v1
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
ateb
0
0
Richard876
Richard876     MawrB7v1
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
ateb
adroddiad
0
0
Radha
Radha     Richard876
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch am rannu.
ateb
0
0
George56
George56
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Stwff diddorol i'w ddarllen. Cadwch ef i fyny.
ateb
0
0
Tractor Massey
Tractor Massey
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.
ateb
0
0
Lipica
Lipica
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.
ateb
0
0
Radha
Radha
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
ateb
0
0
shriya gupta
shriya gupta
Lleihawyd y sylw hwn gan y safonwr ar y wefan
post HelloNice .. Daliwch ati i rannu.Diolch
ateb
0
0
uaevisaarlein
uaevisaarlein
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
ateb
adroddiad
0
0
ajumas
ajumas
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am rannu'r wybodaeth ddefnyddiol hon.
ateb
adroddiad
0
0
narendra
narendra
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.

ateb
adroddiad
0
0
y steil gwallt
y steil gwallt
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am Rhannu
ateb
0
0
Dyn
Dyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwybodaeth wych Defnyddiol iawn diolch am rannu.

Farmtrac 60
ateb
0
0
Marco
Marco
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.
ateb
0
0
grisial
grisial     Marco
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
ateb
adroddiad
0
0
Daniel Beneš
Daniel Beneš
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dobry den,
já bych potřeboval, cwrw sgript VBA který gan ffwngaidd včetně podsložek. Umíte někdo prosím upravit i tento skript? Děkuji.

CYM:
Da dydd,
Byddai angen sgript VBA arnaf a fyddai'n gweithio gan gynnwys is-ffolderi. A all rhywun olygu'r sgript hon hefyd os gwelwch yn dda? Diolch.
ateb
0
0
grisial
grisial     Daniel Beneš
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Daniel Beneš,
I gynnwys is-ffolderi, rhowch gynnig ar y cod VBA canlynol.
Ar ôl ychwanegu'r cod, ewch i'r offer tab, cliciwch cyfeiriadau, yn yr agoriad Cyfeiriadau - Prosiect blwch deialog, gwiriwch y Amser Rhedeg Sgriptio Microsoft blwch, ac yna cliciwch ar y OK botwm i arbed y newidiadau. Gweler y sgrinlun canlynol:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Ar ôl hynny, pwyswch y F5 allwedd i redeg y cod.

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