İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Toplu Word sənədlərini txt faylına necə çevirə bilərəm?

Bu yazı Word'də TXT fayllarını ayırmaq üçün müəyyən bir qovluğa bütün Word sənədlərini toplu olaraq necə çevirməkdən bəhs edir.

Batch Word sənədlərini VBA ilə txt fayllarına çevirir


Batch Word sənədlərini VBA ilə txt fayllarına çevirir

Aşağıdakı VBA kodu bütün Word sənədlərini bir anda txt faylları üçün müəyyən bir qovluğa çevirməyə kömək edə bilər. Xahiş edirik bunu edin.

1. Word sənədində, basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules, sonra kodu kodu Modul penceresine kopyalayın.

VBA kodu: Batch Word sənədlərini txt fayllarına çevirir

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

4. İçində İnsanlar pəncərədə, txt fayllarına çevrilən Word sənədlərini ehtiva edən qovluğu seçin və basın OK düyməsini basın. Ekran görüntüsünə baxın:

Sonra seçilmiş qovluqdakı bütün sənədləri bir anda txt fayllarına çevirirsiniz. Ekran görüntüsünə baxın:



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.