Steuern von Textfeldern in Word

[Keldorn]

Hallo

also richtig erklären kann ich nicht, aber die Textfelder, die du eingefügt hast, sind ja Steuerelemente und nix Word-Eigenes wie z.B. ein Textformularfeld. Mit den Dingern habe ich noch nix gemacht.
Da kommst du scheinbar nicht auf diesem Weg an den Text ran, siehst du auch, wenn Du dir ein Makro aufzeichnest: geht a) nicht richtig und b) auch beim neu erzeugten Textbox-feld läßt sich per Makro nicht der Text ändern.

per google habe ich folgendes gefunden:
http://www.office-loesung.de/ftopic279905_0_0_asc.php

wenn du das in Delphi umsetzt, kommt sowas raus:

Delphi-Quellcode:

    var mytextbox:olevariant;
    ...
    for I := 1 to WordDocument1.InlineShapes.Count do
    Begin
      Iole := I;
      ishp:=WordDocument1.InlineShapes.item(iole);
      if ishp.type_= wdInlineShapeOLEControlObject  then
       if iShp.OLEFormat.ClassType = 'Forms.TextBox.1' Then
         begin
           mytextbox:=iShp.OLEFormat.Object_;
           Memo1.Lines.Add(IntToStr(I) + ' Name: '+mytextbox.name+', Text:'+mytextbox.text);
         end;
    end;

dann steht im Memo:

Zitat:

1 Name: TextBoxAnlagenStandort, Texties ist der erste Text
2 Name: TextBoxAnlagenStandort2, Texties ist ein anderer Text

Gruß Frank