Flytte tekst fra excel til word via makro

Her er lidt at starte på...
http://www.smartoffice.dk/Tips/LibrarySource.asp?App=Excel&Lib=ExcelUsingWord

Den giver lidt problemer.
Den laver fejl i denne linje....
Public gwdApp As Word.Application

og den skriver følgende fejl....
User-defined type not defined

Jeg er ikke specielt god til vba, så jeg håber at du vil hjælpe med at flytte data fra de fem celler til de 10 tekstfelter i word også :-)

Når dataene er flyttet skal word filen ikke gemmes eller lukkes.
Den skal bare have de rigtige data. Så gemmer jeg selv hvor den skal gemmes.

Alternativ:
Når Userformen åbnes i Word hentes felterne i Excel-filen:

Dim xlsFil
Const xlsSti = "C:\stamFil.xls"
Private Sub UserForm_activate()
    Set xlsFil = CreateObject("Excel.Application")
    With xlsFil
        .workbooks.Open xlsSti
        Me.TextBox1 = .Range("navn1")
        Me.TextBox2 = .Range("navn2")
        Me.TextBox3 = .Range("navn3")
        Me.TextBox4 = .Range("navn4")
   
        .Application.Quit
    End With
   
    Set xlsFil = Nothing
End Sub

Ja hovsa - du skulle have linket til den anden vej...
http://www.smartoffice.dk/Tips/LibrarySource.asp?App=Word&Lib=WordUsingExcel
Det er jo ikke specielt anderledes end det supertekst skriver - her er blot lidt fejl styring på, omkring hvis Excel er åben i forvejen eller ej.

Da jeg ikke er super skrap til dette har jeg ikke kunne få det smartoffices til at virke og har derfor strikket det lidt anderledes sammen så jeg kan bruge supertekst løsning.

Her er min fremgangmåde:
1. Jeg står i et åbent dokument og kører en makro hvorved data fra den åbne fil eksporteres til excel fil c:\data\flettefil.xls)
2.Wordskabelonen åbnes
3. Word henter data fra flettefilen og indsætter i userform lige som supertekst har vist.

Men jeg kan bare ikke få indarbejdet i excel makroen at den skal åbne:
C:\data\flette forsøg.dot



Hvordan gør jeg det?

Jeg har indsat min kode nedenfor.




Sub export_Ekstern()
  Dim RK As Long, Data As Variant
    If vbYes = MsgBox("Er du sikker på at du vil eksportere data?", vbCritical + vbYesNo, "EXPORT") Then
    Application.ScreenUpdating = False
   
    Dim wb As Workbook
    Set wb = Workbooks.Open("c:\data\flettefil.xls", True, False)
   
        With ThisWorkbook.Sheets("stam")
           
            fkundenr = .Range("kundenr")
            fkundenavn0 = .Range("firmanavn0")
            fkundenavn = .Range("firmanavn1")
            fkundenavn2 = .Range("firmanavn2")
            fkundeadresse = .Range("firmaadresse")
            fpostby = .Range("firmapostogby")
           
            fperiodefra = .Range("i_år_startdato")
            fperiodetil = .Range("i_år_slutdato")
            fregnskabsår = .Range("regnskabsår")
        End With

        With wb.Sheets("flet")
           
            .Range("fletkundenr") = fkundenr  ' indsætter data fra andet ark
            .Range("fletkundenavn0") = fkundenavn0  ' indsætter data fra andet ark
            .Range("fletkundenavn") = fkundenavn  ' indsætter data fra andet ark
            .Range("fletkundenavn2") = fkundenavn2  ' indsætter data fra andet ark
            .Range("fletkundeadresse") = fkundeadresse  ' indsætter data fra andet ark
            .Range("fletkundepostby") = fpostby  ' indsætter data fra andet ark
            .Range("fletperiodefra") = fperiodefra  ' indsætter data fra andet ark
            .Range("fletperiodetil") = fperiodetil  ' indsætter data fra andet ark
            .Range("fletregnskabsår") = fregnskabsår  ' indsætter data fra andet ark
       
        End With
 
    Application.DisplayAlerts = False
    wb.Save
    wb.Close
    Application.DisplayAlerts = True
   
' *******************************
' her vil jeg så gerne starte Word, men kan ikke få den til at virke

    Dim wdApp As Word.Application
    Dim myDoc As Word.Document
    Dim mywdRange As Word.Range
    wdApp.Documents.Open ("C:\data\flette forsøg.dot")
 
    End If

End Sub

Mit egentlige problem er faktisk kun at starte en .dot fil fra excel, så den starter som en skabelon.

Er der nogen der ved om det kan lade sig gøre, for så har er nøden knækket :-)

Mit egentlige problem er faktisk kun at starte en .dot fil fra excel, så den starter som en skabelon.

Er der nogen der ved om det kan lade sig gøre, for så har er nøden knækket :-)

Det er vist umuligt at åbne en .dot fil fra excel, hvor skabelonens startmakro køres, så den vej dropper jeg.

Hvis jeg kan få lidt mere hjælp til smartoffice først kode kan det være at det kan lykkes alligevel.

Det er vigtig at pointere at jeg står i en åben excelfil, som KONSTANT har nye data i cellerne NAVN1 + NAVN2 + DATO1 + DATO2

Imens jeg står i denne excelfil vil jeg gerne starte en wordfil og indsætte dataene fra disse 4 felter i nogle TEKSTFELTER i Word.
Tekstfelterne i Word hedder f.eks. flet1, flet2, flet3 og flet4.

Se koden nedenfor, hvor jeg tror jeg skal have lidt hjælp.....


Option Explicit
'Flemming Vadet, August 2001, fv@smartoffice.dk
'Ref.: Microsoft Word 9.0 Object Library

Public gwdApp As Word.Application
Public gwdDoc As Word.Document

Sub OpenNewWordDocument()
    Dim sFileToOpen As String
    Dim bWordStartedByMe As Boolean
   
    bWordStartedByMe = False
    sFileToOpen = "C:\data\flette.doc"
    Application.ScreenUpdating = False
   
    On Error GoTo ShitHappens
   
    ' Bruger Word hvis Word er åben ellers fejl
    Set gwdApp = GetObject(, "Word.Application")
    gwdApp.Visible = True
    gwdApp.Activate
   
    ' Tilføj din egen kode her - hvad skal der ske ?
    ' f.eks. åben et eksisterende dokument
    Set gwdDoc = gwdApp.Documents.Open(Filename:=sFileToOpen)

    '****************************************************
    'HER MANGLER JEG SÅ HJÆLP TIL AT FÅ FLYTTET TEKSTEN
    'EXCELFELTERNE dato1+dato2+navn1+navn2 TIL
    'WORD TEKSTFELTERNE felt1+felt2+felt3+felt4
    '******************************************************
   
   
    ' Luk word - her uden at gemme ændringer.
    If bWordStartedByMe Then
        'gwdApp.Quit SaveChanges:=False
    Else
        'gwdDoc.Close SaveChanges:=False
    End If
   
    GoTo ClearUp
   
ShitHappens:
    Select Case Err.Number
        Case 429
            ' Hvis Word ikke er startet
            Set gwdApp = CreateObject("Word.Application")
            bWordStartedByMe = True
            Resume Next
        Case Else
            Err.Clear
    End Select

ClearUp:
    Set gwdDoc = Nothing
    Set gwdApp = Nothing
End Sub

Så fandt jeg selv ud af hvordan jeg fik data over til word.
Blind høne kan også finde korn :-)

Jeg satte dette ind i koden så gik det....

gwdDoc.FormFields(1).Result = ThisWorkbook.Worksheets("Stam").Range("navn1")
    gwdDoc.FormFields(2).Result = ThisWorkbook.Worksheets("Stam").Range("navn2")


Tak for indput og kodestumper.
Så mangler vi bare pointgivningen for jeres hjælp.

Er der nogen der har et svar? :-)

det får du så - omend lettere forsinket...