I know that Jesus said, "If you abide in My Word you shall know the truth and the truth shall make you free"
Different translations have different phrase words
If I use Find to search for all matches from Gen to Rev of "if you abide in My Word"
Find won't pick it up
If I type in "if you continue in My Word" Find will return all matches
Correct code for a phrase search would pick up both, whether the phrase has "abide" or "continue"
So I don't know if the LIKE operator is applicable here, but inexact or near phrases using the other words of
the phrase before and after "abide" or "continue" should pick up all phrases regardless of which words are used.
This has been a real challenge - but if the web and other apps like Logos can do it, so should correctly coded VBA FIND - is my thinking.
My FIND code snippet:
This line does not check for similar but not exact word phrases if two different words have the same meaning. ( a real world translation issue)
Any help appreciated.
cr
Different translations have different phrase words
If I use Find to search for all matches from Gen to Rev of "if you abide in My Word"
Find won't pick it up
If I type in "if you continue in My Word" Find will return all matches
Correct code for a phrase search would pick up both, whether the phrase has "abide" or "continue"
So I don't know if the LIKE operator is applicable here, but inexact or near phrases using the other words of
the phrase before and after "abide" or "continue" should pick up all phrases regardless of which words are used.
This has been a real challenge - but if the web and other apps like Logos can do it, so should correctly coded VBA FIND - is my thinking.
My FIND code snippet:
Code:
With Worksheets("SOURCE") 'default NASB
Set c = rngSrc.FIND(X, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
If Not c Is Nothing Then
rw = 1
firstAddress = c.Address
Do
If InStr(1, c.Value, Y, vbTextCompare) > 0 Then
.Range(.Cells(c.Row, 2), .Cells(c.Row, 7)).Copy Destination:=Sheets("VALSFOUND").Range("A" & rw) '
rw = rw + 1
End If
Set c = rngSrc.FindNext(c)
Loop While c.Address <> firstAddress
lastrow = Sheets("VALSFOUND").Range("A" & Rows.count).End(xlUp).Row
Else
MsgBox "value not found"
End If
This line does not check for similar but not exact word phrases if two different words have the same meaning. ( a real world translation issue)
Code:
If InStr(1, c.Value, Y, vbTextCompare) > 0 Then...
cr