VBAのマクロ、太字のテキスト> *太字のテキスト*; italic> _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）私はネイティブコードではなくオフィス「検索」機能を必要としています。 2）私はまた、単語を再フォーマットするために反対の行動をするコードが必要です。事前

Answer 1

で

おかげでここにマクロのための私のコードです！ただMakrosを見て、私のコードを編集して貼り付けてください！

太字のfürのWhatsApp：

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

斜体のfürのWhatsApp：

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