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

Conas baisc cáipéisí Word a thiontú go comhad txt?

Tá an t-alt seo ag caint ar conas gach doiciméad Word a thiontú i bhfillteán ar leith chun comhaid TXT a scaradh i Word.

Baisc doiciméid Word a thiontú go comhaid txt le VBA


Baisc doiciméid Word a thiontú go comhaid txt le VBA

Is féidir leis an gcód VBA thíos cuidiú le gach doiciméad Word i bhfillteán ar leith a thiontú go comhaid txt ag an am céanna. Déan mar a leanas le do thoil.

1. I ndoiciméad Word, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, ansin cóipeáil thíos an cód isteach i bhfuinneog an Mhodúil.

Cód VBA: Baisc doiciméid Word a thiontú go comhaid txt

Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20181123
    Dim xIndex As Long
    Dim xFolder As Variant
    Dim xFileStr As String
    Dim xFilePath As String
    Dim xDlg As FileDialog
    Dim xActPath As String
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xFileStr = Dir(xFolder & "\*.doc")
    xActPath = ActiveDocument.Path
    While xFileStr <> ""
        xFilePath = xFolder & "\" & xFileStr
        If xFilePath <> xActPath Then
            Set xDoc = Documents.Open(xFilePath, AddToRecentFiles:=False, Visible:=False)
            xIndex = InStrRev(xFilePath, ".")
            Debug.Print Left(xFilePath, xIndex - 1) & ".txt"
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

3. Brúigh an F5 eochair chun an cód a rith.

4. Sa Brabhsáil fuinneog, roghnaigh an fillteán tá cáipéisí Word a athróidh tú go comhaid txt, agus cliceáil ar an OK cnaipe. Féach an pictiúr:

Ansin feiceann tú go ndéantar gach doiciméad san fhillteán roghnaithe a thiontú go comhaid txt ag an am céanna. Féach an pictiúr:


Uirlisí Táirgeachta Focal Molta

 

Kutools For Word - Níos mó ná 100 Gné Ardteist le haghaidh Word, Sábháil Do 50% Am

  • Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
  • Cuir isteach íomhánna iomadúla thar fhillteáin i ndoiciméad Word ag an am céanna.
  • Cumaisc agus comhcheangail comhaid Word iolracha thar fhillteáin i gceann amháin leis an ord atá uait.
  • Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
  • Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...
Sórtáil tuairimí de réir
Comments (22)
Rátáil 5 as 5 · rátálacha 1
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is lucht leanúna na filíochta mé. Bhí orm níos mó ná 700 focal cumadóireachta a thiontú go txt. A bhuí le do fho-ghnáthamh d’éirigh liom é a dhéanamh in am ar bith.
Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An mbeifí in ann an cód céanna a sholáthar nuair a bhainim úsáid as an Word is déanaí ar Mac? Faighim an earráid Run-Time 5948 agus pointí dífhabhtaithe don chuid seo: Socraigh xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat! Tá sé seo thar a bheith cabhrach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a d'éirigh leat é a oibriú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nach bhfuil ag obair dom, aon smaointe cén fáth?
An gá dom é seo a dhéanamh i ndoiciméad Word ón bhfillteán céanna a theastaíonn uaim a thiontú nó in aon doiciméad focal nua a thosóidh mé? -D'éirigh leis an dá rogha agus níl aon cheann ag obair ach níl aon teachtaireachtaí earráide á bhfáil agam freisin
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá mé ag baint úsáide as windows 10 agus Microsoft office 2016
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Athraigh xFileStr = Dir(xFolder & "\*.doc") go xFileStr = Dir(xFolder & "\*.docx") mar glacaim leis go bhfuil formáid comhaid focal níos nuaí agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, oibríonn an cód ach ag an deireadh tugann sé 'Runtime error 91' dom, tá rudaí ag cuid de mo chomhaid. Aon smaoineamh conas is féidir liom é seo a shocrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat! D'oibrigh mar a charm!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'oibrigh sé go tapa agus go foirfe ar fhillteán iomlán de chomhaid .docx. Gabhaim buíochas leat/
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn an script go hiontach domsa, ach d'fhillteán amháin. An bhfuil aon bhealach chun gach fofhillteán a chur san áireamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as seo - ní raibh mé ach ag dul códú rud éigin mé féin nuair a shíl mé, "Hey b'fhéidir go bhfuil duine éigin déanta cheana féin?" Bhí, agus beart níos galánta ná mar a dhéanfainn. Go raibh maith agat as do chuid oibre crua.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhain mé úsáid as an script thuas chun doiciméid a thiontú ina mbaisceanna i gCóiréis, ach níor oibrigh an script. Nuair a tuirseach mé a athrú ar an ionchódú, An féidir le duine ar bith cabhrú liom leis an earráid seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
GÁ uaim iad a thiontú ina gcomhaid téacs teoranta an bhfuil sé seo indéanta fós.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'oibrigh sé sin a chóireáil! Go raibh maith agat!
Rátáil 5 as 5
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Go raibh maith agat as an bpost seo. Nuair a bhuailim "rith", faighim teachtaireacht earráide:"Earráid Tiomsaithe: Nós Imeachta Neamhbhailí Lasmuigh." Is é seo an úsáidim an doc nó an síneadh docx (b'fhéidir nach bhfuil gaol aige ach rinne mé an dá cheann.) An féidir leat cabhrú le do thoil? Níl aon smaoineamh agam conas cód a úsáid .... agus is gá i ndáiríre tonna de docs a thiontú. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Durga,
Oibríonn an cód go maith i mo chás.
Cinntigh le do thoil nach bhfuil i bhfuinneog an Mhodúil (Cód) ach an cód VBA a sholáthraítear sa phostáil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, oibríonn sé seo go foirfe. An bhfuil bealach ann chun formáid ionchódaithe eile a roghnú don TXT (UTF-8 in ionad Windows mar shampla) ?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Simon,
Cuidíonn an cód VBA seo a leanas le gach doiciméad Word i bhfillteán sonraithe a thiontú go comhaid UTF-8 .txt
Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20201031
    Dim xIndex As Long
    Dim xFolder As Variant
    Dim xFileStr As String
    Dim xFilePath As String
    Dim xDlg As FileDialog
    Dim xActPath As String
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xFileStr = Dir(xFolder & "\*.doc")
    xActPath = ActiveDocument.Path
    While xFileStr <> ""
        xFilePath = xFolder & "\" & xFileStr
        If xFilePath <> xActPath Then
            Set xDoc = Documents.Open(xFilePath, AddToRecentFiles:=False, Visible:=False)
            xIndex = InStrRev(xFilePath, ".")
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False, Encoding:=msoEncodingUTF8
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Míle buíochas
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Merci beaucoup! La tiontú se fait très bien
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
Beannacht
Uli
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