Thema Datum  Von Nutzer Rating
Antwort
07.12.2017 12:14:46 Florian
NotSolved
10.12.2017 02:54:27 xlKing
NotSolved
11.12.2017 13:33:35 Gast48158
NotSolved
Blau Makro Drucken eines Links
 11.12.2017 23:33:24 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
11.12.2017 23:33:24		 Views:
568		 Rating:
     
Antwort:
  Ja
Thema:
Makro Drucken eines Links

Dann eben so:

Sub Drucken_Word()

Dim wd As Object, wasClosed As Boolean, lnk As Hyperlink

Set Bereich = Range("B16:B31")

'Word-Objekt erstellen
On Error Resume Next
Set wd = GetObject(, "Word.Application") 'Word-Zugriff oder
If wd Is Nothing Then 'falls Word noch nicht geöffnet dann
  Set wd = CreateObject("Word.Application") 'Word öffnen
  wd.Visible = True 'Word sichtbar schalten
  wasClosed = True 'Flag, dass Word beim Start noch zu war.
End If
On Error GoTo 0

'Links durchlaufen
For Each c In Bereich.Cells 'z.B. *.doc, *.docx, *.docm, *.dot, *.dotx
  If InStr(c.Formula, "HYPERLINK(") > 0 And c.Value Like "*.do*" Then
    wd.Documents.Add Template:=c.Value 'Dokument auf Vorlagebasis öffnen
    wd.ActiveDocument.PrintOut 'Dokument drucken
    wd.ActiveDocument.Close False 'Dokument schließen ohne Speichern
  End If
Next c
If wasClosed Then wd.Quit 'Word schließen, wenn bei Start geschlossen war.

End Sub

Alternativ kannst du statt wd.Documents.Add Template:=c.Value auch ActiveWorkbook.FollowHyperlink c.Value oder wd.Documents.Open Filename:=c.Value zum Öffnen es Dokuments verwenden. In beiden Fällen wird dann aber die eigentliche Vorlage geöffnet und nicht ein neues Dokument, das auf dieser basiert.

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.12.2017 12:14:46 Florian
NotSolved
10.12.2017 02:54:27 xlKing
NotSolved
11.12.2017 13:33:35 Gast48158
NotSolved
Blau Makro Drucken eines Links
 11.12.2017 23:33:24 xlKing
NotSolved