Domino 9 und frühere Versionen > Entwicklung

Aus dem Word-Anhang RTF-Datei erzeugen

<< < (2/2)

Axel:
Hi,

wo willst du die Vorlage anhängen, in ein RTF-Feld oder ein Dokument mit der Vorlage verbinden ?


Axel

mgr:
Das sieht so aus:

Dim cWord As cWord
Dim strVorlage As String
Dim strDoc As String
               
strVorlage = "c:\vorlage.dot"
strDoc=“c:\dokument.doc“

. . .
Call o.ExtractFile(strDoc)  ' Löse Anhang ins File System

Set cWord = New cWord
Call cWord.OpenDoc(strDoc)

Call cWord.RunMacro ("Makro1") ??????
   
Delete cWord


Wie mache ich klar, dass Makro1 in vorlage.dot hinterlegt ist?

Semeaphoros:
Nach dem OpenDoc musst Du die Vorlage zuordnen, dafür gibt es in Word eine Methode oder Eigenschaft, weiss aber grad nicht, wie sie heisst. Aber wenn Du das von Hand machst und das in einem Macro mitschreibst, siehst Du das sofort.

Axel:
Hi,

du musst in die Klasse eine neue Methode einfügen.

Kopiere bitte diesen Code in die Script-Bibliothek libWord

Sub VorlageVerbinden(strVorlage As String)
      
With objWord.ActiveDocument
        .UpdateStylesOnOpen = True
        .AttachedTemplate = CStr(strVorlage)
End With  'With objWord.ActiveDocument
      
End Sub

Dein Agent muss dann so aussehen:

Dim cWord As cWord
Dim strVorlage As String
Dim strDoc As String
               
strVorlage = "c:\vorlage.dot"
strDoc=“c:\dokument.doc“

. . .
Call o.ExtractFile(strDoc)  ' Löse Anhang ins File System

Set cWord = New cWord
Call cWord.OpenDoc(strDoc)

Call oWord.VorlageVerbinden(strVorlage)

Call cWord.RunMacro ("Makro1") ???
   
Delete cWord

Ich hab's nicht getestet, aber ich hoffe es funktioniert.

Axel
 

mgr:
Vielen Dank, es hat geklappt!

Navigation

[0] Themen-Index

[*] Vorherige Sete