本文介绍了宏执行回复创建或MESSA的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
Outlook的拼写在公司内部不起作用,我创建了一个宏来清除"不检查拼写或语法"。但现在我想运行它而不是我在创建新消息或回复时自动手动运行
The spelling of the outlook does not work within the firm and I created a macro to clear the "Do not check spelling or grammar". But now I want to run it instead of me manually run automatically when you create a new message or reply
Private Sub Application_Startup()
' Check for an open email message ' Updated for Outlook 2010 on 11/1/11
If Inspectors.Count = 0 Then Exit Sub
If ActiveInspector.CurrentItem.Class <> olMail Then Exit Sub
' Iterate through the paragraphs and set the noproofing property to false
Dim wdEd As Object, intCount As Integer, par As Object
Set wdEd = ActiveInspector.WordEditor
For intCount = 1 To wdEd.Paragraphs.Count
Set par = wdEd.Paragraphs.Item(intCount).Range
If Len(par.Text) > 4 Then
' Try to skip any forwarded or replied-to message
If LCase(Left(par.Text, 6)) = "from: " Then Exit For
' Otherwise, remove the immunity to spell checking
par.noproofing = False
End If
Next
' Report and clean up
Debug.Print "Examined: " & intCount & " of " & wdEd.Paragraphs.Count
Set wdEd = Nothing
End Sub
推荐答案
感谢您使用MSDN论坛
Thanks for using the MSDN Forums
这是一个西班牙语论坛,我需要将您的主题转移到正确的论坛,以便您获得所需的解决方案。
This is a spanish forum, I need to move your thread to the correct one so you can get the solution you need.
关心和不要怀疑再次访问我们的MSDN论坛
Regards and don't doubt to visit us again at your MSDN Forums
这篇关于宏执行回复创建或MESSA的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!