VBA代码转换JSA

mtxxvba

Sub mdemo()
    Dim fs As Object
    Dim folder As Object
    Dim file As Object
    Dim wordApp As Object
    Dim doc As Object
    Dim regex As Object
    Dim matches As Object
    Dim match As Object
    Dim filePath As String
    Dim folderPath As String

    folderPath = "C:\Path\"  
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set folder = fs.GetFolder(folderPath)   
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    regex.IgnoreCase = True
    regex.Pattern = "正则表达式"
    Set wordApp = CreateObject("KWPS.Application")
    wordApp.Visible = False
    For Each file In folder.Files
        If fs.GetExtensionName(file.Name) = "docx" Then
            filePath = file.Path
            Set doc = wordApp.Documents.Open(filePath)            
            Set matches = regex.Execute(doc.Content.Text)         
            For Each match In matches
                ThisDocument.Content.InsertAfter match.Value & vbCrLf
            Next match
                doc.Close False
        End If
    Next file   
    wordApp.Quit

    Set fs = Nothing
    Set folder = Nothing
    Set file = Nothing
    Set wordApp = Nothing
    Set doc = Nothing
    Set regex = Nothing
    Set matches = Nothing
    Set match = Nothing
End Sub

如何将这段vba代码转换成可以运行的JSA代码。求大神们帮忙！！

spaghetti8

上附件，别人才好帮你调试。

mtxxvba

这是附件，麻烦各位啦。数据是虚拟的，大概就是有比较多的docx文档，需要提取特定的文字。

mtxxvba

spaghetti8 发表于 2024-12-15 18:27
上附件，别人才好帮你调试。

收到，已经上传附件了。

spaghetti8

mtxxvba 发表于 2024-12-16 15:43
收到，已经上传附件了。

已经改好了,见此帖.


JSA批量提取指定文件夹内docx格式里的符合正则表达式的内容
https://club.excelhome.net/thread-1708120-1-1.html

mtxxvba

spaghetti8 发表于 2024-12-17 11:24
已经改好了,见此帖.

值得学习，感谢大神

mtxxvba

mtxxvba 发表于 2024-12-17 13:53
值得学习，感谢大神

如何判断某一文件夹下是否有特定扩展名的文件，例如.docx