Seite 1 von 1
Einfügen Sonderzeichen
Verfasst: Mi, 02.11.2011 07:41
von mike6
Hallo,
ich habe 2 Fragen zu Makros.
1.) Wie kann ich über ein Makro ein Sonderzeichen einfügen? Z.B. ein " @ " (Arial U+0040 (64))
Moderation,4: Betreff angepasst; 2. Frage abgespaltet
Re: Einfügen Sonderzeichen
Verfasst: Mi, 02.11.2011 07:56
von komma4
Versuch' mal mit Makro aufzeichnen
Re: Einfügen Sonderzeichen
Verfasst: Mi, 02.11.2011 13:06
von mike6
Hallo,
hier 2 Versuche mit Makro aufzeichnen:
Code: Alles auswählen
sub at
Dim oCell as Object
On Error Resume Next
oCell = thisComponent.getCurrentSelection()
With oCell
.string="@"
.CharFontName="Symbols"
.CharFontStyleName="Standard"
.CharFontCharSet=10
.CharFontPitch=2
End With
End Sub
Das mit dem
@ ist ja noch nachzuvollziehen.
Code: Alles auswählen
sub haken
Dim oCell as Object
On Error Resume Next
oCell = thisComponent.getCurrentSelection()
With oCell
.string="ü"
.CharFontName="Wingdings"
.CharFontStyleName="Standard"
.CharFontCharSet=10
.CharFontPitch=2
End With
End Sub
Hier handelt es sich um das Sonderzeichen "Haken", welches als String
"ü" dargestellt wird.
Gibt es irgendwo eine Tabelle, die die Sonderzeichen mit dem jeweiligen "string" gegenüberstellt?
Re: Einfügen Sonderzeichen
Verfasst: Mi, 02.11.2011 18:16
von F3K Total
Hi,
ich schaue mich immer hier um:
http://forumtreff.pytalhost.de/viewtopic.php?p=147#t
Unter
Codepositionen U+0000 bis U+007F – Basic Latin findest Du z.B. für das @ eine Nummer 64
mit
erhältst Du dann folgendes Ergebnis:
- @.png (5.75 KiB) 2002 mal betrachtet
Gruß R
Re: Einfügen Sonderzeichen
Verfasst: Mo, 07.11.2011 06:46
von mike6
Hallo,
vielen Dank für den Hinweis. Wie binde ich den Code aber in ein Makro ein?
Re: Einfügen Sonderzeichen
Verfasst: Mo, 07.11.2011 07:07
von Stephan
Wie binde ich den Code aber in ein Makro ein?
genau mit .string wie bereits gehabt. Ist das wirklich so schwer zu schlußfolgern?
Gruß
Stephan