Macro vanuit excel een word document open (zelfde map)

[Tweety1]

Hi, de macro die hieronder staat werkt alleen zou ik hem willen aanpassen. Ik zou graag willen dat hij het bestand opent waar ook het excel bestand is opgeslagen (zelfde map)

Sub GetWordDoc()
Dim myWord As Object
    Range("B1").Select
    Selection.CurrentRegion.Select
    Selection.Copy
Set myWord = CreateObject("Word.Application")
myWord.Visible = True
myWord.documents.Open _
    Filename:="W:\TEST\TEST.docm", _
    ReadOnly:=True
'enter the path and name of your document here
With myWord
.Application.WindowState = 1    'wdWindowStateMaximize
.ActiveWindow.ActivePane.View.Zoom.Percentage = 100
myWord.Run "TEST"
End With

Set myWord = Nothing    'release memory

End Sub

mvg

Kasper

 

[snb]

Dit is de enige code die je nodig hebt:

Sub M_snb()
    Thisworkbook.sheets(1).Range("B1").CurrentRegion.Copy

    with Getobject(thisworkbook.path & "\test.docm") 
       .application.visible=true
       .content.paste
    end with

End Sub

 

[Tweety1]

Helaas werkt dit niet in word zit een macro die de word document aanpast

 

[snb]

Dat heeft er niets mee te maken.

Wat 'werkt niet' ?
Iets gedetailleerdere feedback zou niet verkeerd zijn.

Het Word-document.

 

[Tweety1]

Het kopiëren lukt wel. Alleen in het word document heb ik een macro opgenomen (ctrl+end) op doe plaats moet de gegevens naar toe gekopieerd worden. hoe kan ik dat aanpassen in de macro van jou? En ik zou graag Alleen-lezen willen.

mvg

Kasper

 

[snb]

Verwijder die opgenomen macro.
Als je niet vertelt waar de tabel moet komen kan ik ook niets suggereren.

Waarom 'alleen-lezen' ?

 

[Tweety1]

Ik heb de makro ondertussen aangepast en werkt nu zoals ik had bedacht. Heel erg bedankt voor het meedenken. Heb wel wat gegevens uit je macro gebruikt.