FunctionInsertHyperlinks(inText)DimobjRegExp,strBufDimobjMatches,objMatchDimValue,ReplaceValue,iStart,iEnd strBuf="" iStart=1 iEnd=1 SetobjRegExp=NewRegExp objRegExp.Pattern="\b(www|http|\S+@)\S+\b" '判断URLs和emails. objRegExp.IgnoreCase=True    &...