Domino 9 und frühere Versionen > ND6: Entwicklung

2 Probleme mit Word-Anbindung

(1/2) > >>

Gandhi:
Hallo,
ich habe 2 Probleme mit der Word Anbindung:
1.

--- Code: ---Set WordDoc = WordApp.Documents.Open(path)
Set Selection=wordApp.selection
'Replace content
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[Name]"
.Replacement.Text = "Müller"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute wdReplaceAll
Next
--- Ende Code ---
Was es tun soll ist im Word Dokument den Platzhalter [Name] durch 'Müller' zu ersetzen. Tut es aber nicht.

2. Problem:

--- Code: ---Const wdBackground=True
Const wdAppend=False
Const wdRange=0
Const wdOutputFileName=False
Const wdFrom=""      'auch schon 1 versucht
Const wdTo=""          'auch schon 1 versucht
Const wdItem=0
Const wdPages=""
Const wdPageType=0
Const wdPrintToFile=False
Const wdCollate=True
Const wdFilename=""
Const wdActivePrinterMacGX=False
Const wdManualDuplexPrint=False
Const wdPrintZoomColumn=0
Const wdPrintZoomRow=0
Const wdPrintZoomPaperWidth=0
Const wdPrintZoomPaperHeight=0

wordapp.PrintOut _
wdBackground,_
wdAppend,_
wdRange,_
wdOutputFileName,_
wdFrom,_
wdTo,_
wdItem,_
copies,_
wdPages,_
wdPageType,_
wdPrintToFile,_
wdCollate,_
wdFilename,_
wdActivePrinterMacGX,_     
wdManualDuplexPrint,_
wdPrintZoomColumn,_
wdPrintZoomRow,_
wdPrintZoomPaperWidth,_
wdPrintZoomPaperHeight

--- Ende Code ---
Da wdActivePrinterMacGX nur auf der Mac-Wordversion verfügbar sein soll, habe ich es versuchsweise auch schon weggelassen, gleiches Resultat: Automation Object Parameter Type Error.

Versionen: Notes 6.5.4, Word 2002 SP3

Hat jemand Ideen?

diali:
zum 1. Problem.
sieht so aus, als ob es sich um Textmarken handelt, dann geht es mit:
wdGoToBookmark = -1
Selection.GoTo wdGoToBookmark, "Name"
Selection.Find.ClearFormatting
Selection.TypeText "Müller"

mibo11:

--- Zitat von: Gandhi am 21.12.05 - 14:57:43 ---2. Problem:
Const wdBackground=True
Const wdAppend=False
Const wdRange=0
Const wdOutputFileName=False
Const wdFrom=""      'auch schon 1 versucht
Const wdTo=""          'auch schon 1 versucht
Const wdItem=0
Const wdPages=""
Const wdPageType=0
Const wdPrintToFile=False
Const wdCollate=True
Const wdFilename=""
Const wdActivePrinterMacGX=False
Const wdManualDuplexPrint=False
Const wdPrintZoomColumn=0
Const wdPrintZoomRow=0
Const wdPrintZoomPaperWidth=0
Const wdPrintZoomPaperHeight=0

wordapp.PrintOut _
   wdBackground,_
   wdAppend,_
   wdRange,_
   wdOutputFileName,_
   wdFrom,_
   wdTo,_
   wdItem,_
   copies,_
   wdPages,_
   wdPageType,_
   wdPrintToFile,_
   wdCollate,_
   wdFilename,_
   wdActivePrinterMacGX,_     
   wdManualDuplexPrint,_
   wdPrintZoomColumn,_
   wdPrintZoomRow,_
   wdPrintZoomPaperWidth,_
   wdPrintZoomPaperHeight

--- Ende Zitat ---

Mir fällt auf, dass copies nicht gesetzt wurde.

Gruß Sascha

Gandhi:
copies ist gesetzt - ist allerdings eine Variable - sorry, das habe ich vergessen hinzuschreiben.

Axel:
Hi,

was passiert denn, wenn du Printout ohne, oder nur mit den unbedingt notwendigen Parametern, aufrufst.

Zeichne dir doch auch mal ein Makro in Word mit dem Printout-Befehl auf und schau, wie dort die Parameter gesetzt werden.


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite