VBA中的宏，粗体文字＆gt; *粗体*;斜体＆gt; _italic_（WhatsApp目的）

Question

我正在尝试在vba中创建一个宏来执行标题所说的内容（我认为非常清楚）。我不知道要使用哪些功能。

这就是我要寻找的（部分）：

Sub FormatForWhatsapp()
With Selection.Find
    .ClearFormatting
    .Font.Bold = True
    .Text = ""
    .Replacement.Text = "*^&*"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
    .ClearFormatting
    .Font.Italic = True
    .Text = ""
    .Replacement.Text = "_^&_"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

我的问题是1）我需要本机代码而不是Office“查找”功能。 2）我还需要一个代码来执行相反的操作，重新格式化为单词。

提前致谢

Answer 1

这是我的宏代码！只需制作View Makros，然后编辑并粘贴我的代码！

大胆的Whatsapp：

Sub bold()
'
' bold Makro
' Wahtsapp bold
'
' Tastenkombination: Strg+b
'
    ActiveCell.FormulaR1C1 = "*" & ActiveCell.FormulaR1C1 & "*"
End Sub

ItalicfürWhatsapp：

Sub Italic()
'
' Italic Makro
' Whatsapp Italic
'
' Tastenkombination: Strg+i
'
    ActiveCell.FormulaR1C1 = "_" & ActiveCell.FormulaR1C1 & "_"
End Sub