Dringend Hilfe benoetigt: DataObject plötzlich unbekannter Typ...

13/12/2007 - 13:36 von Axel Gutmann | Report spam
Hallo,

ich habe hier ein seltsames Problem...

Muss vorausschicken, dass ich von VBA eher wenig verstehe, trotzdem
ist es mir mit Makrorecorder und VBA-Hilfe gelungen, ein Makro zu
schreiben, das zeilenweise angezeigte Suchergebnissse aus unserer
Datenbank in Textdateien exportiert (ein File pro Zeile mit
"***Filename" am Anfang).

Dazu benutze ich die Zwischenablage, das Makro steht unten.

Lief bisher einwandfrei. Nun haben wir am WoE einen neuen Server
installiert. Die Userprofile wurden nicht übernommen, das Makro habe
ich manuell übertragen. Wenn ich nun starte, steigt er an der Zeile

" Dim MyData As DataObject" aus mit "Benutzerdefinierter Typ nicht
definiert" ... obwohl DataObject doch offenbar ein vordefinierter Typ
sein sollte.

Die Bibliotheken in den Verweisen (VBA, Word Lib, OLE, Office Lib)
scheinen o.k. An der Office-Installation der WS wurden keine Änderunen
vorgenommen, das Makro lief bisher bei jedem User einwandfrei.

Irgendeine Idee? Das Makro sollte morgen abend wieder laufen :-(

Im voraus Danke und freundliche Grüße
Axel Gutmann

Hier noch die relevanten Auszüge aus dem Code:

Dim MyData As DataObject
Set MyData = New DataObject
Dim sClipText As String
Dim Zielpfad As String

Selection.Find.ClearFormatting
With Selection.Find
.Text = "***"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
Selection.Cut

'Datei speichern
' Get data from the clipboard.
MyData.GetFromClipboard
' Assign clipboard contents to string variable sClipText.
sClipText = MyData.GetText(1)
Zielpfad = "c:\outmail\" & sClipText & ".txt"
ActiveDocument.SaveAs FileName:=Zielpfad, FileFormat:= _
wdFormatDOSText, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="",
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False,
SaveFormsData _
:=False, SaveAsAOCELetter:=False
 

Lesen sie die antworten

#1 Axel Gutmann
13/12/2007 - 13:38 | Warnen spam
On 13 Dez., 13:36, Axel Gutmann wrote:

...und vergass, die Word-Version: Word 2000.

Gruss,
Axel Gutmann

Ähnliche fragen