Office: (Office 2007) Memo Feld formatieren in Bericht (Ritch-Text)

Hallo Experten

Ich habe ein Formular, welches mehrere Textfelder mit Ritch-Text beinhaltet. Jetzt ist es leider so, dass ich gerne die Inhalte dieser Felder auf eine andere Schriftart und Schriftgrösse in einem Bericht ausgeben möchte.
Es funktioniert leider nicht, dass ich das Steuerfeld im Bericht mit meiner gewünschten Schriftart und schriftgrösse versehe.

Wie mache ich das bei dieses Textfeldern mit Ritch-text?

Danke für eure Hilfe

:)

 

Hallo asphalt!

>>>Ich habe ein Formular, welches mehrere Textfelder mit Ritch-Text beinhaltet.

Was sind das für "Textfelder"?
Richtextcontrols?

Ich verwende Richtextconrols der Klasse RICHTEXT.RichtextCtrl.1 unter A03.
Falls es Richtextcontrols sind so gibt es für sie Einstellungen zu Schriftart und Schriftgröße.
Mit dem TOM (Text Object Model) läßt sich da etwas machen.

Vielleicht gibt es aber in A07 schon andere Lösungsansätze.

Ein paar Infos mehr würden helfen.

Wolfgang

 

Hallo Wolfgang

Es sind ganz normaler Textfelder im Formular, wobei ich die Eigenschaft bei Textformat auf Rich-Text gesetzt habe. In der zugehörigen Tabelle ist der Felddatentyp Memo ausgewählt.
Im Formular könnte ich die Einträge betreffend Schriftart und -grösse formatieren, aber es sind mehrere Hundert, das ist viel zu viel Aufwand.

Gruss
Asphalt

 

Hallo!

Du könntest im Bericht eine Hilfsfunktion erstellen, die den "Richtext" (eigentlich ist das eher html) ändert.

Beispiel (Code im Bericht):
Code:

Anm.: Hier ist vermutlich ein Regex-Ausdruck am sinnvollsten, damit alle vorhandenen Schriftgrößen vergrößert werden.

Im Bericht müsstest du diese Funktion für die Steuerelemente verwenden.
Steuerelementinhalt: = FontFormat([DatenfeldName])

Oder du erstellt eine public Function und verwendest diese direkt in der Datenherkunft des Berichtes, dann musst du den Bericht nicht anpassen (und nicht auf die Controlnamen achten, die eventuell den gleichen Namen wie die Datenfelder haben).

mfg
Josef

 

Hallo asphalt!

Mir ist jetzt aufgefallen, daß Du im Titel des OP von Bericht
>Memo Feld formatieren in Bericht (Ritch-Text)
sprichst, in der Antwort aber von Formular
>Es sind ganz normaler Textfelder im Formular

Zwar ist der Unterschied eigentlich nicht sehr erheblich, aber es ist einer.
Darf ich noch wissen, ob du mit
>aber es sind mehrere Hundert
die Anzahl der Formulare oder die Summe aller Textfelder in den betroffenen Formularen (Berichten?) meinst.

Was steht denn in den Tabellenfeldern tatsächlich drin?
Gewöhnlicher Text oder wirklich Rich Text, also "HTML" wie Josef meinte und wonach er seine Antwort auch ausrichtete?

Es sieht mir nun eher danach aus, als wäre eine Änderung der Eigenschaften Schriftgrad und Schriftbreite der Steuerelemente mittels Programm die angestrebte Lösung:
Abarbeitung der Formulare (Berichte?) und Änderung der Eigenschaften der Steuerelemente. Um welche es sich handelt kann aus dem Steuerelementinhalt (Tabellenfeld + Tabelle =Memofeld) ermittelt werden. Schwierig wird es, wenn eine Abfrage die Datenquelle darstellt.

Wenn die obige Annahme stimmt, so werde ich über eine Funktion nachdenken, die das kann. Könnte man ja selbst auch einmal benötigen.
Oder aber es gibt so etwas schon. Das weiß ich aber nicht.

Wolfgang

 

Hallo!

@Wolfgang, nur zur Sicherheit: Seit Ac2007 können Textboxen auf RichText umgestellt werden und zeigen dann formatierten Text an.
Wenn man den Text allerdings per VBA ausliest, sind auch die Format-Angaben enthalten.

mfg
Josef

 

Hallo!

Da habe ich mal was gefunden (Danke Eberhard) und angepasst:
Code:

 

Hallo!

@josef

>>>
Seit Ac2007 können Textboxen auf RichText umgestellt werden und zeigen dann formatierten Text an.
Wenn man den Text allerdings per VBA ausliest, sind auch die Format-Angaben enthalten.
>>>
Das ist mir bekannt.

Aber es scheint mir trotzdem so, daß in den Memofeldern kein Text mit Formatierungsangaben enthalten ist, sondern der Fragesteller sich die Arbeit des Anpassens der Steuerelementeigenschaften ersparen möchte, was bei "hunderten" Steuerelementen durchaus verständlich ist.
Daß Änderungen der betr. Eigenschaften der Steuerelemente wirkungslos bleiben ist für mich ein Hinweis, daß deren Inhalte gar keine Formatieringsinformationen enthalten.

Doch dies kann nur der Fragesteller selbst beantworten.

Wolfgang

 

Hallo!

Glaub mir, ich hätte das Code-Prinzip in Beitrag #4 nicht gezeigt, wenn es so nicht durchführbar wäre. ;-)

mfg
Josef

 

Hallo!

@josef!

Ich habe Deinen Codevorschlag ja nicht kritisiert.
Ganz im Gegenteil. Mir gefällt er.

Doch hat dieser nur Sinn, wenn tatsächlich
(spitze Klammer auf) font size=1 (spitze Klammer zu)
in den Daten vorkommt.

Aber die wesentliche Frage sei mir erlaubt:
Wieso bist Du sicher, daß solche Informationen in den Memofeldern des Fragestellers enthalten sind?
Weil die Einstellung des Steuerelements RichText lautet?

Wolfgang

 

Hallo!

Aufgrund folgenden Satzes:

Wären es Textfelder ohne Rich-Text-Einstellung, wäre das Vergößern der Schrift kein Problem, da dann die FontSize-Eigenschaft wirkt.

mfg
Josef

 

Hallo!

@ Josef
Zitat:
> Ich habe ein Formular, welches mehrere Textfelder mit Ritch-Text beinhaltet.

Wären es Textfelder ohne Rich-Text-Einstellung, wäre das Vergößern der Schrift kein Problem, da dann die FontSize-Eigenschaft wirkt.

Das ist schlüssig.

Irritiert hat mich aber
Zitat
> Im Formular könnte ich die Einträge betreffend Schriftart und -grösse formatieren, aber es sind mehrere Hundert, das ist viel zu viel Aufwand.

Hat er es nun in einem Fall versucht oder nicht?
Jedenfalls scheint er zu glauben, daß mit der FontSize-Eigenschaft das Problem zu lösen wäre.
Das heißt doch eher, daß es um die Menge des anfallenden Aufwandes geht.

Eine Stellungnahme des Fragestellers würde mich jetzt schon sehr interessieren.

Wolfgang

 

Die Nutzung der Funktion wäre per schnell zu erstellender VBA-Funktion mit Schleife über alle Steuerlement schnell eingebaut.

Einige hundert Steuerelmente glaube (hoffe) ich übrigens nicht, da das dann eigentlich "mehrere hundert Textfelder in einem Datensatz" bedeuten würde. *wink.gif*

mfg
Josef

 

Hallo Josef!
Zitate:
> Die Nutzung der Funktion wäre per schnell zu erstellender VBA-Funktion mit Schleife über alle Steuerlement schnell eingebaut.
> Einige hundert Steuerelmente glaube (hoffe) ich übrigens nicht, da das dann eigentlich "mehrere hundert Textfelder in einem Datensatz" bedueten würde.

Genau!

Warten wir also noch, wie sich der Fragesteller dazu äußert.

Wolfgang

 

Hallo Jungs, danke für eure zahlreichen Antworten.

@Wolfgang
Ich gebe Daten in ein Formular ein und mehrere Textfelder darin werden als RichText abgespeichert. Ich benötige dies, um die Formatierung im Zuge einer Copy Past Aktion aufrecht zuerhalten.
Die Hundert beziehen sich auf die Datensätze, welche ich in das Formular eingebe und davon einen Bericht generiere.
Im Formular könnte ich die Formatierung des Textfeldes mit Rich ändern, aber bei mehren Hundert Datensätzen ist das viel zu viel Aufwand.
Im Bericht kann man auch die Eigenschaft des Feldes ändern, wird aber von Access nicht übernommen, das geht nur direkt im Formular.

Ich habe den Code von Joseph getestet, und im Direktfenster den Eintrag des Textfeldes dargestellt. Es ist wirklich so, dass es eine html-ähnliche Darstellung ist (mit Spitze Klammern :-)). Im Formular und im zugehörigen Bericht sieht man davon aber nichts.


@Joseph
Dein Code funktioniert tadellos. Was ich nicht verstehe, ist deine Aussage
> eine public Function und verwendest diese direkt in der Datenherkunft des Berichtes
kannst du mir diese Variante näher erklären, ich möche meine Berichte nämlich nicht mehr anpassen.


@Ingo
Danke für den Code, den muss ich mir noch anschauen.



Danke Asphalt