Word和Excel密码破解 Wordl密码破解 Excel密码破解
2022-11-05 10:09:25
415KB
1
'docx转pdf、doc、rtf、txt
Option Explicit
Sub docx2other()
On Error Resume Next
Dim sEveryFile As String,sSourcePath As String,sNewSavePath As String
Dim CurDoc As Object
sSourcePath = "E:\DOCX文件\"
'假定待转换的docx文件全部在"E:\DOCX文件\"下，你需要按实际情况修改。
sEveryFile = Dir(sSourcePath &"*.docx")
Do While sEveryFile <> ""
Set CurDoc = Documents.Open(sSourcePath & sEveryFile, , , , , , , , , , , msoFalse)
sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".docx", ".pdf")
'如果想导出doc/rtf/txt等，就把上一行行
2022-11-05 07:43:34
1011B
1
Word+Origin+&+Vocabulary+Builder+7th+Edition一个英语单词讲解的讲义，
2022-11-05 03:04:39
22.34MB
1
用aspose实现word与excel转成pdf的功能，附件是myeclipse工程，导入即可运行，生成的pdf文件在与源word或excel文件相同目录下，无水印，无文件大小限制。
2022-11-04 11:22:13
15.46MB
1