HERBERS Excel-Forum - die Beispiele

Thema: Werte in Word-Dokument einlesen und dieses Drucken

Home

Gruppe

Extern

Problem

Der Bereich A1:C1 soll in ein Word-Dokument eingelesen und von dort gedruckt werden. Die Aktion soll im Hintergrund ablaufen.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1

Sub PrintWord()
   Dim wdApp As Object
   Dim wdDoc As Object
   Dim sFile As String
   sFile = Range("F1").Value
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Datei wurde nicht gefunden!"
   Else
      Set wdApp = CreateObject("Word.Application")
      wdApp.Visible = False
      Set wdDoc = wdApp.Documents.Open(sFile)
      Range("A1:C1").Copy
      wdDoc.Range.Paste
      wdDoc.PrintOut
      Application.Wait Now + TimeSerial(0, 0, 5)
      wdDoc.Close savechanges:=False
      wdApp.Quit
      Set wdDoc = Nothing
      Set wdApp = Nothing
      Application.CutCopyMode = False
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und Word

Verknüpfung Daten-Userform in Word-Dok aus excel Worddatei nach Wert durchsuchen
geöffnete Worddatei und Word aus Excel beenden ContentControl (WORD) in Excel Zelle schreiben
Excel to Word Kapitel VBA Problem bei Daten von Excel nach Word
Übernahme in Word Format wird nicht übernommen Excelpfad in Word-Makro in Excel-Tab auslesen
aus excel heraus Makro von Word ausführen aktierten Text in geöffnete Worddatei
Probleme beim Kopieren Word Tabelle nach Excel Hyperlink zu Wordtabelle mit Textmarke
Colorindex Excel-Word RGB-Werte Wordart als Kontrollkästchen
Dateiname externer Datei ändern Speichern unter Dialog in Word aufrufen inkl. Pfad
Tabellenblatt aus externer Exceldatei kopieren ConboBox mit externe Daten füllen
gutes WORD-Forum, Link? Probleme bei Serienbriefverknüpfung Word - Excel
Word-Dateien durchsuchen Daten aus Word auslesen
Wert in externer Datei suchen Werte von Excel nach Word übergeben
'Word Datei aus Excel öffnen - maximieren Aufruf externer Programme
Word-Dokument in Excel öffnen Word-Makro für Spaltenbreite
Prüfen, ob bestimmte Word-Datei geöffnet ist! Hyperlink von Excel zu Word
Externe Bezüge auslesen mit VBA Externe Verküpfung anpassen
Daten aus Word Formularfeld in Excel Variablen von Word nach Excel übergeben
Tipp für alle: Word FAQ von Rene Probst Textbox nach Word - Umbruch"kasten"
Datenübernahme in Word Von Excel aus Liste aller geöffneten Word-Dokument
WordDokument mit Excel-Daten füllen und drucken ?! Daten mit Userform nach WORD, wie?
Password-Fehler Pivot mit Externer DB am Limit?
In Word Datei an bestimmte Stelle springen! Exceldatei mit Fußnote in Word einfügen
Word Dokument erstellen Externe Verknüpfungen
Blätter in Externer Arbeitsmappe einblenden VBA: XL-Macro für Word ändern
On Error bei Öffnen von Word-Dokument Excel Hyperlinks auf Word-Bookmarks