Office: (Office 2013) Schrift mit Application.CommandBars.ExecuteMso einstellen

Hallöschen,

wenn ich in einem gebundenen Formular, ein Memofeld als Rich-Text eingestellt habe, kann ich mit dem Befehl es links ausrichten:

Code:

Dann muss es doch damit irgendwie möglich sein, die Schriftart und Schriftgröße einzustellen, oder? Wenn ja, wie denn?

Das ganze unter Access 2013, Win 10 jeweils 64 Bit

:)

 

Hallo Lupus,

Schriftart und -größe können innerhalb eines Access Richtextes variieren.
Daher gehe ich davon aus, dass diese Eigenschaften in den HTML-Tags
untergebracht sind.

Ein kurzes GoogleBing nach "access rich text font size vba"
bestätigt meinen Verdacht und man findet auch eine etwas
umfangreichere Lösung:
http://www.utteraccess.com/forum/Cha...-t2001858.html

 

Auch "AlignLeft" sind Tags im HTML. Diese lassen sich jedoch ExecuteMso ("AlignLeft"). Ebenso auch ExecuteMso ("Italic") oder ExecuteMso ("Bold"). Also typische HTML-Tags. Warum sollte dann nicht Schriftart-, größe ebenso einzustellen sein?
Ich frach nur, weil ich es irgendwie nicht nachvollziehen kann.
Aber, evtl. denke ich irgendwie in die falsche Richtung *rolleyes.gif*

 

Die Frage stellt sich natürlich, warum nicht gleich das vorgesehene Menü verwenden?

 

Hallo,

Schriftart und -größe sind keinen Buttons und sind somit nmM "raus aus der Nummer".

 

Weil ein Klick schneller geht wie Schriftart auswählen (langes Listenfeld) und dann auch noch die Größe auswählen, auch ein Listenfeld

 

Ich denke, ich habe eine Lösung gefunden. Jedenfalls haben die ersten Tests keine Fehler gebracht und macht was es soll.

Verbesserungsvorschläge sind willkommen!

Code:

 

Super Lösung.
Cool wäre jetzt noch, wenn man in der Lage wäre das Popup für die Formatierung auszublenden.

LG Markus

 

Schraubendreher oder mit Brieföffner die rechte Maustaste raus brechen, müsste doch als Lösung reichen? *grins

 

Das ist doch Käse.
Warum setzt man nicht einfach so was ins Form:

PHP:

         Private Sub Form_Open(Cancel As Integer)
Me.Text0.SetFocus
Me.Text0.Text = "<div><font face=Calibri size=3></font></div>"
End Sub


 

Beim Öffnen stellt Dir das so den Schrifttyp und die Größe ein, da steht dann nicht das drinnen, was du angibst.

Aber OK *Smilie dass das selektiv per Button passieren soll, hatte ich überlesen. Dadurch, dass das Textfeld den Focus verliert, wird eine saubere Lösung minimal komplexer, weil du beim Focusverlust des Textfeldes die Selection-Werte zwischenspeichern müsstest (SelStart/SelLength). Dann aber kannst du damit den font-Tag entsprechend einfügen.

Geht Deine Lösung überhaupt mit selektiertem Text, oder ist der Marker nicht auch so futsch, wenn Du auf den Button klickst?

Gruss
Jones

 

Nur den markierten Text zu berücksichtigen würde auch gehen, wären aber
ein paar Zeile dazu notwendig. Das scheint hier aber gar nicht gefragt zu
sein. (wie mir scheint) Durch das SetFocus wird das ganze Textfeld markiert
und die Änderung bezieht sich also auf den ganzen Text.

Das könnte man so machen (dann auch kleiner A13):

PHP:

         Private Sub cmdSchriftEinstellen_Click()
Me.Anforderung.SetFocus
Me.Anforderung.Text = SetFontTotal(Me.Anforderung.Text, "<font face=Calibri size=3>")
End Sub

Function SetFontTotal(sText As String, sFontTag As String) As String

If sText > "" Then
With CreateObject("Vbscript.Regexp")
.Global = True
.Pattern = "([<][/]?font[^>]*>)|([<][/]?div>)"
sText = .Replace(sText, "")
End With
End If

SetFontTotal = "<div>" & sFontTag & sText & "</font></div>"

End Function


 

War vorab etwas kurz durchdacht.
So ist es dann doch besser:

PHP:

         Function SetFontTotal(sText As String, sFontTag As String) As String

If sText > "" Then
With CreateObject("Vbscript.Regexp")
.Global = True
.Pattern = "[<][/]?font[^>]*>"
sText = .Replace(sText, "")
.Pattern = "<div .*?>"
sText = .Replace(sText, "<div>")
.Pattern = "<div>"
sText = .Replace(sText, "<div>" & sFontTag)
End With
Else
sText = "<div>" & sFontTag & "</font></div>"
End If

SetFontTotal = sText

End Function


 

Hallo CatboyJones,

Auch net schlecht, jedoch bei deiner Lösung werden immer folgende Zeilen im Code angefügt:

PHP:

         <div>&nbsp;</div>

<div>&nbsp;</div>

<div>&nbsp;</div>

<div>&nbsp;</div>