Overfør data fra Excel to Word

Hej firstchoice

Jeg vil meget gerne besvare dit spørgsmål, men du mangler at tages tilling til mit svar på spørgamålet:
\"Kopiering af celler med nummeropstillinger i Word\".

Mvh

Richardt

http://www.eksperten.dk/spm/149132

hej Richardt.
Jeg har lidt mange jern i ilden i den her tid, så jeg har endnu ikke testet ddit forslag, men vil gøre et forsøg på at nå det idag.
Nils

Her er en kodestump, som jeg normalt bruger:

Option Explicit
\'***********************************************
\'*** Ref.: Microsoft Word 9.0 Object Library ***
\'***********************************************
Public WordApp As Word.Application
Public WordDoc As Word.Documents

Sub UseWordFromExcel()
    Application.ScreenUpdating = False

    On Error GoTo ShitHappens
   
    \'Starter word - giver fejl hvis Word ikke er startet
    \'Hvorfor der er indbygget fejlstyringen
    Set WordApp = GetObject(, \"Word.Application\")
    WordApp.Visible = True
    WordApp.Activate
   
   
    \'DIN KODE PLACERES HER
   
   
    Application.ScreenUpdating = True

  Exit Sub
ShitHappens:
  Select Case Err.Number
    Case 429
      \'Hvis Word ikke er startet
      Set WordApp = CreateObject(\"Word.Application\")
      \'Til styring af om vi har startet Word op eller Ej
      WordStartet = True
      \'Fortsætter programmet fra næste linie.
      Resume Next
    Case Else
      Err.Raise Err.Number
  End Select
End Sub

Ok *S*

Fejlen ligger i din brug af wordobjektet. Du bruger \"with\" til at fortælle at alt du gør skal ske med objektet, men når du åbner din fil, så har du glemt at bruge dit objekt (der er ikke punktum foran) og du bruger en excelsætning midt i din \"with\" objektsætning, hvilket også kan give fejl

Jeg ville lave koden således:

Sub Start()

Dim y As Word.Application
Set y = CreateObject(\"Word.Application\")

Worksheets(\"Beregning\").Range(\"a49\").Copy

y.Visible = True
y.Documents.Open Filename:=\"C:\\forkalkulation\\tilbud_1.doc\"
y.Selection.GoTo What:=wdGoToBookmark, Name:=\"Tilbudsgiver\"
y.Selection.Paste

Application.CutCopyMode = False

\'For at lukke objektet korrekt
y.Quit
set y = Nothing

End sub

På min computer får jeg så ikke fejlen, hvilket jeg fik da jeg kørte din kode.

Mvh

Richardt