Dim tm As String = ProjectPath & "Attachments\" & CurrentTable.current("审计项目") & ".doc" '指定模板文件 怎么动态指定文件名称