Zitat:

---

@geliebtesSchwesterchen

---

wer - Francoise?

Habe mal den Makro ausprobiert:
Fehlermeldung: Laufzeitfehler 91 "Objektvariable oder With-Blockvariable nicht festgelegt"
Wenn man aber der 15. Zeile "If ActiveWindow.View.ShowFieldCodes = False Then" bis zur 18. Zeile "End If" ein "'" davor macht (also die Zeilen auskommentiert) funktioniert es

dann poste es doch bitte nocheinmal in der funktionierenden Version. Interessant wäre sicher auch eine Anleitung, wie man das Makro ausführt.
gruß, rojek

Zitat:

---

wer - Francoise

---

ja!

also der Makro sieht dann so aus (die fetten Zeilen können auch weggelassen werden; jedenfalls funktioniert es bei mir ohne...):
Sub ConvertSymbol()
Dim dlg As Object
Dim NoFC As Integer
Dim SCP As Integer
Dim StartRange As Range
Dim UniCodeNum As Integer
' Temporarily disable Screen Updating
Application.ScreenUpdating = False
' Temporarily disable Smart Cut & Paste
If Options.SmartCutPaste = True Then
SCP = 1
Options.SmartCutPaste = False
End If
'Temporarily display field text
'If ActiveWindow.View.ShowFieldCodes = False Then
'NoFC = 1
'ActiveWindow.View.ShowFieldCodes = True
'End If
' Set StartRange variable to current selection's range
Set StartRange = Selection.Range
Selection.Collapse
' Select first, then each next character in user-defined selection
Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
While Selection.End <= StartRange.End And _
ActiveDocument.Content.End > Selection.End
' If the character is a space, then move to next character
Set dlg = Dialogs(wdDialogInsertSymbol)
UniCodeNum = dlg.charnum
If UniCodeNum = 32 Then
Selection.Collapse
Selection.MoveRight unit:=wdCharacter, Extend:=wdMove
Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
End If
' Loop, converting symbol Unicode characters to ASCII characters
Set dlg = Dialogs(wdDialogInsertSymbol)
UniCodeNum = dlg.charnum
While UniCodeNum < 0 And Selection.End <= StartRange.End _
And ActiveDocument.Content.End > Selection.End
Selection.Delete
Selection.InsertAfter (ChrW(UniCodeNum + 4096))
Selection.Collapse (wdCollapseEnd)
Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
Set dlg = Dialogs(wdDialogInsertSymbol)
UniCodeNum = dlg.charnum
Wend
Selection.Collapse (wdCollapseEnd)
Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
Wend
' Reset Word document settings
If SCP = 1 Then Options.SmartCutPaste = True
If NoFC = 1 Then ActiveWindow.View.ShowFieldCodes = False
Selection.Collapse (wdCollapseStart)
Selection.MoveLeft unit:=wdCharacter
Application.ScreenUpdating = True
End Sub

zur Installation:
- den geänderten Makro vollständig markieren und per Strg-c in die Zwischenablage kopieren
- Word öffnen
- Extras->Makro->Visual Editor (oder Alt-F11)
- Cursor ganz oben setzen und mit Enter ein paar Zeilen freimachen
- Cursor wieder oben hinsetzen
- Strg-v oder Bearbeiten->Einfügen
- Strg-s oder Datei->Normal speichern

Zur Benutzung:
- Kästchen in der Datei markieren
- Extras->Makro-Makros oder Alt-F8
- Makro "ConvertSymbol" suchen und entweder doppelt anklicken oder rechts "Ausführen" klicken
- fertig
MfG Carsten

hallo ihr lieben,
vielen dank für eure hilfe, den tipp mit den kennwörtern von rojek ist wirklich gut. caboehmer hat bestimmt auch eine gute idee, aber leider habe ich auch nicht einmal ansatzweise etwas verstanden, sorry! ich habe auch noch einen tipp bekommen und zwar den verschlüsselten text markieren und auf kopieren gehen, dann in programme "zubehör" offnen da befindet sich u.a. auch "word pad", wenn man das öffnet, den text einfügt und die schriftart wieder auf z.b. times new roman stellt, wird der text wieder lesbar. ich konnte somit meinen text noch zu retten, werde aber in zukunft doch eher texte mit kennwörtern schützen. danke noch mal.

liebe grüße und ein besinnliches weihnachtsfest euch allen

nordigirl = matina

siehe da, Wordpad in seiner Einfachheit macht Sachen möglich, die Office verhaut.

aber warum denn einfach, wenn's auch kompliziert geht