Office: (Office 2010) Felder in Word per Makro füllen

Hallo!

Ich hätte noch eine Anregung *wink.gif*:
Immer den VBA-Code einer Makroaufzeichnung nacharbeiten, denn ActiveDocument und Selection würde ich als "Auf gut Glück"-Programmierung nennen. *wink.gif*
Code:

Anm.: vielleicht würde auch Bookmark.Text (ohne Range) funktionieren.

mfg
Josef

 

Als Anregung verstehe ich das GANZE sowieso - wie soll man sonst was lernen? *wink.gif*

Ja und nein - Diese Lisbox wäre überflüssig, da er direkt auf die Lisbox der Auswahl zugreifen könnte!

Und da liegt meiner Meinung nach auch ein Problem - bzw. solange es nicht mehr Textbausteine als Textmarken gibt...!
In meiner Bsp-DB ist übrigens als Beigabe noch die Prüfung der Existenz der Textmarke dabei! Somit kann man vorher prüfen, ob das gewählte Doc auch die entsprechende Textmarke besitzt - oder wie im Bsp.-Code enstsprechend reagieren!

Generell versuche ich fast alle Berichte und Schreiben von einem neuen Doc her auf zu bauen - so habe ich alle Freiheiten und bin nicht gezwungen auf Vorlagen zurück zu greifen, welche dann dem Nutzer schon mal abhanden kommen können!

@josef: Habe ich ja von dir auch mal gelernt: Nur definierte Zustände sind annehmbare Zustände *biggrin.gif*

 

Hallo,
also ich versuche hier nochmal ausführlich auf alle Fragen einzugehen ;-)

Es ist wie folgt aufgebaut:

Formular (Angebot) ->
tbl_Autotext (BE) -> tmp_Memo (FE) - Hier wird aus dem Backend temporär ins Frontend übergeben. In der Tabelle, stehen ID's, Textfelder (für die Abkürzung z.B. "SGDH", Memofelder (beinhaltet den Text z.B. "Sehr geehrte Damen und Herren")

Im Angebotsformular gibt es weitere Textfelder, welche vom Mitarbeiter auszufüllen sind:

Kunde, Ansprechpartner, Anschrift, Stadt - (Diese Felder werden reibungslos in Word übergeben mittels VBA ->

Code:

Ich hatte geplant, dass im Angebotsformular nochmal eine Übersicht mittels Listbox vorhanden ist. Damit die Mitarbeiter sehen, was sie für Textbausteine ausgewählt haben. Diese zeigt mir den Wert "Textfeld" aus der tmp_Memo an.

Und nun geht es darum, dass nur das erste Memofeld sprich Textbaustein übergeben wird. Aber keine weiteren mehr. Dies habe ich versucht mit folgendem Code abzubilden:

Code:

Ich schätze mal, dass es nur eine Kleinigkeit ist. Denn der Textbaustein wird ja übergeben, aber leider nur der erste.

Tut mir leid, aber ich bin nicht so der VBA-Crack und versuche mir das immer mittels Bausteinen o.ä. zusammen zubauen. Daher kann es natürlich sein, dass der von mir gepostete Code nicht der beste ist.

Aber ich bin für neue Vorschläge sehr gerne dankbar.

Vielen Dank für Eure bisherige Mühe.
Viele Grüße
Fabian


P.S.:

Das Listfeld muss nicht zwingend vorhanden sein, wenn Ihr eine bessere Lösung des ganzen habt. Dann bin ich natürlich sehr offen für Eure Vorschläge um das umzusetzen.

 

Tut mir leid - aber ich sehe immer noch kein Konzept hinter dem GANZEN!

Den Teil, dass du in Angebote Felder hast und nach Word überträgst ist klar - auch dass du Textbausteine übertragen willst ist klar - aber meiner Meinung nach hängt dass schon viel früher!

Wenn das dein ganzer Code ist, dan hakte es überall!

1. Hat dein Codemodule ganz oben folgendes Aussehen:
Code:

Die 2. Zeile ist für dich von Bedeutung - da sie dich dazu zwingt eindeutige Definitionen zu vergeben!

2. Du verweist zwar auf ein neues Word Object - aber wo setzt du die Variable oder verweist du auf das Document Object?
Code:

Jetzt erst solltest du anfangen mit den Objekten zu arbeiten!
Denn jetzt ist definitiv objDoc auch dein neues Dokument!
Und mit ItemData ist kein Spass gemeint, sondern der erste Wert deines Listenfeldes *wink.gif*
Code:

So nun bleiben noch die eigentlichen Fragen:
Wie wählst du die Tbs aus?
Wie befüllst du dein Listenfeld mit den ausgewählten TB´s?

Wenn du die Fragen beantworten kannst - dann kann man dir auch evtl. helfen!

 

Ist Bookmarks die Standardauflistung der Word.Document-Klasse? Oder fehlt da eventuell das Ansprechen der Bookmarks-Eigenschaft?

mfg
Josef

 

STIMMT! - hatte ich auch nicht mehr darüber nachgedacht ...
Code:

So muss das aussehen *wink.gif*

 

Guten Morgen,

gute Fragen und hoffentlich gute Antworten ;-)

Also das Listenfeld im UFO "memo_selected" hat beinhaltet die Abfrage "qu_memo" und diese besteht aus folgendem SQL-String zum befüllen:

Code:

Des Weiteren habe ich den Option Explicit im Code in Zeile zwei stehen. Meine ersten Zeilen sind:

Code:

Zum Thema Tabellenauswahl bzw. Textauswahl:
Der Button "Autotext" öffnet das Formular "memo". Dort ist ein Memofeld hinterlegt, welches mit der Tastenkombination "Strg + Leertaste" ein Textauswahlformular namens "Auswahl/Autotext" öffnet. Dort wird mit einem Doppelklick der Datensatz ausgewählt und in das Memofeld des Formulars "memo" reingeschrieben.
Dieses Feld "memo" beruht auf dem Memofeld der temporären Tabelle (tmp_Memo)




Ich habe den Code mal mit Euren guten Vorschlägen umgebaut:
Code:

Aber dort kommt in der Zeile ein Fehler:
Code:

Dieser meldet einen Syntaxfehler.

Ich hoffe die Infos konnten Euch weiterhelfen. Und hoffe, dass Ihr mir helfen könnt dieses Problem zu beheben.

Vielen Dank für Eure Mühe.

 

da fehlen Klammern

Code:

und hier fehlt auch noch was :
Code:

und bitte beachten : itemdata(1) gibt Dir die zweite Zeile im Listenfeld zurück, weil bei 0 angefangen wird zu zählen

 

.. und du must da "C:\Users\xxx\Angebot.dotx" natürlich deinen Pfad zu deiner Angebot.dot bzw. .dotx eingeben, falls das nicht geschehen ist!

und bitte beachten : itemdata(1) gibt Dir die zweite Zeile im Listenfeld zurück, weil bei 0 angefangen wird zu zählen

Nobody is perfect *wink.gif*


Sehe da eben noch was:
Code:

Das kann so überhaupt nicht gehen!
Versuche auch mal die Logik hinter dem Code zu verstehen!

Ändern zu:
Code:

ACHTUNG! Bei Documents nicht Open sondern Add!

Ändere die folgenden Zeilen dementsprechend ab:
Aus dem Zweizeiler wird dann ein Einzeiler:
.Bookmarks.Item("Kunde").Range.Text = Me!betreiber.Value
Name deiner Textmarke
Das was in die Textmarke rein soll!

 

Hallo,
Danke für die Anpassungen :-)

Nun habe ich den Code so umgeschrieben, wie vorgeschlagen:

Code:

Aber er bringt einen Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt und beim debuggen markiert er diese Zeile

Code:

Habe ich was übersehen?

Vielen Dank *Smilie

 

objword muss natürlich auch zugewiesen werden... Code:

 

Hallo Ralf,
danke war ja klar.
Vor lauter Bäumen und so weiter ;-)

Allerdings läuft der Code jetzt soweit durch, bekommt nur noch an einer Stelle ein Fehler.

Code:

Hier bringt er einen Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht... :-(

 

Code lesen und verstehen...

Code:

Was ist obj.? Von dem war nie die Rede!
Ersetze das mal durch objDoc bzw. durch die With-Anweisung nur durch einen . - läufts jetzt?


@Scorfun: Durch >> Set objDoc = objWord.Documents.Add("C:\Users\xxx\desktop\angebot.dotx")

 

Frei nach deinem Motto *cool.gif*
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig