本文は*で置き換えます。

Question

本文には*、**、ユーザーフォームにはいくつかのチェックボックスが付いています。 **私は1,2,3と*交換したい返信したいとき

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

....および削除：私はいくつかのチェックボックスを選択した場合、それは電子メールの本文に入れます。ありがとうございました。

Answer 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