Avatar billede bluestrike Nybegynder
04. februar 2004 - 14:30

Åbne et wordark fra Excel uden at arket der åbnes er skabelonen.

Hej.
Jeg har lavet følgende kode til at åbne et brev i Word fra Excel.

Sub Open_word()
        Dim wdApp As Word.Application
        Dim myDoc As Word.Document
        Dim mywdRange As Word.Range
        Set wdApp = New Word.Application
        With wdApp
            .Visible = True
            .WindowState = wdWindowStateMaximize
        End With
        ShettsName = ActiveSheet.Name
If ShettsName = "Mandskabsoplysninger" Then
        If WordformOplysninger.OptionButton1 = True Then
            Set myDoc = wdApp.Documents.Open("G:\skabeloner\Produktion\Vedr.dot")
        Else
            Set myDoc = wdApp.Documents.Open("G:\Produktion\skabeloner administration\Standard breve\snerydning.dot")
        End If
        Set mywdRange = myDoc.Words(1)
        With mywdRange
          .Text = Cells(ActiveCell.Row, 3) & Chr(13) & Chr(10) & Cells(ActiveCell.Row, 7) & Chr(13) & Chr(10) & Cells(ActiveCell.Row, 9) & Chr(13) & Chr(10) & ""
        End With
End If
End Sub

Som det ses åbnes en .dot som er en skabelon, hvad skal jeg gøre hvis jeg skal have en kopi åbnet og ikke skabelonen. Derudover har jeg det problem, at det der åbnes er skrivebeskyttet.
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
Kurser inden for grundlæggende programmering

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