Hallo,
In een Word-document moeten ongeveer 200 losse Excel-tabellen gekopieert worden en dit op vaste lokaties. Nu heb ik gelezen dat je de lokatie in Word kunt vastleggen middels bladwijzers. Het Word-document wordt ieder jaar opnieuw gegenereerd en deze bladwijzers moeten dus iedere keer opnieuw ingesteld worden.
Is dit te automatiseren? Door eerst te zoeken op het woord "kwaliteit" en dan de bladwijzer "tabel01" in te voegen.
Vervolgens weer zoeken naar "kwaliteit" en dan bladwijzer "tabel02" in te voegen.
Middels onderstaande code krijg ik een tabel in het Word-document gekopieerd.
Sub XLRangeToDoc()
'copy range to table in word doc
'
Dim objWordApp As Object
Dim objWordDoc As Object
Dim rngData As Range
Workbooks.Open Filename:= "C:\tabel01.xls"
Set rngData = Range("A1:M17")
' create instance of word and open doc
Set objWordApp = CreateObject("Word.application")
objWordApp.Visible = True
'Set objWordDoc = objWordApp.Documents.Add
Set objWordDoc = objWordApp.Documents.Open("C:\meetnet.doc")
' goto bookmark
'plaats een bladwijzer als je steeds naar dezelfde plaats
'wil kopieëren om de range te plakken
objWordDoc.Bookmarks("tabel01").Range.Select
' Copy xl range
rngData.Copy
' Paste the range
objWordApp.Selection.Paste
Application.CutCopyMode = False
Windows("tabel01.xls").Close
'objWordDoc.Save
'objWordDoc.Close
'objWordApp.Quit
Set objWordDoc = Nothing
Set objWordApp = Nothing
End Sub
Nu is de gekopieerde tabel te breed en moet ik deze in Word handmatig aanpassen (AutoAanpassen aan venster). Is dit "AutoAanpassen aan venster" nog te automatiseren?
In een Word-document moeten ongeveer 200 losse Excel-tabellen gekopieert worden en dit op vaste lokaties. Nu heb ik gelezen dat je de lokatie in Word kunt vastleggen middels bladwijzers. Het Word-document wordt ieder jaar opnieuw gegenereerd en deze bladwijzers moeten dus iedere keer opnieuw ingesteld worden.
Is dit te automatiseren? Door eerst te zoeken op het woord "kwaliteit" en dan de bladwijzer "tabel01" in te voegen.
Vervolgens weer zoeken naar "kwaliteit" en dan bladwijzer "tabel02" in te voegen.
Middels onderstaande code krijg ik een tabel in het Word-document gekopieerd.
Sub XLRangeToDoc()
'copy range to table in word doc
'
Dim objWordApp As Object
Dim objWordDoc As Object
Dim rngData As Range
Workbooks.Open Filename:= "C:\tabel01.xls"
Set rngData = Range("A1:M17")
' create instance of word and open doc
Set objWordApp = CreateObject("Word.application")
objWordApp.Visible = True
'Set objWordDoc = objWordApp.Documents.Add
Set objWordDoc = objWordApp.Documents.Open("C:\meetnet.doc")
' goto bookmark
'plaats een bladwijzer als je steeds naar dezelfde plaats
'wil kopieëren om de range te plakken
objWordDoc.Bookmarks("tabel01").Range.Select
' Copy xl range
rngData.Copy
' Paste the range
objWordApp.Selection.Paste
Application.CutCopyMode = False
Windows("tabel01.xls").Close
'objWordDoc.Save
'objWordDoc.Close
'objWordApp.Quit
Set objWordDoc = Nothing
Set objWordApp = Nothing
End Sub
Nu is de gekopieerde tabel te breed en moet ik deze in Word handmatig aanpassen (AutoAanpassen aan venster). Is dit "AutoAanpassen aan venster" nog te automatiseren?
