我正在尝试在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)我还需要一个代码来执行相反的操作,重新格式化为单词。
提前致谢
答案 0 :(得分:0)
这是我的宏代码!只需制作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