1、把需要的参数全部传递过去
Functions("test", Regions, rt, doc 等等....)
2、在函数头部接收这些参数
Dim Regions = args(0)
Dim rt = args(1)
3、拷贝代码过去写在后面