Autor Thema: Ausdruck von NotesDokumenten Word  (Gelesen 1297 mal)

tirreg

  • Gast
Ausdruck von NotesDokumenten Word
« am: 17.06.03 - 13:18:10 »
Hallo ,

ich möchte notesdokumente über winword drucken und denen dabei eine kopf (hier sollte auch die aktuelle seitennummer stehen) und fußzeile pro blatt mitgeben, weiß jemand wie das geht bzw. wo ich was darüber finde???  :-\

cheers Tirreg

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Ausdruck von NotesDokumenten Word
« Antwort #1 am: 17.06.03 - 14:23:30 »
... schau mal im LDD-Forum und suche dort nach "Word" - es gibt einiges an Script-Routinen - wenn es nicht eilt, dann kann ich dir später was ins Forum stellen...

ata
Grüßle Toni :)

tirreg

  • Gast
Re:Ausdruck von NotesDokumenten Word
« Antwort #2 am: 18.06.03 - 08:31:41 »
hi ata,

ja so nen paar samples wären nicht schlecht :) wenn du mal zeit hast, wäre super...

cheers tirreg

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Ausdruck von NotesDokumenten Word
« Antwort #3 am: 19.06.03 - 22:31:10 »
... Ausdruck per Word über einen Button oder Aktion. Du benötigst für den Ausdruck eine Word-Vorlage. In dieser Vorlage hast du bereits die Seitennummerierung entsprechend administriert...

... der Text aus Notes wird in Word an bereits hinterlegten "Lesezeichen" abgelegt...

... ich habe den Code aus dem LDD...

Code
'Defining variables
Dim myApp As Variant
Dim tmp as string

'Starting ms word as a ole object
Set myApp = CreateObject("Word.Application")

'Hiding word from the user
myApp.Visible = False

'Opening the template as a new doc, change tmp$ to the needed template path
myApp.Documents.Add (tmp$)

'Selecting what bookmark to write to
myApp.ActiveDocument.Bookmarks("WhoTo").Select 

'Define what you need to write in tmp$
'Then write it to the bookmark
myApp.Selection.TypeText(tmp$)

'Setting word to print in the foreground, i do this to prevent the rest of the 
code to execute before word is finished
myApp.Options.PrintBackground = False

'Starting printing
myApp.ActiveDocument.PrintOut

'Closing the word document without saving changes
myApp.Documents.Close(wdDoNotSaveChanges)

'Closing word
myApp.Application.Quit

'Releasing myapp
Set myApp = Nothing

... wenn du allerdings alles zu Fuß programmieren möchtest, dann empfehle ich dir die Schritte über ein Makro in Word aufzuzeichnen und dann den VBA-Code entsprechend ausprobieren und verwenden..

ata

Grüßle Toni :)

Offline wflamme

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 690
  • Geschlecht: Männlich
  • Irgendwie geht das schon...
    • wflamme
Grüße,
Wolfgang

"I love deadlines. I love the whooshing sound they make as they pass by..."
DOUGLAS ADAMS

wflamme@mainz-online.de
http://www.sns1.de/partner/flamme/wflamme.nsf

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz