展望Autformat規則VBA空濾

Question

我嘗試自動添加自動套用格式規則展望2013年

的創建規則下......但過濾是空的！

這是我的代碼：

Dim objView As TableView 
Dim objRule As AutoFormatRule 
If Application.ActiveExplorer.CurrentView.ViewType = olTableView Then 
    Set objView = Application.ActiveExplorer.CurrentView 
    Set objRule = objView.AutoFormatRules.Add("myRule") 
    With objRule 
     .Filter = """urn:schemas:httpmail:fromname"" LIKE 'gmail.com%'" 
     With .Font 
      .Name = "Courier New" 
      .Size = "8" 
      .Bold = True 
      .Color = olColorBlue 
     End With 
    End With 
    objView.Save 
    objView.Apply 
End If 

Answer 1

您可能需要啓用規則，你也可以嘗試使用Chr()函數替換特殊字符：

Sub test_Vincent() 
Dim r As String, _ 
    r2 As String, _ 
    r3 As String 

r = """urn:schemas:httpmail:fromname"" LIKE 'gmail.com%'" 
r2 = Chr(34) & "urn:schemas:httpmail:fromname" & Chr(34) & " LIKE 'gmail.com%'" 
r3 = Chr(34) & "urn:schemas:httpmail:fromname" & Chr(34) & " LIKE " & Chr(39) & "gmail.com%" & Chr(39) 

MsgBox r & vbCrLf & r2 & vbCrLf & r3 
End Sub 

這裏您的修改代碼：

Sub Full_Vincent() 

Dim objView As TableView, _ 
    objRule As AutoFormatRule 

If Application.ActiveExplorer.CurrentView.ViewType <> olTableView Then 
Else 
    Set objView = Application.ActiveExplorer.CurrentView 
    Set objRule = objView.AutoFormatRules.Add("myRule") 
    With objRule 
     .Filter = Chr(34) & "urn:schemas:httpmail:fromname" & Chr(34) & " LIKE " & Chr(39) & "gmail.com%" & Chr(39) 
     .Enabled = True 
     With .Font 
      .Name = "Courier New" 
      .Size = "8" 
      .Bold = True 
      .Color = olColorBlue 
     End With 
    End With 
    objView.Save 
    objView.Apply 
End If 

    Set objView = Nothing 
    Set objRule = Nothing 


End Sub