Einfügen Sonderzeichen

[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

[komma4]

Versuch' mal mit Makro aufzeichnen

[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?

[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

Code: Alles auswählen

msgbox chr(64)

erhältst Du dann folgendes Ergebnis:

@.png (5.75 KiB) 1999 mal betrachtet

Gruß R

[mike6]

Hallo,

vielen Dank für den Hinweis. Wie binde ich den Code aber in ein Makro ein?

[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