Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text aus EXCEL in Word als QR Codedrucken

Forumthread: Text aus EXCEL in Word als QR Codedrucken

Text aus EXCEL in Word als QR Codedrucken
17.10.2019 08:30:33
Rainer
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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Text aus EXCEL in Word als QR Codedrucken
17.10.2019 11:35:54
UweD
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
Anzeige
AW: Text aus EXCEL in Word als QR Codedrucken
18.10.2019 07:37:08
Rainer
Hallo!
Vielen Dank für die Antwort,, das hat mir weitergeholfen. GANZ HERZLICHEN DANK
AW: VBA Xl - Wd -Xl
17.10.2019 16:08:33
Fennek
Hallo,
teste diesen Code

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
Falls Du Verbesserungen findest, bitte berichte.
mfg
Anzeige
AW: VBA Xl - Wd -Xl
18.10.2019 07:36:12
Rainer
Hallo!
Wow, das ist ja noch besser, hiermit kann ich den Code gleich in XLS drucken....VIIIIIELEN Dank
AW: VBA Xl - Wd -Xl
18.10.2019 07:41:49
Rainer
Hallo!
Wow, das ist ja noch besser, hiermit kann ich den Code gleich in XLS drucken....VIIIIIELEN Dank
Wie kann ich hier denn die Grösse des Bildes / Barcodes verändern?
AW: letzter Parameter
18.10.2019 08:59:19
Fennek
in
QR \q 3 \s 40
gibt die "40" die Größe an. "400 sind dann ca 2-3 cm.
Anzeige
AW: letzter Parameter
18.10.2019 09:08:20
Rainer
Super, danke dafür. Wie kann ich denn auch die Breite des Bildes (nicht des Barcodes) anpassen? Aktuell ist das Bild rechteckig und sehr breit, links steht der QR Code in seinem Quadrat... Ich würde gerne den grossen leeren Bereich rechts vermeiden wollen
AW: letzter Parameter
21.10.2019 16:13:56
Rainer
Hallo nochmal! Das klappt alles super und ich bekomme meinen Barcode. Nun bleibt mir nur noch ein Problem: Ich muss in meinen String an Anfang einen STX Steuercode und an Ende einen ETX Steuercode absetzen. Ich habe das schon mit unterschiedlichen Ansätzen probiert, bin aber gescheitert, z.B mit diesem code:
itext = "displaybarcode " & Chr(34) & Chr(2) & Cells(5, 1).Value & Chr(3) & Chr(34) & " QR \q 3 \s 80"
Hast Du dafür auch eine Idee?
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

QR Codes aus Excel in Word drucken


Schritt-für-Schritt-Anleitung

Um einen QR Code aus Excel in Word zu drucken, folge diesen Schritten:

  1. Öffne Excel und erstelle deine Daten:

    • Trage die Strings, die du in QR Codes umwandeln möchtest, in die Zellen ein.
  2. VBA-Editor öffnen:

    • Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.
  3. Neues Modul erstellen:

    • Klicke auf "Einfügen" > "Modul", um ein neues Modul zu erstellen.
  4. VBA-Code einfügen:

    • Füge den folgenden VBA-Code in das Modul ein:
    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
           End With
       Next i
       Doc.Close 0
       Wd.Quit
    End Sub
  5. Makro ausführen:

    • Gehe zurück zu Excel, drücke ALT + F8, wähle das Makro QR und klicke auf "Ausführen".
  6. Word-Datei überprüfen:

    • Dein QR Code sollte nun in einer neuen Word-Datei erscheinen.

Häufige Fehler und Lösungen

  • Fehler: Word startet nicht.

    • Lösung: Stelle sicher, dass Word korrekt installiert ist und keine Sicherheitsrichtlinien das Öffnen von Word über VBA blockieren.
  • Fehler: QR Code wird nicht korrekt angezeigt.

    • Lösung: Überprüfe die Syntax im VBA-Code. Achte darauf, dass die displaybarcode korrekt eingegeben ist.
  • Problem: Größe des QR Codes anpassen.

    • Lösung: Im Code kannst du den Parameter \s ändern. Beispielsweise \s 80 für eine größere Darstellung.

Alternative Methoden

Eine andere Möglichkeit, QR Codes zu generieren, ist die Verwendung von Online-Diensten, die QR Codes erstellen und sie dann in Word einfügen. Einige dieser Dienste bieten auch die Möglichkeit, Links in QR Codes umzuwandeln. Diese Methode erfordert jedoch, dass du die QR Codes manuell herunterlädst und in dein Word-Dokument einfügst.


Praktische Beispiele

Hier sind einige praktische Anwendungen, wie du QR Codes aus Excel erstellen und in Word drucken kannst:

  • Produktinformationen: Generiere QR Codes, die auf Produktseiten oder Anleitungen verlinken.
  • Event-Tickets: Erstelle QR Codes, die Ticketinformationen speichern.
  • Marketingmaterialien: Nutze QR Codes auf Flyern, die zu Webseiten führen.

Tipps für Profis

  • Nutze Chr(2) und Chr(3) für Steuercodes wie STX und ETX in deinen QR Codes.
  • Experimentiere mit der Größe und dem Layout des QR Codes in Word, um Platz zu sparen und die Lesbarkeit zu verbessern.
  • Speichere deine VBA-Skripte in einer Vorlage, um sie für zukünftige Projekte einfach wiederverwenden zu können.

FAQ: Häufige Fragen

1. Wie kann ich den QR Code in Word erstellen?
Du kannst den QR Code in Word erstellen, indem du die displaybarcode-Funktion in Kombination mit VBA nutzt, wie im obigen Beispiel gezeigt.

2. Wie kann ich einen Link in einen QR Code umwandeln?
Einfach den Link in die Zelle in Excel eingeben und den VBA-Code entsprechend anpassen, um diesen Link zu verwenden.

3. Was ist die beste Excel-Version, um diese Methode zu nutzen?
Diese Anleitung funktioniert am besten mit Excel 2016 oder höher, da diese Versionen die erforderlichen Funktionen unterstützen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige