Avatar billede rasmus1970 Mester
13. juli 2023 - 12:24 Der er 7 kommentarer og
1 løsning

gå til bund af side i worddokument

Hej,
Jeg har et excelark der genererer et worddokument.
Min udfordring er når jeg vil kopiere noget ind i dokumentet vha macro, så kommer det i toppen af dokumentet, og ikke i bunden.
Hvordan får jeg det til det ?
Avatar billede acore Ekspert
13. juli 2023 - 12:39 #1
Måske du kunne dele makroen?
Avatar billede rasmus1970 Mester
13. juli 2023 - 12:52 #2
Range("m18").Copy
  oWord.Selection.PasteSpecial link:=False
  Application.CutCopyMode = False
  oWord.Selection.InsertBreak Type:=7 ' pagebreak
Avatar billede Tom K. Forsker
13. juli 2023 - 13:00 #3
Jeg ville redigere markroen, når du har åbnet dokumentet så aktiver <ctrl> <end> og efterfølgende indsæt klippet.
Mvh
Tom K.
Avatar billede rasmus1970 Mester
13. juli 2023 - 13:02 #4
Det forstod jeg ikke, kan du evt. skrive linien ?
Avatar billede Tom K. Forsker
13. juli 2023 - 13:34 #5
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.
Avatar billede rasmus1970 Mester
17. juli 2023 - 07:58 #6
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
Avatar billede Tom K. Forsker
18. juli 2023 - 14:57 #7
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.
Avatar billede rasmus1970 Mester
19. juli 2023 - 07:04 #8
Fandt en løsning
  oWord.Selection.EndKey Unit:=wdStory ' gå til bund af side
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester