Text aus EXCEL in Word als QR Codedrucken

Hallo!
Ich haben folgendes Problem und hoffe ihr könnt mir helfen, ich meiner bisherigen Suche konnte ich nicht finden, was mein Problem löst....
Ich möchte in EXCEL einen String generieren, den ich in Word 2016 als QR code drucken will. In Word habe ich einen Weg gefunden, den Ausdruck mit Bordmitteln zu erreichen. Mein Problem besteht darin, den zusammengesetzten Text nach Word zu exportieren und dann die aktuelle Word Datei von Xls aus zu drucken.
Ablauf wäre:
- ich schleife über Zeilen, die die auszudruckenden Strings enthalten (dazu benötige ich keine Hilfe)
- öffne Word von XLS aus, neue Datei anlagen (hier benötige ich Hilfe)
- füge den generierten Text aus XLS in Word ein und drucke den Text (hier benötige ich Hilfe)
- evtl muss ich den Steuercode ALT+F9 nach Word übergeben (hier benötige ich Hilfe)
- schliesse Word von XLS aus (hier benötige ich Hilfe)
Wäre super wenn ihr mir hier helfen könntet

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Ich weiss natürlich nicht, wie das zusammenbauen mit Word- Bordmitteln geht.
Aber du könntest in Word eine Textmarke mit dem Makro tauschen, die du dann dort weiterverarbeitest.
Hier mal ein Muster:


Sub Testen()
'Wordexport
Dim objWDApp As Object, objDocx As Object, Dlg As FileDialog
Dim WPfad As String, WDatei As String, WNeuNam As String
Dim BMark As String, QRCode As String
' hier steht noch einiges an Variablenzuweisungen
WPfad = "X:\Temp\"
WDatei = "Dok1.docx" 'Dein Dokument
BMark = "QRCode" 'so heißt die Textmarke im Dokument
'Das wäre der zusammengesetzte Text
QRCode = "Test " & Range("A1")
'*** Word-Anwendung sichtbar starten
Set objWDApp = CreateObject("Word.Application")
objWDApp.Visible = True
'*** Datei öffnen
Set objDocx = objWDApp.Documents.Open(WPfad & WDatei)
With objDocx
'*** prüfen, ob Textmarken existieren, dann im Worddokument ersetzen
If .Bookmarks.Exists(BMark) Then _
.Bookmarks(BMark).Range.Text = QRCode
'*** Worddatei speichern
.Save
End With
'*** Word schließen
objWDApp.Quit 'bei Bedarf
End Sub

LG UweD

Sub QR() Dim Wd As Object: Set Wd = CreateObject("Word.Application") Dim Doc As Object Set Doc = Wd.Documents.Add(Template:="Normal", NewTemplate:=False, DocumentType:=0) For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Rows(i).RowHeight = 20 iText = "displaybarcode " & Chr(34) & Cells(i, 1) & Chr(34) & " QR \q 3 \s 40" With Doc .Fields.Add(.Paragraphs(1).Range, -1, iText).Update .Windows(1).View.ShowFieldCodes = Not .Windows(1).View.ShowFieldCodes .Paragraphs(1).Range.CopyAsPicture End With Cells(i, 2).PasteSpecial 'Format:="Bild (Erweiterte Metadatei)", Link:=False, DisplayAsIcon: _ =False Next i Doc.Close 0 Set Wd = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Text aus EXCEL in Word als QR Codedrucken

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread