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

Conas baisc comhaid formáid .doc a thiontú go .docx i Word?

Má ghlactar leis go bhfuair tú roinnt doiciméad Word i bhformáid 97-2003, conas is féidir leat na cáipéisí formáide .doc seo go léir a thiontú go formáid .docx ag an am céanna? Taispeánfaidh an t-alt seo dhá mhodh duit chun an fhadhb seo a réiteach.

Baisc comhaid formáid .doc a thiontú go .docx le cód VBA
Baisc comhaid formáid .doc a thiontú go .docx le Kutools for Word


Baisc comhaid formáid .doc a thiontú go .docx le cód VBA

Taispeánfaidh an chuid seo duit an cód VBA chun gach doiciméad formáide .doc a thiontú i bhfillteán sonraithe go doiciméid .docx ag an am céanna. Déan mar a leanas le do thoil.

1. Bailigh gach doiciméad formáide .doc a athróidh tú go .docx i bhfillteán sonraithe.

2. Brúigh an Eile + F11 eochair chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

3. Sa fhuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Mhodúil.

Cód VBA: Baisc gach doiciméad formáid .doc a thiontú go .docx i bhfillteán áirithe

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. Brúigh an F5 eochair chun an cód a rith. San oscailt Brabhsáil fuinneog, roghnaigh an fillteán ina bhfuil na cáipéisí formáide .doc agus cliceáil OK. Féach an pictiúr:

Ansin athraítear gach doiciméad formáid .doc go cáipéisí .docx láithreach mar a thaispeántar thíos an pictiúr.


Baisc comhaid formáid .doc a thiontú go .docx le Kutools for Word

Molfar fóntais áisiúil sa chuid seo. Leis an Doc / Docx fóntais de Kutools le haghaidh Word, is féidir leat gach doiciméad formáide .doc i bhfillteán a thiontú go cáipéisí .docx go héasca. Bain triail as mar seo a leanas.

Kutools le haghaidh Word : Le níos mó ná 100 breiseán áisiúil Word, saor chun iarracht a dhéanamh gan aon teorainn i

.

1. Bailigh gach doiciméad formáide .doc i bhfillteán sonraithe, ansin cliceáil Kutools Plus > Doc / Docx. Féach an pictiúr:

2. Sa Tiontaire Formáid Doiciméid bosca dialóige, ní mór duit a dhéanamh mar a leanas:

2.1) Roghnaigh an fillteán ina bhfuil cáipéisí formáide .doc sa Fillteán comhad foinse alt;
2.2) Roghnaigh Tiontaigh doc go docx ó na Tiontaigh Formáid liosta anuas;
2.3) De réir réamhshocraithe, déanann an Cosán ceann scríbe mar an gcéanna leis an bhfoinse seiceáiltear bosca. Más mian leat gach doiciméad .docx tiontaithe a chur san fhillteán céanna, coinnigh an rogha seo roghnaithe;
Más mian leat na doiciméid .docx agus na doiciméid foinse .doc a scaradh, dícheangail na Cosán ceann scríbe mar an gcéanna leis an bhfoinse bosca, agus roghnaigh fillteán nua chun na doiciméid .docx a shábháil sa Sábháil bosca;
2.4) Cliceáil ar an Tòisich cnaipe. Féach an pictiúr:

3. Ansin tagann bosca dialóige suas chun a insint duit cé mhéad doiciméad a tiontaíodh go rathúil, cliceáil an OK cnaipe agus dún an Tiontaire Formáid Doiciméid fhuinneog.

Anois déantar gach doiciméad formáide .doc a thiontú go comhaid .docx. Féach an pictiúr:

Más mian leat triail saor in aisce a bhaint as an bhfóntas seo, téigh chuig íoslódáil saor in aisce na bogearraí ar dtús, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Kutools for Outlook - Tugann sé 100 Gné Ard le Outlook, agus Déan an Obair i bhfad Níos Éasca!

  • Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir saincheaptha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
  • Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach ceann a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
  • Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost i soicindí; Beannacht Auto Cuir leis nuair a thabharfar freagra; Cuir Dáta leis san ábhar ...
  • Uirlisí Ceangail: Bainistigh Gach Ceangaltán i ngach Ríomhphost, Auto Dícheangail, Comhbhrú Gach, Athainmnigh Uile, Sábháil Gach ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe...
  • Ríomhphoist Cumhachtacha Junk de réir saincheaptha; Bain Ríomhphoist agus Teagmhálacha Dúblacha... Cuir ar do chumas déanamh níos cliste, níos gasta agus níos fearr in Outlook.
kutools lámhaigh dearcadh kutools tab 1180x121
kutools lámhaigh dearcadh kutools móide cluaisín 1180x121
 
Sórtáil tuairimí de réir
Comments (14)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ádh mór! Go raibh maith agat as a roinnt. Bhí sé seo thar a bheith cabhrach. Bhí breis agus 50, 000 doiciméad agam ar ghá iad a thiontú. Níor thóg sé ach teagmháil níos mó ná 39 uair an chloig chun iad go léir a dhéanamh. Cabhair ollmhór. Bhain mé úsáid as rogha 1
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Stuif spéisiúil le léamh. Coimeád sé suas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Tá áthas orm an t-eolas úsáideach seo a fháil Go raibh maith agat as an alt iontach seo a roinnt.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit.... Dia duit, Tá eolas an-theicniúil ar an bhlag seo, tá sé ar an bhlag is fearr atá agam. An-suimiúil agus déan cur síos ar bhealach an-éasca.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit a dhuine uasail,
Is breá liom leis an post.I buíoch as an suíomh gréasáin seo. Tá do chuid faisnéise chomh maith agus luachmhar.Smaoineamh agus coincheap iontach chun an suíomh Gréasáin seo a roinnt.
Is é seo an suíomh gréasáin iontach.Tá an post seo deas.
Go raibh maith agat as a roinnt
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
post HelloNice .. Coinnigh ag roinnt.Thank You
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is alt fíor-léirsteanach é seo , fuair sé an-chabhrach agus faisnéiseach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as an eolas úsáideach seo a roinnt.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
cuideachta dearadh grafach is fearr san India
Is ceird í an dearadh chun focail a chur in iúl mar chur in iúl. Tá níos mó tábhachta ag baint le hamharcanna ná focail san ardréimse.
Molann na saineolaithe sa ghnó dearaidh gur simplí léaráidí a thabhairt chun cuimhne ná focail,
agus is é sin an fáth a imríonn dearadh Gréasáin agus Grafaic post ríthábhachtach.

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as a roinnt
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Uirlis deas ach fuair mé an fhadhb, nach féidir liom comhaid DOC (scríofa i gceannlitreacha!) a thiontú go comhaid docx.
Oibríonn sé le comhaid doc.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Is féidir leis an gcód seo a leanas cabhrú leis an dá doc a thiontú. agus DOC. Comhaid i comhaid docx. Bain triail as le do thoil. Go raibh maith agat as do chuid aiseolais.

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
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dobrý den,
já bych potřeboval, leann VBA script který by fungoval včetně podsložek. Umíte někdo prosím upravit agus tento skript? Děkuji.

ENG:
Dea-lá,
Bheadh ​​script VBA ag teastáil uaim a bheadh ​​ag obair lena n-áirítear fofhillteáin. An féidir le duine éigin an script seo a chur in eagar freisin? Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Daniel Beneš,
Chun fofhillteáin a chur san áireamh, bain triail as an gcód VBA seo a leanas.
Tar éis duit an cód a chur leis, téigh go dtí an uirlisí tab, cliceáil tagairtí, san oscailt Tagairtí - Tionscadal bosca dialóige, seiceáil an Microsoft Scripting Runtime bosca, agus ansin cliceáil ar an OK cnaipe chun na hathruithe a shábháil. Féach ar an scáileán scáileáin seo a leanas:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Tar éis sin, brúigh an F5 eochair chun an cód a rith.

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
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL