---

Hallo,
ich möchte in einem Dokument ein Feld haben, in dem ein bestimmter Teil des Dateinamens steht z.B.:

Mid (DateiName, 10, 4)

Geht das nur mit VBA?

------------------
Gruß Wilfried

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Wilfried!

Ich weiß, was du meinst. Leider kenne ich mich mit VBA nicht besonders gut aus.
Aber wenn ich solche Funktionen in Word haben will gehe ich über

Einfügen--> Feld-->Formeln

Vielleicht kommst du ja auch dort ans Ziel.

Viel Erfolg.

------------------
Grüße
Engel07
***************************************************************************************************
"Damit das Mögliche entsteht, muss immer wieder das Unmögliche versucht werden."
***************************************************************************************************

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Engel07,

Danke für deine Antwort. Leider geht das nur für numerische Werte.

------------------
Gruß Wilfried

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wilfried,

vielleicht kannst Du ein Feld wie Info/Title oder ähnliches über VBA mit dem gewünschten String füttern und dieses Feld anstelle des Dateinamens einsetzen ?

Gruß
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

das geht offenbar auch nicht. Trotzdem Danke für deine Antwort. Ich habe das Problem mit einem AutoOpen Macro gelöst, das beim ersten Öffnen den Text an einer Textmarke einfügt. Code:

Sub AutoOpen()
  Dim Eintrag, user, Buffer As String
  With Selection
      .GoTo What:=wdGoToBookmark, Name:="Auftragsnummer"
      .MoveRight Unit:=wdWord, Extend:=wdExtend
  End With
  Eintrag = Selection.Text
  If Asc(Eintrag) <> 13 Then
    With Selection
      .GoTo What:=wdGoToBookmark, Name:="Anfang"
    End With
  Exit Sub
End If
  With Selection
      .GoTo What:=wdGoToBookmark, Name:="Auftragsnummer"
  End With
  Selection.Text = Mid(ActiveDocument.Name, 14, 4)
....
End Sub

------------------
Gruß Wilfried

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP