老师好！

在窗口表里上传Word文档，将获取的文本内容保存至[笔录原文],文件路径保存至[上传笔录]。我想将此段代码改为自定义函数，不清楚要设置几个参数，请老师帮忙修改为函数代码，学习研究。

谢谢！

此主题相关图片如下：截屏图片.jpg
 

CellButtonClick代码：

Dim str As String = ""   \'预设Word文本
Dim xwj As String = ""   \'预设新文件名
Dim path As String = "D:\\上传文件\\开庭笔录\\"    \'指定新文件拷贝目录

If e.Col.Name = "上传笔录"  AndAlso e.Row("上传笔录") = "" Or e.Col.Name = "上传笔录"  AndAlso e.Row("上传笔录") = "请上传笔录" Then
    e.Cancel = True       \'取消默认动作

    Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
    dlg.Filter= "Word文件|*.doc;*docx"        \'设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then  \'如果用户单击了确定按钮
        Dim ifo As new FileInfo(dlg.FileName)
        xwj = e.Row("案号") & "_开庭笔录_" & ".doc"        \'文件改名
        FileSys.CopyFile(dlg.FileName, path & xwj,True)    \'覆盖
        Dim app As New MSWord.Application
        Dim doc = app.Documents.Open(dlg.FileName)
        Dim rng As MSWord.Range = Doc.Range()
        str = rng.Text.replace(chr(13),vbcrlf)
        e.Row("笔录原文") = str
        app.quit
        e.Row("上传笔录") = path & xwj   \'文档带路径
    End If
End If

********解决了，老师看看有没有问题？

\' e ：Args(0)
\'e.Row：Args(1)
\'e.Col：Args(2)
\'"上传笔录"：Args(3)
\'"笔录原文"：Args(4)

Dim str As String = ""   \'预设Word文本
Dim xwj As String = ""   \'预设新文件名
Dim path As String = "D:\\上传文件\\开庭笔录\\"    \'指定新文件拷贝目录

If Args(2).Name = Args(3)  AndAlso Args(1)(Args(3)) = "" Or Args(2).Name = Args(3)  AndAlso Args(1)(Args(3)) = "请上传笔录" Then
    Args(0).Cancel = True \'取消默认动作

    Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
    dlg.Filter= "Word文件|*.doc;*docx" \'设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
        Dim ifo As new FileInfo(dlg.FileName)
        xwj = Args(1)("案号") & "_开庭笔录_" & ".doc"        \'文件改名
        FileSys.CopyFile(dlg.FileName, path & xwj,True)   \'覆盖
        Dim app As New MSWord.Application
        Dim doc = app.Documents.Open(dlg.FileName)
        Dim rng As MSWord.Range = Doc.Range()
        str = rng.Text.replace(chr(13),vbcrlf)
        Args(1)(Args(4)) = str
        app.quit
        Args(1)(Args(3)) = path & xwj   \'文档带路径
    End If
End If

******函数调用：

Functions.Execute("aaa",e,e.Row,e.Col,"上传笔录","笔录原文")