Feldfunktionen in den Eigenschaften

Computer: Software & Programmierung Office Software
1

Hallo,

ich würde gerne die Feldfunktionen in die Eigenschaften (Datei/ Eigenschaften) einbauen; z.B. Filename. Leider geht es nicht über Einfügen / Feld.

Ich benutze Word 2003 und Windows XP.

Danke im voraus für Eure Hilfe!

Grüße

Birgit :smile:

2

Moin, Birgit,

ich würde gerne die Feldfunktionen in die Eigenschaften
(Datei/ Eigenschaften) einbauen; z.B. Filename.

wenn Du die Datei-Eigenschaften siehst, bist Du eigentlich nicht im Word, sondern irgendwo im Betriebssystem.

Leider geht es nicht über Einfügen / Feld.

Das wundert mich nicht, siehe oben. Mit Word werden Dokumente bearbeitet, nicht die Eigenschaften der Dokumente.

Was hast Du denn überhaupt vor? In den Eigenschaften steht der Dateiname doch schon unter dem Reiter Allgemein.

Gruß Ralf

3

Feldfunktionen in den Eigenschaften - mehr Infos
Hallo,

Danke für die Antwort. Hier zur Info. Ich muss hunderte von Dateien bearbeiten und zwar müssen in die Eigenschaften u. a. der Dateiname eingetragen werden. Also dachte ich, dass ich mit einem Makro mir die Arbeit erleichtern könnte und da wäre es sicher sinnvoll, eine Feldfunktion zu nehmen. Das Makro nimmt zwar auch Mausklicks auf. Die können aber ungenau sein. Also sind Tastenklicke sicherer.

Grüße

Birgit :smile:

4

Danke für die Antwort. Hier zur Info. Ich muss hunderte von
Dateien bearbeiten und zwar müssen in die Eigenschaften u. a.
der Dateiname eingetragen werden. Also dachte ich, dass ich
mit einem Makro mir die Arbeit erleichtern könnte und da wäre
es sicher sinnvoll, eine Feldfunktion zu nehmen. Das Makro
nimmt zwar auch Mausklicks auf. Die können aber ungenau sein.
Also sind Tastenklicke sicherer.

Hi Birgit,

Word 2000 hat 30 vorgegebene Eintragsmöglichkeiten in den Datei-Eigenschaften (BuildInDocumentProperties).
Laut Vba-Hilfe nur Lese-Zugriff was aber wohl falsch ist, wie man durch den Code erkennt.

Welche davon willst du denn nun ändern? Der Dateiname taucht da nämlich nicht auf!
Den kannst du m.E. nur durch SaveAs usw. abändern.

Natürlich kannst du eigene Eigenschaften definieren wie z.B. DocumentName o.ä (siehe CustomDocumentProperties ), aber mir unklar ob du das willst.

Ebenfalls unklar ist mir der Zusammenhang zwischen Dateinamen und Maus- oder Tatstaturklicks.

Sub tt()
Dim myRange, prop, N
Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wdCollapseEnd
For Each prop In ActiveDocument.BuiltInDocumentProperties
 N = N + 1
 With myRange
 .InsertParagraphAfter
 .InsertAfter prop.Name & "= "
 On Error Resume Next
 prop.Value = N
 .InsertAfter prop.Value
 End With
Next
End Sub

Gruß
Reinhard

5

Feldfunktionen in den Eigenschaften Beispiel
Hallo Reinhard,

Danke für die schnelle Antwort. Leider habe ich mich wohl völlig unklar ausgedrückt. :frowning: Entschuldige! Ich möchte keine eigenen Eigenschaften definieren und ich möchte auch nicht die Eigenschaften mit den vorgegebenen Eintragsmöglichkeiten ändern (Du meinst: Datei/Eigenschaften/Anpassen, oder?). Ich gebe mal ein Beispiel, was ich in Word 2003 machen möchte:

Ich wähle: Datei/Eigenschaten/Zusammenfassung

Titel: weißes Feld, bleibt frei.
Thema: weißes Feld. Hier soll rein filename, weil der Dateiname das Thema beschreibt, z. B. Protokoll001.doc
Autor: useradress
usw.

Ich möchte mir das manuelle eintragen bei Hunderten von Dateien ersparen und dachte, wenn ich Feldfunktionen nehmen, kann ich mit Hilfe eines Makros die Eigenschaften automatisch ausfüllen lassen.

Hoffe, dass ich mich jetzt verständlicher ausgedrückt habe. Also nochmal Danke für Eure Hilfe! Wenn jemand ne Idee hat, wäre ich dankbar.

Grüße

Birgit :smile:

P.S. Reinhard, die Mausklicks bezogen sich auf das Programm, dass ich für die Makros benutzen wollte,nämlich einen Freeware Makrorekorder und -editor (http://hintenaus.at/). Leider habe ich mit der Bemerkung nur verwirrt.

6

Hi Birgit,

Danke für die schnelle Antwort. Leider habe ich mich wohl
völlig unklar ausgedrückt. :frowning: Entschuldige! Ich möchte keine
eigenen Eigenschaften definieren und ich möchte auch nicht die
Eigenschaften mit den vorgegebenen Eintragsmöglichkeiten
ändern (Du meinst: Datei/Eigenschaften/Anpassen, oder?).

nein, ich meine schon Datei/Eigenschaften.
Mein Makro hast du wohl nicht probiert? Schade, dann hättest du erkönnen kennen was ich meine.

Ich gebe mal ein Beispiel, was ich in Word 2003 machen möchte:

Möglicherweise hast du in Word2003 mehr Eigenschaften als ich in Word2000, aber das würde ja nur wichtig wenn du gerade die ändern willst.

Ich wähle: Datei/Eigenschaten/Zusammenfassung

Titel: weißes Feld, bleibt frei.
Thema: weißes Feld. Hier soll rein filename, weil der
Dateiname das Thema beschreibt, z. B. Protokoll001.doc
Autor: useradress
usw.

Ich möchte mir das manuelle eintragen bei Hunderten von
Dateien ersparen und dachte, wenn ich Feldfunktionen nehmen,
kann ich mit Hilfe eines Makros die Eigenschaften automatisch
ausfüllen lassen.

Watt weiß ich was genau Feldfunktionen sind :smile:
Was soll useraddress sein? Ich ging mal davon aus du meinst Username!?

Probier mal dieses, vom Dateinamen wird automatisch das „doc“, da hier unwichtig, abgeschnitten:

Sub tt()
Dim myRange, Bez As String
Bez = Left(ActiveDocument.Name, InStr(ActiveDocument.Name, ".doc") - 1)
Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.BuiltInDocumentProperties("Subject") = Bez
ActiveDocument.BuiltInDocumentProperties("Author") = Application.UserName
End Sub

Und wenn das im aktiven Dokument funktioniert, so ist der Rest easy, also die Dateien alle abzuändern.
Prinzipiell steht die Lösung dafür schon im Beitrag über deinem.
Alles was da zwischen
Documents.Open .FoundFiles(N)
und
Documents(.FoundFiles(N)).Close savechanges:=False
steht, fliegt raus, dafür kommt obiger Code leicht abgewandelt rein, fertig.

Gruß
Reinhard

7

Danke! Jetzt kriege ich es bestimmt hin :smile:
Danke! Jetzt kriege ich es bestimmt hin :smile: