Å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.
