Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Ansicht exportieren nach MSWord

<< < (2/3) > >>

Silent_Bob:
kein problem.

wie du mit dem agenten umgehst, weißt du?

am besten in eine schaltfläche einbauen.

ansonsten melde dich nochmal bei mir. das kriegen wir hin (ich hab die leute hier damals auch ziemlich genervt, weil ich mit dem agenten nicht direkt klargekommen bin. aber wenn man einmal dahinter gestiegen ist, ist das ziemlich einfach)

mahir:
Also so direkt habe ich das noch nicht gelöst.

Der Script auf einer der Seiten, die du geschickt hattest habe ich eingebaut. Bringt aber eine Meldung:

"Type mismatch"

auf Zeile:
Call WordObj.ActiveWindow.Selection.TypeText(tempfield+Chr$(13))

Das ist der komplette Script:

Sub Initialize
   Dim ntNotes As NotesDocument
   Dim path As Variant
REM You should have document in the dir temp of the C drive named wordexp.doc or
REM whatever name you wish to call it.
   path="F:\Testpanel\wordexp.dot"
   Dim dbNotes As NotesDatabase
   Dim ssNotes As New NotesSession
   Set dbNotes = ssNotes.CurrentDatabase
REM make sure you change "viewName" by REM the actual name of the view you
REM wish to import from
   Set vwNotes = dbNotes.Getview ("Alphabetisch")
   
   Set ntNotes = vwNotes.GetFirstDocument
   
   Do While Not (ntNotes Is Nothing)
REM set field values
REM Get the Word object from a file.
      Set wordObj = GetObject(path)
REM Get value of field from Notes fld
      tempfield=ntNotes.fldCaratulaContents
REM Set Field value and a add a
REM carriage return at the end
      Call WordObj.ActiveWindow.Selection.TypeText(tempfield+Chr$(13))
REM Save document
      wordObj.Save
      wordObj.Application.Quit
REM Clean from memory
      Set wordObj = Nothing
      
      Set ntNotes = vwNotes.GetNextDocument(ntNotes)
   Loop
   Set wordObj = Nothing
   Msgbox "File has been exported to -->: " + path
End Sub


Vielleicht fäält dir was ein, was das sein könnte. Du musst wissen, das ist erst meine zweite Datenbank in Lotus.

Silent_Bob:
... :-[ich bin kein programmierer. jedenfalls noch nicht.
das heißt, ich kann mit dem quellcode auch nicht viel anfangen.

ich kann dir nur sagen, wie ich das mit dem excel agenten gelöst habe.

ich hab mir die datenbank runtergeladen. hab gesagt:"datenbank-->gehe zu agenten", hab den agent da raus kopiert und in meine DB reinkopiert. dann hab ich im designer in der ansicht je eine aktion angelegt und dort aktion die funktion "einfache aktionen"-->"agent starten" hinzugefügt. und das wars.

aber das hilft dir jetzt wahrscheinlich nicht mit dem export nach word weiter, oder?

mahir:
Man müsste einiges ändern.
Das andere ist besser. Mal sehen wie ich das löse

ata:
... tmpfield ist in dem Fall ein Variant und muß als Array angesprochen werden => tmpfield(0) sollte das Problem lösen...

ata

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete