gå til bund af side i worddokument

Måske du kunne dele makroen?

Range("m18").Copy
  oWord.Selection.PasteSpecial link:=False
  Application.CutCopyMode = False
  oWord.Selection.InsertBreak Type:=7 ' pagebreak

Jeg ville redigere markroen, når du har åbnet dokumentet så aktiver <ctrl> <end> og efterfølgende indsæt klippet.
Mvh
Tom K.

Det forstod jeg ikke, kan du evt. skrive linien ?

lidt afhængig af resten af markroen.
Men prøv
    wdRange.Collapse Direction:=0 ' Retning 0 for at placere markøren i slutningen af dokumentet.

Den melder stadig fejl - du kan se her hvor den er sat ind - er det formen der er forkert ?

    On Error GoTo myOpen
    navn = CurDir()
   
    Set oWord = GetObject(, "Word.application")
    GoTo further
   
myOpen:
    Set oWord = CreateObject("Word.application")
   
further:
    oWord.Documents.Open "c:\katalog.docx"
    oWord.Visible = True
   
  ' Sheets("Forsideraad").Visible = True
  ' Sheets("Forsideraad").Activate
  Sheets("Data").Visible = True
  Sheets("Data").Activate
   
  Range("m18").Copy

  oWord.Selection.PasteSpecial link:=False
  Application.CutCopyMode = False
   

  wdRange.Collapse Direction:=0 ' Retning 0 for at placere markøren i slutningen af dokumentet.
  oWord.Selection.InsertBreak Type:=7 ' pagebreak
  'Sheets("Forsideraad").Activate
  'ActiveWindow.SelectedSheets.Visible = False
     



      Sheets("Data").Select
      If Range("G3").Value > 0 Then
      nummer = Range("G3").Value
      For tal = 1 To nummer
      fanenavn = 9 + tal
      Sheets("" & fanenavn).Activate
      Range("A1:i41").Copy
      oWord.Selection.PasteSpecial link:=False
        Application.CutCopyMode = False
        'Page Break
      '  oWord.Selection.Collapse Direction:=0
        oWord.Selection.InsertBreak Type:=7 ' pagebreak
      '  oWord.Selection.Collapse Direction:=0
      Next tal
      End If

JEG kan ikke hjælpe her.
Du bliver nok nød til at sende hele Markroen og håbe på der er nogen der kan.

Fandt en løsning
  oWord.Selection.EndKey Unit:=wdStory ' gå til bund af side