Aha.
Also zu 100%Prozent kann ich Dir nicht helfen, da ich nicht weiss wie man TextFelder in der Kopfzeile abfĂĽllt.
Unter Financials habe ich das mal so gemacht:
Der Automation-Profi bin ich auch nicht, aber vielleicht hilfts.
Die Funktion FieldTransfer kann ich dann mit den Parametern Feldname, Feldinhalt aufrufen.
Achtung:
Der Feldinhalt muss mit Format in einen Text gecastet werden.
- Code: Alles auswählen
Function FieldTransfer(_FieldName : Text[30];_FieldValue : Text[50])
local Var:
WordFields 'Microsoft Word 11.0 Object Library'.Fields
WordField 'Microsoft Word 11.0 Object Library'.Field
WordRange2 'Microsoft Word 11.0 Object Library'.Range
i integer
ExistsFieldName Text 30
Total Integer
CLEAR(WordFields);
WordFields := WordApp.ActiveDocument.Fields;
IF ISCLEAR(WordFields) THEN
EXIT;
Total := WordFields.Count;
FOR i := 1 TO Total DO BEGIN
WordField := WordFields.Item(i);
WordRange := WordField.Result;
WordRange2 := WordField.Code;
ExistsFieldName := UPPERCASE(WordRange2.Text);
ExistsFieldName := DELCHR(ExistsFieldName, '<', ' ');
ExistsFieldName := DELCHR(ExistsFieldName, '>', ' ');
IF ExistsFieldName = UPPERCASE(_FieldName) THEN begin
WordRange.Text := _FieldValue;
exit;
END;
END;
Gruss