1 resposta(s) nesse tópico

[ultimate_live]

Já faz muito tempo que quero tirar uma dúvida.
Várias vezes eu recebo uns textos que são espelhados (tudo ao contrário). Neste caso eu tenho que quebrar a cabeça invertendo palavra por palavra.
Tem como eu inverter isso com o Word por exemplo ?

[felipebenza]

Selecione um intervalo no Word e execute a rotina abaixo.

Sub Exemplo()
	Dim wd As Words
	Dim s As String
	Dim r As Range
	Dim lChar As Long
	Dim lWords As Long
	Dim sChar As String
  
	Application.ScreenUpdating = False
	Set wd = Selection.Words
	For lWords = wd.Count To 1 Step -1
		Set r = wd.Item(lWords)
		If Len(Trim®) > 1 Then
			s = ""
			For lChar = 1 To Len®
				sChar = Mid(r, Len® - lChar + 1, 1)
				If sChar <> " " Then
					s = s & sChar
				End If
			Next lChar
			If Right(r, 1) = " " Then
				s = s & " "
			End If
			r = s
		End If
		DoEvents
	Next lWords
	Application.ScreenUpdating = True
End Sub

Editado por felipebenza, 09 July 2012 - 08:36 AM.
''