Dim objPublisher As Publisher.Application
  Dim objShape As  Publisher.Shape
  Dim objDoc As Publisher.Document
  Dim objPage As Publisher.Page
  Dim objRange As Publisher.TextRange
 
  Set objPublisher = CreateObject("Publisher.Application")
  Set objDoc = objPublisher.Open(ActiveFile)
:
:
   Set objPage = objDoc.Pages.Item(X)
:
: 
  Set objShape = objPage.Shapes.Item(Y)
  If objShape.HasTextFrame <> 0 Then
    TmpS = objShape.TextFrame.TextRange.Text
    If Trim(TmpS) <> "" Then
      Set objRange = objShape.TextFrame.TextRange
         objrange.findtext (Zeichenkette) bringt dann den Absturz
         aber auch
        .ReplaceWithText (Zeichenkette)
     End If
  End If
:

Martin Domian

CioTec Ltd
F37 Waterfront Studios 1 Dock Road
London E16 1AH United Kingdom

Tel.: +44 7810 255482
Mail: MDomian@ciotec.de
URL: http://www.ciotec.de

UTR 64446 15259 (Unique Taxpayer Reference) Company No 10914665