[segate]

#programowanie

Co tu jest źle? Wywala mi błąd compile error , syntax error w linijce If (.Item(.Count - 2) = Chr(32))

To jakieś stare makro do worda co usuwa i,o,a itd z końca linijki.


Dim i As Long

Dim licznikzmian As Long

licznikzmian = 0

maxlines = ActiveDocument.BuiltInDocumentProperties(wdPropertyLines)

For i = 1 To maxlines

DoEvents

Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=i, Name:=""

Selection.EndKey Unit:=wdLine, Extend:=wdExtend

With Selection.Characters

If .Count > 4 Then

If (.Item(.Count - 2) = Chr(32))

And (.Item(.Count - 1) >= Chr(65) And .Item(.Count - 1) <= Chr(90) Or .Item(.Count - 1) >= Chr(97) And .Item(.Count - 1) <= Chr(122))

And (.Item(.Count) = Chr(32)) Then

.Item(.Count) = Chr(160)

licznikzmian = licznikzmian + 1

End If

End If

End With

Next

Selection.HomeKey Unit:=wdStory

MsgBox "Zrobione" & Chr(13) &

"Dokonano " & licznik_zmian & " zmian/y", vbInformation

End Sub

[p.....a]

@segate: nie znam się na języku do pisania macr w wordzie, ale czy porównania nie robi się za pomocą "==" a nie tylko "=" ?

[p.....a]

@segate:

**If (.Item(.Count - 2) = Chr(32)) _**

na

**If (.Item(.Count - 2) == Chr(32)) _**

[vrdst]

Ja tam wywalilbym ** z początku i końca tej linii. Reszta wygląda w miarę normalnie, ale musiałbym odpalić żeby zobaczyć co i jak.

[Felonious_Gru]

@segate wklej to na pastebin bo nieczytelne

[Daedra]

Siedzi przy tym komputerze i myśli że pracuje, haha K---a ha, byś poszedł do roboty prawdziwej i łopatę chwycił to by byli z ciebie ludzie, a nie jakieś gierki na komputerze haha k---a ha

[segate]

@vrdst: te ** to chciałem żeby mi na wypoku pogrubienie linijki dało, ale nie dało i gwiazdki zostały

[segate]

@Felonious_Gru: https://pastebin.com/hjJKX1vj

[segate]

@postrachNocnegoSzczura: Niestety nie przyniosło rezulatatu

[vrdst]

@segate: https://pastebin.com/Y0LJ940w u mnie poszło po wywaleniu podkreślników i zrobieniu zamiast tego ciągu jednej linii. Kiedyś to działało jako przeniesienie do nowej linii z zachowaniem ciągłości formuły, bo dla VBA enter jest znakiem, bynajmniej w excelu to zawsze śmiga, nie wiem czemu word uważa za to błąd składni.
@postrachNocnegoSzczura w VBA operatorem porównania jest =, a nie ==. Pisanie w tym języku to ogólnie katorga dla kogoś, kto wcześniej

[segate]

@vrdst: Super działa. Dziękuje bardzo