Autor Thema: Mal wieder das Thema Export nach WORD  (Gelesen 36402 mal)

klaussal

  • Gast
Re: Mal wieder das Thema Export nach WORD
« Antwort #20 am: 13.03.08 - 16:07:05 »
Von der Kombi LoNo <-> Word habe ich keine Ahnung. Deshalb halte ich mich da raus.

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Re: Mal wieder das Thema Export nach WORD
« Antwort #21 am: 13.03.08 - 16:32:31 »
War ja nicht bös gemeint ich hoffe das kahm jetzt nicht so rüber...
« Letzte Änderung: 24.04.08 - 13:05:47 von C_T »
Viele Grüße

Christian T.

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Re: Mal wieder das Thema Export nach WORD
« Antwort #22 am: 26.03.08 - 13:44:34 »
So hi, da bin ich mal wieder....

Erstmal Frohe Ostern nochmal nachträglich an alle.

Aber jetzt mal wieder zum unschönen des Tages, Mein Problem...  ;D  :D

Ich habe vor aus einem Feld (TEST1) welches ich in meiner Maske(doc) habe alle Attachments zu extrahieren, zu speichern und per link in das aus meinen voherigen Posts einzufügen.

Leider habe ich schon beim extrahieren Probleme vielleciht kann mir einer (oder mehrere) von euch helfen??? *liebguck*
« Letzte Änderung: 24.04.08 - 13:42:30 von C_T »
Viele Grüße

Christian T.

Offline MadMetzger

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.052
  • Geschlecht: Männlich
  • f.k.a. Alexis Pyromanis
Re: Mal wieder das Thema Export nach WORD
« Antwort #23 am: 26.03.08 - 13:48:41 »
Wo liegen denn deine Probleme?

Offline m3

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.102
  • Geschlecht: Männlich
  • Non ex transverso sed deorsum!
    • leyrers online pamphlet
Re: Mal wieder das Thema Export nach WORD
« Antwort #24 am: 26.03.08 - 13:52:47 »
Zitat
Leider habe ich schon beim extrahieren Probleme

Meine Kristallkugel ist ebenso noch nicht - im Gegensatz zu den Glocken - aus Rom zurück.

Bitte sei daher etwas spezifischer.
HTH
m³ aka. Martin -- leyrers online pamphlet | LEYON - All things Lotus (IBM Collaborations Solutions)

All programs evolve until they can send email.
Except Microsoft Exchange.
    - Memorable Quotes from Alt.Sysadmin.Recovery

"Lotus Notes ist wie ein Badezimmer, geht ohne Kacheln, aber nicht so gut." -- Peter Klett

"If there isn't at least a handful of solutions for any given problem, it isn't IBM"™ - @notessensai

Offline ata

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re: Mal wieder das Thema Export nach WORD
« Antwort #25 am: 26.03.08 - 14:00:27 »
... ich denke der Beitrag sollte nach Companions und OLE verschoben werden

Toni
Grüßle Toni :)

Offline Axel

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Mal wieder das Thema Export nach WORD
« Antwort #26 am: 26.03.08 - 14:04:07 »
Das Codeschnipsel sieht soweit mal ganz gut aus, aber eben nur das Schnipsel.

Leider habe ich schon beim extrahieren Probleme vielleciht kann mir einer (oder mehrere) von euch helfen??? *liebguck*

Leider kann ich nicht hellsehen und meine Kristallkugel ist im Osterurlaub eingeschneit, so dass du notgedrungen, wenn du Hilfe haben willst, mehr Infos geben musst.

*nochlieberguck*


Du kennst doch das hier oft strapazierte Sprichwort:

Mehr Input -> mehr Output.


Axel
 
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Re: Mal wieder das Thema Export nach WORD
« Antwort #27 am: 27.03.08 - 08:29:55 »
HI

SO sry dachte es wär genug input, aber naja jeder kann sich irren....

Also nach meiner ansicht sollte ja der Code
Code
....CODE

Dim rtitem As Variant
Set rtitem = doc.GetFirstItem( "TEST1" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall obj In rtitem.EmbeddedObjects
      Call obj.ExtractFile( "c:\test\" & obj.Name )
  End Forall
End If

....CODE

 die Attachments aus dem Feld ("TEST1") als Datei in den Ordner "c:\test" speichern. leider macht der das nicht.

Das Feld ist definitiv ein RichTextFeld und da drin steht text und sind folgende dateitypen hinterlegt:

*.txt
*.doc
*.xls

der debugger zeigt an das der code bis in die kleinste schleife reingeht, jedoch sehe ich auf meiner C Platte keine daten...
« Letzte Änderung: 24.04.08 - 13:09:30 von C_T »
Viele Grüße

Christian T.

Offline Axel

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Mal wieder das Thema Export nach WORD
« Antwort #28 am: 27.03.08 - 08:44:46 »
Ändere mal deine Dim - Anweisung ab.

....CODE

Dim rtitem As NotesRichtextItem

Set rtitem = doc.GetFirstItem( "Problem" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
      Call o.ExtractFile( "c:\test\" & o.Name )
    End If
  End Forall
End If

....CODE

Ansonsten kann ich keine Unstimmigkeiten entdecken.

Bekommst du eine Fehlermeldung?


Axel
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Re: Mal wieder das Thema Export nach WORD
« Antwort #29 am: 27.03.08 - 08:56:01 »
Nein leider bringt das auch nciht mehr...
Viele Grüße

Christian T.

klaussal

  • Gast
Re: Mal wieder das Thema Export nach WORD
« Antwort #30 am: 27.03.08 - 09:04:37 »
Das Doc, das du da bearbeitest, ist schon abgespeichert ?

Was steht lt. Debugger in o.Name ?

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Re: Mal wieder das Thema Export nach WORD
« Antwort #31 am: 27.03.08 - 09:12:18 »
Hm merkwürdig

im  debugger kann ich unter Variablen kein o finden, jedoch geht er bis zu der zeile

"     Call o.ExtractFile( "c:\test\" & o.Name )"

doch er geht nuir eimal in die Forall schleife, obwohl 4 dokumente in dem rtfeld eingefügt sind...
Viele Grüße

Christian T.

Offline Axel

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Mal wieder das Thema Export nach WORD
« Antwort #32 am: 27.03.08 - 09:17:12 »
Füge mal in die Schleife die Zeile

Msgbox o.Name

ein.

Dann müsste er dir die Namen der Anhänge anzeigen.


Axel
Ohne Computer wären wir noch lange nicht hinterm Mond!

klaussal

  • Gast
Re: Mal wieder das Thema Export nach WORD
« Antwort #33 am: 27.03.08 - 09:24:48 »
Folgender Code (nicht schön) funktioniert !

Code
Sub Click(Source As Button)
	Dim rtitem As NotesRichtextItem
	Dim doc As NotesDocument
	Dim ws As New NotesUIWorkSpace
	Dim uidoc As NotesUIDocument
	Set uidoc = ws.currentDocument
	
	
	Set doc = uidoc.document
	
	Set rtitem = doc.GetFirstItem( "rt" )
	If ( rtitem.Type = RICHTEXT ) Then
		Forall o In rtitem.EmbeddedObjects
			If ( o.Type = EMBED_ATTACHMENT ) Then
				Call o.ExtractFile( "c:\austausch\" & o.Name )
			End If
		End Forall
	End If
End Sub

Deshalb wiederhole ich meine Frage:
Ist das Dokument bereits gespeichert ?

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Re: Mal wieder das Thema Export nach WORD
« Antwort #34 am: 27.03.08 - 11:01:20 »
So ich habe die Textbox eingefügt und diese wird laut debugger zwar ausgeführt, jedoch nicht angezeigt....


Des weiteren ja das DOkument ist gespeichert. Ich rufe diesen Code aus einer Ansicht auf und bearbeite alle markierten Dokumente... Siehe weiter oben...(immernoch selbes Projekt)

Viele Grüße

Christian T.

klaussal

  • Gast
Re: Mal wieder das Thema Export nach WORD
« Antwort #35 am: 27.03.08 - 11:07:43 »
Dann bitte mal den ganzen Code posten.

Offline ata

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re: Mal wieder das Thema Export nach WORD
« Antwort #36 am: 27.03.08 - 11:41:50 »
... das hört sich mehr als dubios an - was heist:

Zitat
So ich habe die Textbox eingefügt und diese wird laut debugger zwar ausgeführt, jedoch nicht angezeigt

Wenn sie ausgeführt wird, dann wird sie auch angezeigt - oder läuft das ganze als Background-Server-Agent - dann stehen die Namen im Log des Servers...

Toni
Grüßle Toni :)

klaussal

  • Gast
Re: Mal wieder das Thema Export nach WORD
« Antwort #37 am: 27.03.08 - 11:51:46 »
Zitat
dann stehen die Namen im Log des Servers...

... und dort würde man dann auch die Dateien finden...

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Re: Mal wieder das Thema Export nach WORD
« Antwort #38 am: 27.03.08 - 11:57:27 »
Hier ein Code Ausschnitt

Code
Sub Click(Source As Button)
	Dim workspace As New NotesUIWorkspace
	Dim session As New NotesSession
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim db As NotesDatabase
	Dim col As NotesDocumentCollection
	
	Dim Ins As Variant
	
	Set db = session.CurrentDatabase
	
	On Error Resume Next
				
	Const wdStyleNormal = -1
	Const wdStyleHeading3 = -4	
			
				
	Set WordApp = CreateObject("Word.Application")  
	Call WordApp.documents.add("c:\TEST.dot")
	Set WordDoc = WordApp.activedocument	
				
	Set Ins =  WordApp.Selection
				
	Dim view As NotesView
	Set view = db.GetView("aView")
	Set doc = view.GetFirstDocument
				
	Do Until doc Is Nothing
	                Set uidoc = workspace.EditDocument(True, doc)
		uidoc.EditMode = True
		uidoc.AutoReload = False
						
		With Ins 
		                .Style = wdStyleHeading3
			.TypeText "TEST1: " 
			.TypeText doc.TEST1(0) + Chr$(10)
			.Style = wdStyleNormal
		End With

			
		Dim rtitem As NotesRichTextItem
'...set value of doc...
		Set rtitem = doc.GetFirstItem( "FELD" )
		If ( rtitem.Type = RICHTEXT ) Then
			Forall obj In rtitem.EmbeddedObjects
				Messagebox(Cstr(obj.Name))
				Call obj.ExtractFile( "c:\test\" & obj.Name )
			End Forall
		End If
						
		Err = 0
		Call uidoc.GotoField("FELD")
		Call uidoc.SelectAll
		Call uidoc.Copy
		If Not Err = 4407 Then
			With Ins 
				.Font.Bold = True
				.TypeText "FELD: "+ Chr$(10)
				.Font.Bold = False
				.Paste 
				.TypeText Chr$(10) + Chr$(10)
			End With
		End If
		Ins.TypeText Chr$(12)
											
		uidoc.Close(True)		
		Set doc = view.GetNextDocument(doc)
		
						
	Loop
					
					
									
	WordApp.Documents(1).saveas(flag3)				
					
	End Sub


also im debugger geht die "Aktive Zeile" auf die Messagebox, jedoch wird diese nicht angezeigt....
« Letzte Änderung: 24.04.08 - 13:20:35 von C_T »
Viele Grüße

Christian T.

Offline Axel

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Mal wieder das Thema Export nach WORD
« Antwort #39 am: 27.03.08 - 12:12:33 »
also im debugger geht die "Aktive Zeile" auf die Messagebox, jedoch wird diese nicht angezeigt....

Was heisst das? Hast du dann auch noch mal einen Schritt ausgeführt?


Axel
Ohne Computer wären wir noch lange nicht hinterm Mond!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz