Word aanpassen vanuit Macro in Excel

[JosjaWillems]

Hallo,

Ik probeer vanuit Excel e.e.a. aan te passen in een geëxporteerde tabel in Word. Het enige dat ik moet weten is hoe ik in Word naar het einde van het bestand kan gaan en vanaf daar een nieuwe pagina beginnen.
Eerst gebruikte ik "SendKeys" nadat ik word had geactiveerd, maar die manier van doen blijkt niet betrouwbaar. Nu wil ik de volgende code gebruiken:

    wdApp.Selection.EndKey Unit:=wdStory
    wdApp.Selection.InsertBreak Type:=wdPageBreak

Dit werkt echter ook niet vanuit Excel. De volledige foutmelding is:

"Fout 462 tijdens uitvoering: de externe servercomputer bestaat niet of is niet beschikbaar"

Kan iemand me helpen?

Voor de volledigheid heb ik hieronder de hele code:

Sub ExporteerZO2()

    Application.ScreenUpdating = False
    
    Dim wdApp As Object
    Dim wd As Object
  
    Application.WindowState = xlMinimized
    Sheets("ZO2").Visible = True
    Sheets("ZO2").Select
    
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
    Set wdApp = CreateObject("Word.Application")
    End If
    On Error GoTo 0
    Set wd = wdApp.Documents.Add
    
    wdApp.ScreenUpdating = False
    wdApp.Visible = True
    wdApp.Activate

    Range("A1:A40").Select
    Selection.Copy
    wdApp.Selection.Paste
    SendKeys "^{END}"
    SendKeys "^{ENTER}"
    
    Range("A43:A75").Select
    Selection.Copy
    wdApp.Selection.Paste
    SendKeys "^{END}"
    SendKeys "^{ENTER}"
    
    Sheets("ZO2").Visible = False
    Application.ScreenUpdating = True
    wdApp.ScreenUpdating = True
    Application.CutCopyMode = False
    
End Sub

 

[JosjaWillems]

Probleem heeft 'zichzelf' inmiddels opgelost. De code voor het gaan naar einde pagina en pagina toevoegen in word zelf is:

    Selection.EndKey Unit:=wdStory
    Selection.InsertBreak Type:=wdPageBreak

Dit werkte niet in Excel, ondanks dat je verwijst naar het juiste object. Door "unit:=wdStory" en "Type:=wdPageBreak" te verwijderen bereik je echter hetzelfde wanneer je de subroutine vanuit Excel uitvoert.

Fekking awesum.