home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 April / CHIPINTE042003.ISO / exe / code.exe / code.txt
Encoding:
Text File  |  2002-11-28  |  683 b   |  23 lines
  1. Sub FeldCodeInString()
  2. Dim FeldString As String, NewString As String
  3. Dim Einstellung As Boolean
  4. Dim Daten As DataObject
  5. NewString = ""
  6. Application.ScreenUpdating = False
  7. Einstellung = ActiveWindow.View.ShowFieldCodes
  8. If Einstellung <> True Then ActiveWindow.View.ShowFieldCodes = True
  9. FeldString = Selection.Text
  10. For X = 1 To Len(FeldString)
  11.   CurrChar = Mid(FeldString, X, 1)
  12.   Select Case CurrChar
  13.     Case Chr(19): CurrChar = "{"
  14.     Case Chr(21): CurrChar = "}"
  15.     Case Else: End Select
  16.   NewString = NewString + CurrChar
  17. Next X
  18. Set Daten = New DataObject
  19. Daten.SetText NewString
  20. Daten.PutInClipboard
  21. ActiveWindow.View.ShowFieldCodes = Einstellung
  22. End Sub
  23.