テーブルセル値= .... THEN（動作していない場合）

Question

私は次のコードで、 'pm'を含む文をドキュメント内で検索します - 見つかった場合は値をマスタードキュメントテーブル2に置き換えます細胞2,2。

何らかの理由で、IF文が機能しないため、ドキュメント内のテキストを置き換えないと常にELSEに移動します。これは私が午前中立ち往生しているため、これを手伝うことができます。黒を削除

timeon = wdDocSrc.Tables(2).Cell(2, 2).Range.Text 
If timeon = "a" Then 'ERROR HERE 
TimeReplace = wdDocSrc.Tables(2).Cell(3, 1) 

TimeText = TimeReplace 

wdDocTgt.Activate 

With wdDocTgt 
Selection.Find.Execute FindText:="pm", Forward:=True 

If Selection.Text = "pm" Then 
With Selection 
' Collapse current selection to insertion point. 
.Collapse 
' Turn extend mode on. 
.Extend 
' Extend selection to word. 
.Extend 
' Extend selection to sentence. 
.Extend 
End With 
With Selection 
    'Selection.Text = "We are now open Christmas DAY!!. " 
    Selection.Text = TimeText 

End With 

Else 
MsgBox "No timing in this letter" 
End If 
End With 
Else 
MsgBox "ERROR" 'AWAYS JUMPS TO THIS 
End If 

Answer 1

仕事をしたんでした - このコードを使用しては：

timeon = wdDocSrc.Tables(3).Cell(2, 2) 
Timeconfig = timeon 
Timeconfig = Left$(Timeconfig, Len(Timeconfig) - 2) 
If Timeconfig = "Yes" Then 
TimeReplace = wdDocSrc.Tables(2).Cell(2, 1) 

TimeText = TimeReplace