Office: (Office 2010) Access 2010

germantobi · 18. Dezember 2013

Also ich geh jetzt die Sache so an dass ich die Vorlagen in Word Dateien speichere.
Jetzt häng ich aber leider wieder und zwar meldet er: "Anwendung kann nicht aktiviert werden."

Code:

Dim TempWord As New Word.Application
Dim DateiTemp() As String
Dim x As Integer

DateiTemp = Split(Me.Text_Feld, vbCrLf)

With TempWord
For x = 1 To intRows

.Documents.Add (Application.CurrentProject.Path & "\Vorlagen\" & DateiTemp(x - 1))

'Word öffnen--------------------------------------
.Visible = False
.Activate 'Hier die Fehlermeldung
.ActiveDocument.ShowSpellingErrors = False

'Auslesen-----------------------------------------
.ActiveDocument.Range.Select
.ActiveDocument.Range.Copy

'Wordbausteine-Einfügen-----------------------------------------
If appWord.ActiveDocument.Bookmarks.Exists("Text") = True Then
appWord.ActiveDocument.Bookmarks("Text").Select
appWord.Selection.Paste
End If

'-------------------------------------------------
.Documents.Close savechanges = False
Next x

End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich vermute es liegt daran dass ich weiter mein Ausgabedokument noch aktiviert habe und ein zweites nicht geht.
Weiß jemand wie ich das lösen kann?

daolix · 18. Dezember 2013

Hallo

ich glaube die Zeilen
.Visible = False
.Activate
beissen sich

Anne Berg · 18. Dezember 2013

Hi,

wenn du das Word-Fenster aktivieren willst, macht es wohl keinen Sinn, die Applikation vorher auf "unsichtbar" einzustellen - oder?!

germantobi · 18. Dezember 2013

Also alle zusammen,
ich habs soweit hinbekommen *Smilie
Jetzt werde ich mein Programm noch etwas verfeinern,
aber funktionieren tuts schonmal.

Den Code will ich, für zukünftig Suchende, natürlich nicht vorenthalten:

Code:

Dim appWord As New Word.Application
Dim Pfad As String
...
'Restlicher Code
...
'-------------------------------------------------
'Word---------------------------------------------

'Zeilen in Text-----------------------------------
Dim intPos As Integer
Dim intRows As Integer 'Zeilenzahl
intPos = 1
intRows = 0

'CR LF suchen
If InStr(1, Me.Text_Feld, vbCrLf) > 0 Then
'solange die letzte Zeile nicht gefunden wurde
'weiter suchen
While InStr(intPos, Me.Text_Feld, vbCrLf) > 0
intPos = InStr(intPos, Me.Text_Feld, vbCrLf) + 1
intRows = intRows + 1

'letztes CR LF gefunden, aber es folgt noch Text
'in der nächsten Zeile (ohne CR LF am Ende)
If InStr(intPos, Me.Text_Feld, vbCrLf) = 0 Then
If intPos < Len(Me.Text_Feld) Then intRows = intRows + 1
End If
Wend
'kein CR LF gefunden, aber Text ist ""
ElseIf Len(Me.Text_Feld) > 0 Then
intRows = 1
End If

'Ausgabe Wordbausteine-----------------------------

'Variabeln-----------------------------------------
Dim TempWord As New Word.Application
Dim DateiTemp() As String
Dim x As Integer
DateiTemp = Split(Me.Text_Feld, vbCrLf)

With TempWord
'-------------------------------------------------
For x = intRows To 1 Step -1
If DateiTemp(x - 1) "" Then

'Datei--------------------------------------------
If Dir(Pfad & "\Positionen\" & DateiTemp(x - 1)) "" Then
.Documents.Add (Pfad & "\Positionen\" & DateiTemp(x - 1))

'Word öffnen--------------------------------------
.Visible = True
.Activate
.ActiveDocument.ShowSpellingErrors = False

'Auslesen-----------------------------------------
.ActiveDocument.Range.Select
.ActiveDocument.Range.Copy

'Wordbausteine-Einfügen---------------------------
If appWord.ActiveDocument.Bookmarks.Exists("Text") = True Then
appWord.ActiveDocument.Bookmarks("Text").Select
appWord.Selection.PasteAndFormat (wdFormatOriginalFormatting)
End If

'-------------------------------------------------
.Documents.Close savechanges = False
Else
MsgBox "Datei """ & DateiTemp(x - 1) & """ nicht gefunden."
End If
End If
Next x
.Quit savechanges = False
End With
'-------------------------------------------------
...
'Rest Code
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Access 2010

Access 2010

Access 2010

Access 2010

Access 2010 - Similar Threads - Access 2010

Abfrage mit den jüngsten Einträgen erstellen

Access to SQL Server

Acces FrontEnd und MS SQL-Server als BackEnd

Neuerungen in Microsoft Access 2010

Welches Dateiformat sollte ich in Access 2010 verwenden?

Einführung in die Sicherheit von Access 2010

Access 2010 Web-Datenbanken – Roadmap