Office: Word mit VBA

Hallo zusammen,

habe hier ein kleines Problem wo ich nicht weiter komme, ich möchte gern eine Word Vorlage machen die wie Folgt aussehen soll. Word-Vorlagen-Dokument öffen
wenn möglich sollte sich eine Userform direkt beim Start öffnen wo man mit dem Handscanner eine 36 Stellige Nummer einscannen muss, von der Nummer bräuchte ich aber nur einbestimmter Teil der immer an der selben stelle sitzt und zwar von 11-21 diese 10 stellige Zahl soll er dann in der Word-Datei eintragen mit einem A davor ( bsp. A1234567890 ), ob das ganze geht und wie würde ich gerne Wissen hier mal ein Bild wie ich es mir Vorstelle.

mfg

 

Hallo Corsa,

wie dein Handscanner die Ausgangszahl in die Userform praktiziert, wirst du vermutlich selber wissen.

Wie man beim Start eines Dokuments eine Userform öffnet:

Code:

'Wenn es sich um ein normales Dokument mit Makros handelt (*.docm):
Sub Document_Open()
Userform1.Show
End Sub

'Wenn es sich um eine Dokumentvorlage mit Makros handelt (*.dotm)
Sub Document_New()
Userform1.Show
End Sub

Wie du aus der Zahl im Textfeld deiner Userform die Stellen 11 bis 21 extrahierst und an einer Textmarke in deinem Dokument wieder einfügst:

Code:

ausgangsZahl = Userform1.Textbox1.Text
zielZahl = "A" & Mid(ausgangsZahl, 11, 10)
ActiveDocument.Bookmarks("Einfuegestelle").Range = zielZahl

Wie man du das speicherst:

Code:

ordner = "C:\1temp\"
dateiname = zielzahl & "_" & Format(Date, "yyyyMMdd")
ActiveDocument.SaveAs2 FileName:=ordner & dateiname, fileformat:=wdFormatDocument

Bist du sicher, dass du das im altertümlichen Format *.doc speichern willst? Aktuell wäre das docx-Format (wdFormatDocumentDefault)