home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December (Special) / PCWorld_2002-12_Special_cd.bin / Special_komplet / special_komplet.exe / wrdexp.mak < prev    next >
Text File  |  2002-01-03  |  376b  |  11 lines
  1. Dim Adresse As String
  2. Dim WordObj As Word.Application
  3. Set WordObj = GetObject(, "Word.Application")
  4. LF = Chr$(13) & Chr$(10)
  5. If Not IsNull(Me!Firma) Then
  6.     Adresse = Me!Firma & LF & Me!Kontaktnφ_osoba & LF & Me!Adresa
  7.     Adresse = Adresse & LF & Me!PS╚ & " " & Me!M∞sto & LF & Me!Telefon
  8. End If
  9. WordObj.Selection.TypeText Text:=Adresse & LF
  10. Set WordObj = Nothing
  11.