Export in ein Word-Dialogfeld

Kraftfahrt-Bundesamt

unread,

Mar 5, 1999, 3:00:00 AM3/5/99

to

Hallo,

ich nutze Office97.

Aus einer Excel-"Datenbank" will ich Daten in Textfelder des
Dialogfeldes einer Word-Datei übertragen. Das Öffnen von Word und das
Anzeigen des (automatisch beim Start der Word-Datei erscheinenden)
Dialogfeldes ist nicht das Problem. Die übergebenen Daten scheinen nur
nicht anzukommen.

Kann mir jemand helfen?

Vielen Dank schon jetzt.

Bernd

****************************************************

Kraftfahrt-Bundesamt
Aussenstelle Dresden

Tel.: 03 51-4 73 85-0
Fax.: 03 51-4 73 85-36 (37)

E-Mail: kba...@t-online.de
WWW: http://www.kba.de

Silvia Widmer

unread,

Mar 6, 1999, 3:00:00 AM3/6/99

to

Hallo

Wie übergibst Du den die Daten, wie empfängst Du sie ?

Gruss
Silvia Widmer

Bernd Held

unread,

Mar 6, 1999, 3:00:00 AM3/6/99

to

Hallo Bernd,
wenn Du uns vielleicht einen ausschnitt aus Deinem Makro senden könntest,
könnten wir Dir gezielt weiterhelfen.
Viele Grüße
Bernd

Kraftfahrt-Bundesamt schrieb in Nachricht <36E012CF...@t-online.de>...

BerndJurk

unread,

Mar 6, 1999, 3:00:00 AM3/6/99

to

Dim Dokument As String

Sub ÜbergabeDokument()
'Übergabe eines Datensatzes an eine Word-Vorlage

Dim wdAnw As Object

On Error GoTo fb

AppActivate "Microsoft Word"
Set wdAnw = Word.Application

wdAnw.documents.Open FileName:=Dokument
wdAnw.Activate

On Error GoTo 0

wdAnw.Visible = True
wdAnw.WindowState = wdWindowStateNormal
wdAnw.Activate

Exit Sub

fb: If Err.Number = 5 Then 'Word
nicht geladen
Set wdAnw = CreateObject("Word.Application")
End If
Resume Next
End Sub

Sub Auditvorbereitung()

Dokument = \\...\Auditvorbereitung.doc

ÜbergabeDokument

With ActiveDocument
WordBasic.DisableAutoMacros 'Dialogfeld (Multipage) wird in
Word durch AutoOpen aufgerufen
.form("Form_Auditvorber").e_firma =Range("G" & ActiveCell.Row) '???
'auch: MP.P.e_firma=... '->Multipage.Page.Textfeld
...
Form_Auditvorber.Show
End With

End Sub

Kraftfahrt-Bundesamt

unread,

Mar 8, 1999, 3:00:00 AM3/8/99

to

Kraftfahrt-Bundesamt schrieb:

> Hallo,
>
> ich nutze Office97.
>
> Aus einer Excel-"Datenbank" will ich Daten in Textfelder des
> Dialogfeldes einer Word-Datei übertragen. Das Öffnen von Word und das
> Anzeigen des (automatisch beim Start der Word-Datei erscheinenden)
> Dialogfeldes ist nicht das Problem. Die übergebenen Daten scheinen nur
>
> nicht anzukommen.
>
> Kann mir jemand helfen?
>
> Vielen Dank schon jetzt.
>
> Bernd
>
> ****************************************************
>
> Kraftfahrt-Bundesamt
> Aussenstelle Dresden
>
> Tel.: 03 51-4 73 85-0
> Fax.: 03 51-4 73 85-36 (37)
>
> E-Mail: kba...@t-online.de
> WWW: http://www.kba.de

Hallo Silvia, hallo Bernd,

da ich am Wochenende bereits aus AOL heraus geantwortet habe, dioese
Nachrichten jetzt aber nicht mehr im Forum wiederfinde, bin ich mir
nicht sicher, ob die jetzige Mitteilung nicht überflüssig ist. Trotzdem
hier der Aussschnitt aus meinen Makros:

Dim Dokument As String

Sub ÜbergabeDokument()
'Übergabe eines Datensatzes an eine Word-Vorlage

Dim wdAnw As Object

On Error GoTo fb

AppActivate "Microsoft Word"
Set wdAnw = Word.Application

wdAnw.documents.Open FileName:=Dokument
wdAnw.Activate

On Error GoTo 0

wdAnw.Visible = True
wdAnw.WindowState = wdWindowStateNormal
wdAnw.Activate

Exit Sub

fb: If Err.Number = 5 Then
'Word nicht geladen
Set wdAnw = CreateObject("Word.Application")
End If
Resume Next
End Sub

Sub Auditvorbereitung()

Dokument = \\s04cpi01\...\Auditvorbereitung.doc

ÜbergabeDokument

With ActiveDocument
WordBasic.DisableAutoMacros 'Dialogfeld (Multipage)
wird in Word durch AutoOpen aufgerufen
.form("Form_Auditvorber").e_firma =Range("G" & ActiveCell.Row)
'???
'auch:

MP.P1.e_firma=...
'??? (Multipage.Page1.Textbox=...)