Vba 电子邮件正文*替换为数字

我有一封邮件，正文中有*，**和一些用户表单中的复选框。如果我选中一些复选框，它将放在电子邮件正文中：

* text1
** text2
...
* text24
** text25

---

当我想回复时，我想用1,2,3….替换*。。。。并删除**。谢谢。

我不太清楚你所说的1,2,3是什么意思，但是像这样的东西

Function RemoveStars(strInput As String) As String

    Dim intCount As Integer
    intCount = 1
    Stop
    RemoveStars = Replace(strInput, Chr(42) & Chr(42), "")
    Do While InStr(RemoveStars, Chr(42)) <> 0
        RemoveStars = Replace(RemoveStars, Chr(42), intCount, 1, 1)
        intCount = intCount + 1
    Loop

End Function

函数RemoveStars（strInput作为字符串）作为字符串
Dim intCount为整数
整数=1
停止
RemoveStars=替换（strInput、Chr（42）和Chr（42），“”）
安装时执行（拆卸，Chr（42））0
RemoveStars=Replace（RemoveStars，Chr（42），intCount，1，1）
intCount=intCount+1
环
端函数

我不太清楚你所说的1,2,3是什么意思，但是像这样的东西

Function RemoveStars(strInput As String) As String

    Dim intCount As Integer
    intCount = 1
    Stop
    RemoveStars = Replace(strInput, Chr(42) & Chr(42), "")
    Do While InStr(RemoveStars, Chr(42)) <> 0
        RemoveStars = Replace(RemoveStars, Chr(42), intCount, 1, 1)
        intCount = intCount + 1
    Loop

End Function

函数RemoveStars（strInput作为字符串）作为字符串
Dim intCount为整数
整数=1
停止
RemoveStars=替换（strInput、Chr（42）和Chr（42），“”）
安装时执行（拆卸，Chr（42））0
RemoveStars=Replace（RemoveStars，Chr（42），intCount，1，1）
intCount=intCount+1
环
端函数