Skapa etiketter med Microsoft Word
Att skapa etiketter i word från Lotusscript är inte så svårt.
Jag har gjort ett enkelt script nedan som har allt du behöver för att skapa 10 etiketter i word.
Sub Initialize
Dim word As Variant,labeldoc As Variant
Set word = CreateObject("word.application")
If word.documents.count=0 Then word.documents.add
Set labeldoc = word.MailingLabel.CreateNewDocument("L7413")
For i = 1 To 10
If i <> 1 Then Call word.Selection.MoveRight(12)
Label = Label + "Förnamn Efternamn" + Chr(10)
Label = Label + "Företag" + Chr(10)
Label = Label + "Gata" + Chr(10)
Label = Label + "Postnummer" + " "
Label = Label + "Postort"
Call word.Selection.TypeText(Label)
Label = ""
Next
word.visible = True
End Sub
Här är några tips på vidareutveckling av scriptet:
- Ändra typ av etikett (L7413) till den typ av etikett du har (titta på paketet eller i Word).
- Istället för "For" loopen, loopa en vy i Lotus Notes och hämta värden från varje Lotus Notesdokument.
- Låt användaren markera de dokument som man vill ha etiketter ifrån.
- För mer funktioner gör ett macro i Word och spela in vad du behöver, koden genereras i words scripteditor.
Microsoft Word måste vara installerad på den maskin där scriptet går.
Relevanta Poster på Notessidan: