Excel to Word - Schutz
30.07.2015 14:09:27
Robin
habe mich heute hingesetzt und wollte von Excel nach Word importieren um einen Teil meiner Arbeit fix abzuwickeln, funktioniert auch zu 99 %, nur dieser Schutz will einfach nicht wieder rein.
Hier der Code:
Sub Test()
Dim a1, a2, a3, a4, a5, a6 As String
Dim strFileName, Pfad, Datei As String
Dim objWDApp As Object
a1 = Range("B1").Value
strFileName = ThisWorkbook.Path & "\" & a1& ".dotx"
If Dir(strFileName) "" Then
With Sheet1
a2 = .Range("B2")
a3 = .Range("B3")
a4 = .Range("B4")
a5 = .Range("B5")
a6 = .Range("B7")
End With
If ActiveSheet.Range("B6") = "xxx" Then
VerGF = "zzz: " & a5
Else
VerGF = "yyy: " & a5
End If
If objWDApp Is Nothing Then Set objWDApp = CreateObject("Word.Application")
With objWDApp
.Visible = True
Set objWDDoc = .Documents.Open(strFileName)
.ActiveDocument.Unprotect Password:="test"
.ActiveDocument.Bookmarks("a2").Range = aa2
.ActiveDocument.Bookmarks("a2").Range = aa2
.ActiveDocument.Bookmarks("a2").Range = aa2
.ActiveDocument.Bookmarks("a3").Range = aa3
.ActiveDocument.Bookmarks("a3").Range = aa3
.ActiveDocument.Bookmarks("a3").Range = aa3
.ActiveDocument.Bookmarks("a4").Range = aa4
.ActiveDocument.Bookmarks("a4").Range = aa4
.ActiveDocument.Bookmarks("a4").Range = aa4
.ActiveDocument.Bookmarks("a5").Range = aa5
.ActiveDocument.Bookmarks("a5").Range = aa5
.ActiveDocument.Bookmarks("a6").Range = aa6
.ActiveDocument.Protect Password:="test", Type:=wdAllowOnlyFormFields
Pfad = "C:\Users\Robin\Desktop\"
Datei = a2 & ".dotx"
.ActiveDocument.SaveAs Pfad & Datei
.ActiveDocument.Close
objWDApp.Quit
End With
End If
End Sub
Es gibt keine Fehlermeldung, nichts, er fährt drüber und ignoriert es.
Beim Schutz aufheben (paar Zeilen darüber), hat er kein Problem, führt das aus und läuft wie geschmiert.
Ich hoffe jemand weis wo der (hoffentlich) "kleine" Fehler sich verbirgt.
Greetings,
Robin H.