NOTESSIDAN

Allt om Lotus Notes & Domino




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:



Publicerad 2006-10-11 | Kommentarer: 0 | Läsningar: 2252
Kommentarer

No documents found



Sök på Notessidan
Thomas Adrian
ThomasCertifierad utvecklare och administratör inom Notes & Domino

Kontakta mig







Senaste Sökningarna på Notessidan
Sön - sharepoint (R:1)
Sön - räkna and antal and besökare (R:0)
Sön - browser (R:17)
Sön - stoppar and mail (R:1)
Sön - korrupt (R:3)
Sön - böcker (R:0)
Sön - kalendern (R:12)
Sön - feature (R:15)
Sön - print and mime (R:2)
Sön - länka (R:0)
Sön - databasen (R:94)
Sön - access (R:47)
Sön - outlook (R:15)
Sön - webanvändare (R:0)
Sön - google and maps (R:6)
Sön - juffe (R:2)
Sön - uidoc.print (R:1)
Sön - java and lotusscript (R:26)
Sön - besök (R:0)




Databasstatistik Blogg
Uppdateras var 15:e Minut

Antal Poster:562
Antal Kommentarer: 1380
Alla sidvisningar idag:
Unika Besökare idag:
Databasstorlek: 180,5Mb
Fixup: 2019-07-17 00:31:15
FT:2019-07-17 19:11:24
DB Procent använd: 99,8
Antal Agenter: 42
Antal Formulär: 65
Antal Vyer: 60
Antal Dokument: 7931
Antal Image Resources: 108
Antal Subformulär: 18
Antal Scriptbibliotek: 11
Totalt Antal Designelement: 576
Antal Attachments: 159
Antal Konflikter: 0
Server version 1: 405
Server version 2: Release 9.0.1FP9|August 14, 2017
Server Plattform: Windows/64
Ändrad: 2019-07-17 20:44:26
Server Tidszon: Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=131$ZN=W. Europe
Region:
Kommentarsspam Idag: 10
Kommentarsspam Totalt: 17913


BlogRankers.com

Top Sites at iWEBTOOL.com

Fight Spam! Click Here!

Bloggtoppen.se

Listed on BlogShares

Increase website traffic

Top Internet Blogs

Site Checker