diff options
Diffstat (limited to 'scripting/examples/basic/SearchAndReplace.xba')
| -rw-r--r-- | scripting/examples/basic/SearchAndReplace.xba | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripting/examples/basic/SearchAndReplace.xba b/scripting/examples/basic/SearchAndReplace.xba index fb7c60bd4f22..24c61d8e9a40 100644 --- a/scripting/examples/basic/SearchAndReplace.xba +++ b/scripting/examples/basic/SearchAndReplace.xba @@ -82,13 +82,13 @@ Sub getInfoFromDialog Dim oFoundCursor As Object Dim oSearchText as Object Dim oReplaceText as Object - + ' Create a document object for the current document then create text and ' cursor objects oDocument = StarDesktop.ActiveFrame.Controller.Model oSearch = oDocument.createSearchDescriptor - ' Replace all instances of the search string with the replavce string + ' Replace all instances of the search string with the replace string oSearch.SearchString = getSearchKey() oSearch.ReplaceString = getReplaceKey() oDocument.replaceAll(oSearch) @@ -123,4 +123,4 @@ Function getReplaceKey() as String oReplaceText = oDialog.GetControl("ReplaceKeyTextBox") sReplace = oReplaceText.Text getReplaceKey = sReplace -End Function</script:module>
\ No newline at end of file +End Function</script:module> |