What are the equivalent keywords to perform string manipulations?

[joe7894]

Hi all,

I want to convert a sentence (stored as a string variable) from the present tense to the past tense but I'm having trouble locating the relevant string manipulation commands to accomplish the task.

Does anybody have any idea how I could do this within my current code (shown below)?

Sub TestMacro()'
' TestMacro Macro
'
' Create string variable
    Dim undoText As String
' Assign the text to string variable
    undoText = Mid$(Application.CommandBars(1).Controls("Edit").Controls(1).Caption, 6)
' See if Excel has just been launched
    If StrComp(" &Undo", undoText, False) = 0 Then
        MsgBox ("Welcome.")
    Else
' Change text to be in past tense
        ' PUT CODE HERE!
' Add the text to the string to be displayed in a message box
        MsgBox ("You just" & undoText & ".")
    End If
End Sub


' Repeatedly check for user interaction whenever a change is detected
Private Sub Worksheet_Change(ByVal Target As Range)
    Call TestMacro
End Sub

 

[Joe4]

With all the variations and special rules in the English language, I think this is going to be dang-near impossible unless you are willing to create a lookup list of all the possible verbs that might ever be found and what the past tense of those verbs are (or stumble upon some really cool plug-in that might do this sort of thing).

 

[Gary's Student]

Consider:

Sub StringFixer()
Dim s1 As String
s1 = "I am happy"
s2 = "was"
s3 = "will be"
s4 = "am"


MsgBox Replace(s1, s4, s2)
MsgBox Replace(s1, s4, s3)
End Sub

 

[joe7894]

With all the variations and special rules in the English language, I think this is going to be dang-near impossible unless you are willing to create a lookup list of all the possible verbs that might ever be found and what the past tense of those verbs are (or stumble upon some really cool plug-in that might do this sort of thing).

I know it seems pointless, but this is for research purposes so after I've done a test run of the function for my participants to do I should know every word they're likely to run into. So far, the only one is "Typing"!

 

[Andrew Poulsom]

Why don't you change the text of your message to:

MsgBox ("Your last action was " & undoText & ".")