Word批量转TXT宏

'====================================================
'Word批量转Txt宏
'====================================================
'Doc批量转txt
Sub Doc2txt()
Dim myDialog As FileDialog
Dim oFile As Variant
Dim oDoc As DocumentSet myDialog = Application.FileDialog(msoFileDialogFilePicker)With myDialog
.Filters.Clear
.Filters.Add "WORD 97-03 文档", "*.doc", 1
.AllowMultiSelect = TrueIf .Show <> -1 Then Exit SubApplication.ScreenUpdating = False
'禁止提示
Application.DisplayAlerts = FalseFor Each oFile In .SelectedItems
Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False)
oDoc.SaveAs FileName:=Left(oFile, Len(oFile) - 3) & "txt", FileFormat:=wdFormatText
oDoc.Close
NextApplication.ScreenUpdating = True
End With
End Sub
'docx批量转txt
Sub Docx2txt()
Dim myDialog As FileDialog
Dim oFile As Variant
Dim oDoc As DocumentSet myDialog = Application.FileDialog(msoFileDialogFilePicker)With myDialog
.Filters.Clear
.Filters.Add "WORD 文档", "*.docx", 1
.AllowMultiSelect = TrueIf .Show <> -1 Then Exit SubApplication.ScreenUpdating = False
'禁止提示
Application.DisplayAlerts = FalseFor Each oFile In .SelectedItems
Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False)
oDoc.SaveAs FileName:=Left(oFile, Len(oFile) - 4) & "txt", FileFormat:=wdFormatText
oDoc.Close
NextApplication.ScreenUpdating = True
End With
End Sub

Word批量转TXT宏相关推荐

python导入txt为dataframe-python批量读取txt文件为DataFrame的方法
我们有时候会批量处理同一个文件夹下的文件,并且希望读取到一个文件里面便于我们计算操作.比方我有下图一系列的txt文件,我该如何把它们写入一个txt文件中并且读取为DataFrame格式呢? 首先我们要 ...
python rtf转txt_将DOC、RTF格式文件批量转为TXT格式文件
Windows 下将目录下所有文件下的文件拷贝到一个目录中:搜索"." 安装python 及 win32com模块 pip install pypiwin32 创建LDA_RTF ...
word 批量设置图片大小
word批量修改图片大小--固定长宽篇方法一: 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽! 1.打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示 ...
Word批量更改图片环绕方式与=尺寸大小
前提:一份Word文档里面有100张图片,有大有小,需要将100张图片更改为统一大小,宽度与高度均为5厘米,同时环绕方式也需要改成四周型. 默认Word图片的默认环绕方式为嵌入型,需要统一更改为四周型 ...
看完这篇文章学会epub批量转txt
epub是什么?可能很多没接触过的小伙伴不知道这是什么东西,但是对于那些喜欢看电子小说的朋友来说那可能就不陌生了. epub是一种电子出版文件,它的阅读效果非常好,但是因为这种格式在电脑上不是很通用, ...
批量将Txt文件内容拆分成Excel文件
批量将Txt文件内容拆分成Excel文件第1步: 新建一张Excel 表,并输入需要拆分Txt文件所在文件夹位置,以及拆分后数据保存Excel的路径信息,并保存名为"拆分.xlsm&quo ...
python读取txt文件代码-python批量处理txt文件的实例代码
通过python对多个txt文件进行处理读取路径,读取文件获取文件名,路径名对响应的文件夹名字进行排序对txt文件内部的数据相应的某一列/某一行进行均值处理写入到事先准备好的Excel文件中 ...
python读取txt为dataframe_python批量读取txt文件为DataFrame的方法
我们有时候会批量处理同一个文件夹下的文件,并且希望读取到一个文件里面便于我们计算操作.比方我有下图一系列的txt文件,我该如何把它们写入一个txt文件中并且读取为DataFrame格式呢? 首先我们要 ...
python读取所有txt文件_python如何批量读取txt文件
python批量读取txt文件的方法:首先导入系统模块:然后将文件夹路径更改为需要批量读取的txt文件存放的路径:再调用系统模块得到该文件夹下的所有文件名称:最后遍历文件夹,读取txt文件. 如果文件 ...

Word批量转TXT宏

Word批量转TXT宏相关推荐

最新文章

热门文章