Hallo zusammen,
war lange Zeit richtig offline. Aber jetzt brauch ich eure Hilfe
Folgendes
Ich habe einen ganzen Berg Word - Vorlagen mit allen möglichen Formularfeldern, Grafiken etc und muss / will / möchte via Makro die Eigenschaften aller in der Vorlage vorhandenen Formularfelder (Typ, Position, etc) auslesen.
Geht sowas ?
Ich dachte mir .... Starten der Vorlage (ohne Makro) und die Positionen von Formularfeldern, Grafiken usw. (eben alles was geht) in Variablen zu packen und die Werte dann in eine Datenbank (excel oder so)
Hat da jemand einen Ansatz für mich ?
Schonmal ein dickes Danke vorab.
Gruß
DeBabba
Hallo DeBaBa,
mir fällt da erst mal auch nichts dazu ein. Hast Du denn schon eine Lösung gefunden?
Hi Schauan,
na ja ... bin immer noch dabei,
habe aber (die Ganze Sache besteht aus mehreren Teilen) schon mal die Sache mit Textmarken in den Griff bekommen
Hab das alles im Textfile angehängt . Schau mal im unteren Teil ab der Markierung '--------Auswertung der BookMarks---------------
Gruß
DeBabba - klaus
Hi,
such mal im Netz:word vba formularfeld auslesen
Vielleicht erklärst du auch mal den Sinn deines Vorhabens.
Moin Michael,
danke für Deinen Hinweis.
jedoch findet man unter diesem Suchbegriff nur wie man den Inhalt des Formularfeldes bekommt (ist ja einfach) und nicht die Position im Dokument.
Hintergrund:
Eine große Menge Vorlagen sollen auf ein externes (MS-Fremd) umgesetzt werden. Dieses versteht jedoch nur XSL-FO. Hilfrreich ist dabei, wenn man aus den bestehenden Vorlagen die Positionen der Formularfelder auslesen könnte (mit den textmarken hab ich das ja schon hinbekommen). So entfällt das "ausmessen, rumprobieren etc".
Ist zwar keine Komplettlösung, aber schonmal ein Ansatz
Gruß
DeBabba-Klaus
Hallo Klaus,
ich hab mal gegoogelt
word formfields eigenschaften auslesen
und bin bei Microsoft rausgekommen - war gleich der erste Link.
Da steht ein Beispielcode für das Einfügen eines Formularfeldes, könntest Du eventuell auch aufzeichnen.
Code:
Set ffield = ActiveDocument.FormFields.Add( _
Range:=ActiveDocument.Range(Start:=0, End:=0), _
Type:=wdFieldFormCheckBox)
ffield.CheckBox.Value = True
Du kannst Dir dann im Überwachungsfenster die Eigenschaften anschauen, eventuell ist z.B. Start und End brauchbar. Nach dem Einfügen stand bei mir bei Start wie gehabt die 0 und bei End eine 17 ..., siehe auch der Testcode:
Code:
Sub test()
With ActiveDocument.FormFields(1).Range
MsgBox "Start: " & .Start & " End: " & .End
End With
End Sub
Moin,
super...
danke :100:
ich schau a nach wie ich das eibauen kann (zählen der Objekte im Dokument und so :05:
Gruß
klaus