Makro: Åbne word-fil og kopiere data

Du kan bruge noget der ligner nedenstående. Ret filnavn fra Word, cellereference og bogmærkenavne til dit ark/wordfil.

Sub salgstal()

    Dim y As Word.Application
    Set y = CreateObject("Word.Application")
   
    With y
        .Visible = True
    .Documents.Open Filename:="F:\salg.docx"
        Worksheets("ark1").Range("b1").Copy
    .Selection.GoTo What:=wdGoToBookmark, Name:="Region"
        .Selection.Paste
        Worksheets("ark1").Range("a3:d11").Select
        Selection.Copy
    .Selection.GoTo What:=wdGoToBookmark, Name:="Salgsinfo"
        .Selection.Paste
        Application.CutCopyMode = False
       
    End With
   
End Sub

Hej panebb!

Ok, jeg har prøvet at ændre lidt på koden, så den passer til mit skema. I første omgang vil jeg bare have den til at åbne word-dokumentet:

Sub OpretTilmeldingsskema()

    Dim y As Word.Application
    Set y = CreateObject("Word.Application")
   
    With y
        .Visible = True
    .Documents.Open Filename:="G:\Espens Vænge\Træningsområdet\Kørsel Ulla-Dorte-Bettina\Tilmeldingsskema-kørsel.doc"
               
    End With
   
End Sub


Får fejlen "user defined type not defined", og den første linie i koden markeres med blåt og titlen med gult...?

VBA er ikke min stærke side, men havde denne stump, som virker her.
Dog vil jeg ændre dit stinavn/filnavn.
jeg er ikke sikker på at mellemrum, æøå og bindestreg duer i VBA.

Hmm, ok! Ellers tak for forsøget, panebb!

Er der andre der kan hjælpe? :o)

har du prøvet at ændre dit sti-/filnavn ?

Nej, hvis det kan lade sig gøre vil jeg helst undvære det. Vi er rigtig mange der bruger de her forskellige stier/mapper, så jeg vil lige afprøve alternative muligheder før jeg begynder at rode med det... :o/

For at kunne operere med Word objekter i Excel skal du have tilføjet referencer:

I Visual Basic:
Gå ind i Tools>References

Her skal du have disse to vinget af:

Microsoft Office 12.0 Object Library
Microsoft Word 12.0 Object Library

-Dette er i Excel 2007. Hvis du kører en anden version har de måske andre numre.

Prøv nu om du kan køre din sub.

Hahaaaaaaaa! Det virker! :o) Kører i 2003 versionen, så de hed 11.0 i stedet.

Okay, kan jeg bruge panebb´s koder til kopieringen af de tre celler fra Excel til Word, eller hvordan er fremgangsmåden?

Det er jo bare at prøve....
Umiddelbart ser de OK ud.

Jeg går ud fra som givet at du udfører disse eksperimenter i kopier af de originale dokumenter. Når alt er på plads indsætter du koden i originalerne.

Glimrende! Ja, jeg arbejder i kopier så jeg ikke får lavet ballade i det egentlige dokument.

Tak for hjælpen, skulle nok kunne finde vej herfra! :o)

Smid et svar, tjacob!

Eller skal pointene deles?

Nej, jeg synes panebb fortjener pointene, -det var ham der kom med koden. Jeg hjalp bare med en indstilling.......

Ok, tak alligevel!

Panebb, smid et svar! :o)

et svar
- med lidt fælles hjælp kan vi alle nå langt.

jeg takker :-)