Hilfe!

Ich benutze Office 2000 und habe folgende Fragen:

Ich greife über eine access datenbank auf eine wordvorlage zu und öffne diese als neues dokument,lese Daten über Textmarken ein und bestimme über vb den neuen namen und den neuen speicherort.

wie kann ich beim erneuten/anderem ereignis 'Öffnen des Dokuments' (für eine bestimmte Benutzergruppe) aus access heraus bestimmen, dass z.B. eine Schreibschutzempfehlung gesetzt wird bzw. dass diese Empfehlung beim erneuten öffnen abgefragt wird (so, als ob ich das Dokument über den Explorer öffnen würde).

Desweiteren: wie kann ich über vb in access dem objekt mitgeben, dass Änderungen beim 2. öffnen farbig markiert werden(wie in word selber:änderungen verfolgen) und

3. welche eigenschaft steht für "speichern als neue version"?

Hoffentlich weiß jemand rat!!!

Am besten mit Code-Beispiel, bin noch Anfänger...

zu deinen fragen (ich hoffe das konnte alle beantworten):

1. ActiveDocument.ReadOnlyRecommended = True - setzt das flag, dass word beim öffnen des dokuments empfiehlt, es mit schreibschutz aufzumachen.

2. ActiveDocument.TrackRevisions = True - schaltet die versionskontrolle/änderungsnachverfolgung ein.

3. ActiveDocument.Versions.Count bzw. .Save - gibt die aktuelle nummer der version zurück bzw. speichert das dokument mit dieser version.

eien gute übersicht über alle automatisierbaren word-objekte gibt der übrigens der vba-objektkatalog (Alt-F2) sowie die äusserst umfangreiche MSDN-refernz zu word/office/vba.

HTH,

s'Amstel

Hi,

vielen Dank für die schnelle Hilfe.

Ich habe aber jetzt noch das Problem, dass ich, wenn ich in einer procedur den schreibschutz gesetzt habe, diesen bei einem anderen ereignis, welches das word dokument erneut öffnet, immer noch drin habe (obwohl ich hier den schreibschutz wieder auf false gesetzt. Habe ich etwas vergessen oder übersehen?

If objWord Is Nothing Then

Set objWord = New Word.Application

objWord.Visible = False

With Application.FileSearch

.NewSearch

.LookIn = strDateiPfad

.TextOrProperty = Me.txtSuchtext

.FileType = msoFileTypeWordDocuments

.MatchTextExactly = True

.SearchSubFolders = True

If .MatchTextExactly = False Then

MsgBox ("Leider keine entsprechende Datei gefunden.

Versuchen Sie eine andere Fallnummer.")

Else

objWord.Visible = True

Set oDoc = objWord.Documents.Open(strSuche)

oDoc.Application.ActiveDocument.ReadOnlyRecommended=False

oDoc.Application.ActiveDocument.TrackRevisions = True

End If

End With

speicherst du das dokument dann auch wieder, nachdem du

ReadOnlyRecommended=False gesetzt hat?

s'AMstel

Also in access nicht.