Public Function ReverseString(ByVal InputString As String) _
As String
Dim lLen As Long, lCtr As Long
Dim sChar As String
Dim sAns As String
lLen = Len(InputString)
For lCtr = lLen To 1 Step -1
sChar = Mid(InputString, lCtr, 1)
sAns = sAns & sChar
Next
ReverseString = sAns
End Function
- Startal snemanje novega makra in ga takoj končal, le da sem dobil možnost, da sem ga odprl z urejevalnikom za VB
- kopiral in prilepil sem v ta kratki makro kodo, ki jo je navedel kljuka13
- v wordu sem pognal ta novi makro in takoj dobil sporočilo "Compile error: Syntax error"
Public Sub ReverseString()
Dim InputString As String
Selection.Wholestory
InputString = Selection.Text
Dim lLen As Long, lCtr As Long
Dim sChar As String
Dim sAns As String
lLen = Len(InputString)
For lCtr = lLen To 1 Step -1
sChar = Mid(InputString, lCtr, 1)
sAns = sAns & sChar
Next
Selection.Type sAns
End Sub
Public Sub ReverseString()
Dim InputString As String
Selection.Wholestory
InputString = Selection.Text
Dim lLen As Long, lCtr As Long
Dim sChar As String
Dim sAns As String
lLen = Len(InputString)
For lCtr = lLen To 1 Step -1
sChar = Mid(InputString, lCtr, 1)
sAns = sAns & sChar
Next
Selection.Type sAns
End Sub
hvala.
popravil, pognal in dobil msg "compile error: Invalid use of property"
odprl se je VB editor in se ustavil na
Selection.Type sAns
tisti del .Type je prekrit z modrim ozadjem
Public Sub ReverseString()
Dim InputString As String
Selection.WholeStory
InputString = Selection.Text
Dim lLen As Long, lCtr As Long
Dim sChar As String
Dim sAns As String
lLen = Len(InputString)
For lCtr = lLen To 1 Step -1
sChar = Mid(InputString, lCtr, 1)
sAns = sAns & sChar
Next
Selection.TypeText sAns
End Sub