Bereš nazaj, pišeš naprej

[solata]

Bolj iz firbca če in kako je to možno.

Navaden doc dokument, brez oblikovanja, le novi odstavki, recimo to besedilo do tukaj.

Berem črko za črko, od konca naprej in to pišem v novi doc.

Primer tista druga vrstica zgoraj:

.jakut od olideseb ot omicer , ikvatsdo ivon el ,ajnavokilbo zerb ,tnemukod cod nedavaN

Ideja, nasvet, morda vba rešitev

Hvala

[GoldZ]

Ideja ni problem

Besedilo se prebere v polje, potem pa vsebina izpisuje od zadjnega indeksa v polju do začetka.

Seveda z VBA

LP!

[kljuka13]

Ne da se mi pisat

Koda: Izberi vse

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

Funkcija si morate malo prilagoditi

Vir: http://www.freelists.org/post/mso/Word- ... -text-LR,1

[solata]

@kljuka13 - hvala, čez nedeljo preizkus
@goldz - idejo spravit k delu, to je težava imaš morda čas in voljo za vba

thx

[cedra]

Funkcijo sem preizkusil v Excelu in dela brez vsakih popravkov!

[solata]

Ni uspelo

Kaj in kako sem delal:

- 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"

očitno je, da ne znam pognati tiste zadeve.

hvaležen bom za vsako pomoč . hvala

[kljuka13]

Ja. Ne deluje zato, ker je to funkcija in jo morate drugače pognati. Poskusite tako:

Koda: Izberi vse

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 

[solata]

Ja. Ne deluje zato, ker je to funkcija in jo morate drugače pognati. Poskusite tako:

Koda: Izberi vse

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

kje ga lomim???

[kljuka13]

Se iskreno opravičujem ampak enostavno - pisal sem na pamet

Koda: Izberi vse

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

[solata]

kljuka13 - brez opravičevanja, prosim

jaz sitnarim in prosim, zato: kdor dela greši.

zadeva perfektno deluje. hvala.