Question

按键精灵 读取指定文件夹的多个文本内容

我的D盘里面文件夹有若干TXT 想每个都粘贴到 word里面然后保存 然后 重复下一个 最后都变成WORD的版本。

Answer 1

//批量修改目标文件夹里的TXT文件转换doc文档
路径 = "D:\TDDOWNLOAD"
//
返回值 = Lib.文件.遍历指定目录下所有文件名(路径)
For i = 0 To UBound(返回值) - 1
    If InStr(返回值(i), "txt") > 0 Then         
        文档名 = Replace(返回值(i),"txt","doc")
        Call Plugin.File.ReNameFile(路径 &"\"& 返回值(i), 路径 &"\"& 文档名)
    End If    
Next

修改下路径。直接复制代码到脚本里调试就行

Answer 2

//由于你这个是txt转doc文件,所以批量修改文件后缀就能实现文件转换了
//第一部分,创建一个文件来存放你选择的目录下的文件名称
dirPath=Plugin.File.SelectDirectory()
UserVar filePath="C:\a.txt" "txt文件目录存放地址"
Set F = CreateObject("Scripting.FileSystemObject")
Set FF = F.GetFolder(dirPath)
Set SF = FF.Files
I = 0
For Each a In SF
Call Plugin.File.WriteFileEx(filePath,a.Name)
Next
//第二部分,读取存放的文件名称来创建修改名称后的地址(这个里面会有一些小bug的,不过应该不影响你的使用)
Text = Plugin.File.ReadFileEx(filePath)
Dim MyArray1,MyArray2
MyArray1 = Split(Text, "|")
MyArray2 = Split(Text, "|")
i=0
For UBound(MyArray1)
MyArray2(i)=Replace(MyArray1(i), "txt", "doc")
if MyArray2(i)<>MyArray1(i)
Call Plugin.File.ReNameFile(dirPath &"\"& MyArray1(i), dirPath &"\"& MyArray2(i))
End If
i=i+1
Next
//望采纳