Hallo Hummel,
probiers mal so:
Sub GrossNachTab()
Dim mytab As Range
Set mytab = ActiveDocument.Content
mytab.Find.Execute FindText:=vbTab, Forward:=True
Do While mytab.Find.Found
mytab.Next(wdCharacter, 1) = UCase(mytab.Next(wdCharacter, 1))
mytab.Find.Execute
Loop
End Sub
Gruß Mr. K.
|