Textformularfeld farblich hinterlegen

[Ralf Dorn]

Hallo alle zusammen,

ich will in einem Dokument Textfelder anlegen die am Anfang einen roten
Hintergrund haben und nachdem etwas eingegeben wurde soll er weiß sein.

Dadurch will ich erreichen, dass in dem Dokument alle Felder ausgefüllt
werden, oder besser gesagt, dass die Sekretärin sieht, dass noch nicht alle
Felder ausgefüllt wurden.

Kann man das Textformularfeld automatisieren??

Wie kann ich ein Textformularfeld über VBA ansprechen??

Gruß


Ralf Dorn

[Thomas Gahler]

Hallo Ralf

Post by Ralf Dorn
Kann man das Textformularfeld automatisieren??

Habe folgendes gemacht

- Datei erestellt und Text eingefügt
- zwei Textformularfeld eingefügt
- den nachstehenden Code eingebaut (Dokument, Vorlage, Normal.Dot)
- die Hintergrundfarbe der Textfelder gesetzt (mittels der Schaltfläche
'Hervorheben' aus der Symbolleiste 'Format'š
- in den Eingeschaften der einzelnen Textformularfeld die entsprechenden
Makros im Feld 'Beenden' zugewiesen
- (Die Textmarke muss mit dem Parameter übereinstimmen)
- Dokument geschützt und ab geht die Post

Sub Feld1()
FarbeÄndern "Text1"
End Sub

Sub Feld2()
FarbeÄndern "Text2"
End Sub

Private Sub FarbeÄndern(ByVal CTextFeld As String)
Dim oFF As FormField

Set oFF = ActiveDocument.FormFields(CTextFeld)
With oFF
If Not Len(Trim$(.Result)) = 0 Then
.Range.HighlightColorIndex = wdNoHighlight
End If
End With
End Sub


--
Thomas Gahler
MVP für WordVBA

- Windows XP, Office XP (SP2)

[Ralf Dorn]

Hallo Thomas,

Post by Thomas Gahler
- Datei erestellt und Text eingefügt
- zwei Textformularfeld eingefügt
- den nachstehenden Code eingebaut (Dokument, Vorlage, Normal.Dot)
- die Hintergrundfarbe der Textfelder gesetzt (mittels der Schaltfläche
'Hervorheben' aus der Symbolleiste 'Format'š
- in den Eingeschaften der einzelnen Textformularfeld die entsprechenden
Makros im Feld 'Beenden' zugewiesen
- (Die Textmarke muss mit dem Parameter übereinstimmen)
- Dokument geschützt und ab geht die Post

vielen Dank für deine Hilfe. Funktioniert eigentlich ganz gut. Nur ein
Problem habe ich noch. Ich wollte eigentlich erreichen, dass der User auch
Text schreiben kann.

Es gibt ca. 15 Felder die an einer bestimmten Stelle stehen, aber es muss
auch möglich sein ganz normal Text einzugeben. Doch wenn ich das Formular
schütze, kann ich keinen Text mehr eingeben weil nach dem letzten Tabulator
sprung wieder auf den Anfang gesetzt wird.

Kann ich vielleicht mehrzeilige Textfelder einfügen?? Dann könnte ich das
vielleicht hinkriegen.

Nochmal danke

Gruß

Ralf Dorn

[Thomas Gahler]

Hallo Ralf

Post by Ralf Dorn
Kann ich vielleicht mehrzeilige Textfelder einfügen?? Dann könnte ich das
vielleicht hinkriegen.

Du kannst in einem Textfeld Zeilenschaltungen (Shift+Enter) oder auch
Absätze (Enter) einfügen.

Post by Ralf Dorn
Ich wollte eigentlich erreichen, dass der User auch
Text schreiben kann.

Kann er auch, sofern das Konzept mit den Formularfeldern richtig angewendet
wird.

Ein Abschnitt mit den Feldern
Ein Abschnit für die Texteingabe
Extras -> Dokument schützen... -> Formulare aktivieren -> Abschnitte
bestimmen


--
Thomas Gahler
MVP für WordVBA

- Windows XP, Office XP (SP2)

[Ralf Dorn]

Hallo Thomas,

vielen Dank. Alles super!!

Weißt du ein paar gute Seiten zu Word und Word/VBA??

Ich kenne mich eigentlich ganz gut mit Excel/Acess VBA aus. Doch in Word bin
ich noch sehr jungfreulich

Gruß

Ralf Dorn

[Thomas Gahler]

Hallo Ralf

Post by Ralf Dorn
Weißt du ein paar gute Seiten zu Word und Word/VBA??

Zwei sehr gute sind die
http://www.mvps.org/word/
http://mypage.bluewin.ch/reprobst/


Dann gibt es noch die Standardantwort von Lutz auf diese Frage, kann im
Moment aber auf Google nichts finden. Aber du wirst den Tip sicher finden
http://groups.google.com/groups?hl=de&safe=off&group=microsoft.public.de.wor
d.vba
Suche muss 'Lutz' enthalten, dann bist du schneller dabei


--
Thomas Gahler
MVP für WordVBA

- Windows XP, Office XP (SP2)

[Ralf Dorn]

Hallo Thomas,

Post by Thomas Gahler
Extras -> Dokument schützen... -> Formulare aktivieren -> Abschnitte
bestimmen

wieder ein kleines Problem. Abschnitt ist immer grau hinterlegt.

Warum?

Gruß

Ralf Dorn

[Thomas Gahler]

Hallo Ralf

Post by Ralf Dorn
wieder ein kleines Problem. Abschnitt ist immer grau hinterlegt.

Du hast wohl nur ein Abschnitt im Dokument drin




--
Thomas Gahler
MVP für WordVBA

- Windows XP, Office XP (SP2)

[Ralf Dorn]

Hallo Thomas,

nochmal danke für deine Antworten. Das mit dem einen Abschnitt wird wohl
stimmen, nur weiß ich nicht wie man einen Abschnitt anlegt. Aber damit will
ich dich nicht mehr belästigen. Das werde ich in der Hilfe schon finden.
Wenn ich sehe wie beschäftigt du in dieser NG bist, kann ich nur dankbar
sein, dass du dich mit meinen einfachen Fragen geschäftigt hast.

Gruß aus dem Süden Deutschlands

Ralf Dorn

[Thomas Gahler]

Hallo Ralf

Post by Ralf Dorn
nur weiß ich nicht wie man einen Abschnitt anlegt.

Einfügen -> Manueller Umbruch...




--
Thomas Gahler
MVP für WordVBA

- Windows XP, Office XP (SP2)

[Ralf Dorn]

Hallo Thomas,

Post by Thomas Gahler
Einfügen -> Manueller Umbruch...

besten Dank. Habe es geschafft.


Gruß

Ralf Dorn