Der Access VBA Befehl Set objWord = New Word.Application für Windows 10 ?

programmistsince1966 · 1. Juli 2018

Der Access VBA Befehl

Set objWord = New Word.Application

ist OK unter Windows XP, 7, 8,

nicht aber unter Windows 10 , und in Internetforen habe ich Folgendes gefunden:

"Code that was originally written for Access XP/Win XP all of a sudden stopped working. I rewrote the code basically only changing the way objects were referenced and now its working fine."

Wer könnte sagen, wie dieser Befehl für Windows 10 zu ändern wäre?

MfG

Georg

MikeFried

Hallo Georg,

das sollte mit Latebinding funktionieren (und das seit sehr langer Zeit bis zur Version 2016

)

Dim objWord As Object ' Word.Application

Set objWord = CreateObject("Word.Application")

Viele Grüße

Mike

Gijs_H

Hallo Georg,

danke für die Nachricht.

Bei Fragen zu VBA und anderen Entwicklertools sollten Sie sich an das Microsoft Developer Network Forum wenden. Die Kollegen dort helfen Ihnen gerne weiter.

Bei weitere Fragen stehen wir Ihnen gerne zu Verfügung.

MfG,

Gijs H.

Claus Busch

Hallo Silvan,

es geht auch ohne Kopieren und Ändern des Formates. Probiere es mal so:

Sub Test()

Dim myArr As Variant

Dim objWord As Object

Dim i As Long

Set objWord = CreateObject("Word.Application")

myArr = Range("A1:A20").Value

With objWord

.Visible = True

.Activate

.documents.Add

For i = LBound(myArr) To UBound(myArr)

.Selection.Text = .Selection.Text & Chr(10) & myArr(i, 1)

Next

End With

End Sub

Mit freundlichen Grüßen

Claus

Peter Doering

Hallo,

Sabrina Sanders wrote:

lngChannel = DDEInitiate("WinWord", "System")

Josef hat die Erklaerung gepostet. Der einfachste Workaround:

Sub TestDDE()

Dim lngChannel As Long

Dim objWord As Object

Set objWord = CreateObject("Word.Application")

lngChannel = DDEInitiate("WinWord", "System")

'Hier deine DDE-Aktionen

DDETerminate lngChannel

objWord.Quit

Set objWord = Nothing

End Sub
Die Prozedur laeuft bei mir fehlerfrei durch.

Gruss - Peter

Mitglied im http://www.dbdev.org

FAQ: http://www.donkarl.com

Claus Busch

Hallo Christian,

probiere es mal so:

Sub Test()

Dim objWord As Object
Set objWord = CreateObject("Word.Application")ThisWorkbook.Sheets(1).Range("A1:B2").CopyWith objWord

   .Visible = True

   .Activate

   .documents.Add

   .Selection.PasteSpecial link:=False, DataType:=wdPasteOLEObject, _

      Placement:=wdInLine, DisplayAsIcon:=False

End With

End Sub

Es kann sein, dass Selection fehlgeschlagen ist, weil Word nicht aktiv war.

Mit freundlichen Grüßen

Claus

Hi,

willkommen im Windows Forum!

Der Access VBA Befehl Set objWord = New Word.Application für Windows 10 ? - Similar Threads - Access VBA Befehl	Forum	Datum
search application windows 10 search application windows 10: Guten Morgen ich bekomme immer die Meldung MoAppHang und kann das beheben .QuelleSearch applicationZusammenfassungStopped responding and was closedDatum‎08.‎09.‎2022 01:13StatusDer Bericht wurde...	Apps	8. September 2022
search application windows 10 search application windows 10: Guten Morgen ich bekomme immer die Meldung MoAppHang und kann das beheben .QuelleSearch applicationZusammenfassungStopped responding and was closedDatum‎08.‎09.‎2022 01:13StatusDer Bericht wurde...	Games und Spiele	8. September 2022
Set Excel workbook from Access Set Excel workbook from Access: Hallo community,aus Access heraus möchte ich eine Excel Tabelle Aktivieren. Öffnen der Tabelle funktioniert problemlos, wenn ich aber die Tabelle, die im Hintergrund ist, wieder aktivieren und...	Microsoft Office	19. März 2022
VBA-Befehl - Datei öffnen VBA-Befehl - Datei öffnen: Ich habe folgendes Problem: Per VBA soll der Dateipfad mit Dateiname nach Buttonklick eine Datei öffnen. Bei existierender paralleler TeamViewer-Verbindung oder Citrix-Verbindung jedoch bricht das...	Microsoft Office	5. Mai 2021
VBA Word Befehle VBA Word Befehle: Hallo ihr Lieben, ich suche in einem VBA Makro die Möglichkeit den ersten Satz einer Worddatei als Dateiname ohne den Satz markieren zu müssen zum abspeichern des gesamten Inhaltes in einem...	Microsoft Office	13. November 2020
Access VBA commands with Windows 10 Access VBA commands with Windows 10: Dear Ladies and Gentlemen, how should I change the following Access VBA command for Windows 10 Set objWord = New Word.Application Yours sincerely Geord	Microsoft Office	1. Juli 2018
Filter, VBA Access Filter, VBA Access: Hallo Community warum erhalte ich "Falsch" als Ergebnis wenn ich folgenden Filter für ein Formular setze ? Me.[Quality_Target_Statistics].Form.Filter = [Formulation_No] = Me.Kombinationsfeld82...	Microsoft Office	3. Januar 2018

Der Access VBA Befehl Set objWord = New Word.Application für Windows 10 ?