update,

task1/task1-ticket1/_ref/Excel/Examples/usage_find.bas

@@ -0,0 +1,65 @@
+Attribute VB_Name = "usage_find"
+
+Private Assert As New Selenium.Assert
+
+Private Sub Find_By_LinkText()
+  Dim drv As New ChromeDriver
+  drv.Get "https://en.wikipedia.org/wiki/Main_Page"
+
+  drv.FindElementByLinkText("Talk").Click
+  Assert.Matches "User talk.*", drv.title
+  
+  drv.Quit
+End Sub
+
+Private Sub Find_By_Value()
+  Dim drv As New ChromeDriver
+  drv.Get "https://www.google.co.uk"
+  
+  Dim ele As WebElement
+  Set ele = drv.FindElementByXPath("//input[@value='Google Search']")
+  Assert.Equals "Google Search", ele.Value
+  
+  drv.Quit
+End Sub
+
+Private Sub Find_By_Partial_Value()
+  Dim drv As New ChromeDriver
+  drv.Get "https://www.google.co.uk"
+  
+  Dim ele As WebElement
+  Set ele = drv.FindElementByXPath("//input[contains(@value,'Search')]")
+  Assert.Equals "Google Search", ele.Value
+  
+  drv.Quit
+End Sub
+
+
+Private Sub Find_By_Text()
+  Dim drv As New ChromeDriver
+  drv.Get "https://www.google.co.uk"
+  
+  If drv.FindElementsByXPath("//*[contains(text(),'Google')]").count Then
+    Debug.Print "Text is present"
+  Else
+    Debug.Print "Text is not present"
+  End If
+  
+  drv.Quit
+End Sub
+
+
+Private Sub Text_Exists()
+  Const JS_HAS_TEXT = "return document.body.textContent.indexOf(arguments[0]) > -1"
+
+  Dim drv As New ChromeDriver
+  drv.Get "https://www.google.co.uk"
+  
+  If drv.ExecuteScript(JS_HAS_TEXT, "Google") Then
+    Debug.Print "Text is present"
+  Else
+    Debug.Print "Text is not present"
+  End If
+  
+  drv.Quit
+End Sub