Wie kann mittels VBA in WinWord die Einstellung 'Bilder in Datei nicht komprimieren' gesetzt werden?

Um in Microsoft Word mittels VBA die Einstellung "Bilder in Datei nicht komprimieren" zu setzen, kann folgender VBA-Code verwendet werden:

```vba
Sub SetDoNotCompressImages()
Dim appWord As Object
Set appWord = CreateObject("Word.Application")

' Zugriff auf die erweiterten Optionen
appWord.Options.DoNotCompressPictures = True

' Optional: Word-Anwendung sichtbar machen
appWord.Visible = True

' Aufräumen
Set appWord = Nothing
End Sub
```

Dieser Code erstellt ein Word-Anwendungsobjekt, setzt die Option "Bilder in Datei nicht komprimieren" auf `True` und macht die Word-Anwendung optional sichtbar.

Weitere Informationen zu den Word-Optionen und deren Verwaltung findest du in der [Microsoft-Dokumentation](https://docs.microsoft.com/de-de/office/vba/api/word.options).