老师好,ftp搭建成功了,上传文件也成功了。
但是上传文件时的BeforeAttachFile代码没有运行,是什么原因?
Remote代码写在哪里?
Select Case e.DataCol.Name
Case "裁判文书_文书上传"
e.Subfolder = e.DataRow("承办人") '将此文件存放在目录名为承办人名称的子目录中.
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open(file)
Dim count = Doc.Characters.Count
app.ActiveWindow.Selection.WholeStory
app.ActiveWindow.Selection.Copy
'Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
Dim str As String = ClipBoard.GetText
'msgbox(rng.Text)
'字数统计
e.DataRow("裁判文书_全部字符") = str.Length
e.DataRow("裁判文书_中文字符") = System.Text.RegularExpressions.Regex.Replace(str, "[^\u4e00-\u9fa5]", "").Length
......
[此贴子已经被作者于2018/12/28 11:52:10编辑过]