Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Wer kann mir dies übersetzen?
Autor: Gekko
Datum: 19.09.04 17:32
Hallo, habe folgendes Problem. ich brauche einen Reader/Writer der mir in office dokumenten den author abändert. (soll kein klau werden, sondern der firmenname meines kunden hat sich geändert) Habe dazu folgenden VB Code gefunden. (leider kein .net) vielen Dank schon mal   it '********************************************************************* ' FileProp Form Member Variables '********************************************************************* Private oFilePropReader As DSOleFile.PropertyReader Private oDocProp As DSOleFile.DocumentProperties Private Sub Form_Load() ' Create an instance of the reader class (if this errors, ' the DLL was not registered with REGSVR32.EXE)... Set oFilePropReader = New DSOleFile.PropertyReader ' If you plan to be working with localized documents (non-English) ' you can set this property to make sure new property sets are ' created in Unicode instead of ANSI. ' ' oFilePropReader.UseUnicodePropSets = True ' ' Office documents made with US/UK English versions of Office save ' string values in ANSI, and have had reported problems reading values ' that weren't, so for compatiblity the reader defaults to ANSI. ' Pick a file and open the properties for it, If user cancels, we exit... If Not OpenDocumentProperties Then End End Sub Private Sub Form_Unload(Cancel As Integer) ' Save any changes before we unload... UpdateSummaryInfo Set oDocProp = Nothing Set oFilePropReader = Nothing End Sub Private Sub cmdOpenFile_Click() UpdateSummaryInfo OpenDocumentProperties End Sub Private Sub chkShowPreview_Click() ' The preview is loaded in a picture box. When this item is ' checked, move the picture box on screen. Otherwise, move off.. If chkShowPreview.Value Then lstNormalProps.Left = -20000 picPreview.Left = 1140 Else picPreview.Left = -20000 lstNormalProps.Left = 1140 End If End Sub

Wer kann mir dies übersetzen?	897	Gekko	19.09.04 17:32
Teil 2	681	Gekko	19.09.04 17:35
Teil 3	564	Gekko	19.09.04 17:38
Teil 4	576	Gekko	19.09.04 17:39
Re: Teil 4	540	eclere	20.09.04 12:07
Re: Teil 4	508	Lustlos	21.09.04 14:43

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen