Thema Datum  Von Nutzer Rating
Antwort
05.03.2009 16:13:26 Stone0100
NotSolved
06.03.2009 11:09:54 Holger
NotSolved
Rot Aw:Aw:Formatierung einer Textmarke per VBA
 09.03.2009 09:35:40 Stone0100
NotSolved

Ansicht des Beitrags:
Von:
Stone0100		 Datum:
09.03.2009 09:35:40		 Views:
1024		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Formatierung einer Textmarke per VBA
Hallo Holger,

erstmal vielen Dank für deine Mühe! Habe die erste Variante genommen, bekomme aber noch folgenden Fehler, kannst du mir dabei helfen!?

Fehler Meldung: Das angeforderte Element ist nicht in der Sammlung vorhanden.

Code:

Dim a As Long

If ActiveDocument.Bookmarks.Exists("AKAuftragsdat") Then
a = Format(a, "dd.MMMM.yyyy")
ActiveDocument.Bookmarks("AKAuftragsdat").Select
Selection.InsertAfter a
End If


Im Vorraus vielen Dank!

Gruß Stone0100




Holger schrieb am 06.03.2009 11:09:54:

Hallo Stone0100,
Format kannst du nur auf einen Ausdruck oder eine Variable anwenden.
Leider gibt es für das Bookmark-Objekt nicht sehr viele Methoden. Welches Ersatzverfahren sich anbietet, hängt davon ab, wie du die Daten einfügen lässt.

Wenn du dein Datumswert in Form einer Variablen, sagen wir a, erhälst, kannst du das Format vor dem Einsetzen ändern, z.B.
If ActiveDocument.Bookmarks.Exists("AKAuftragsdat") Then
a = Format(a, "dd.MMMM.yyyy")
ActiveDocument.Bookmarks("AKAuftragsdat").Select
Selection.InsertAfter a
end if

Wenn nicht, geht eine der folgenden Methoden:
Unmittelbar nach dem Einsetzen des Datums ist es noch markiert, so dass du es leicht wieder auslesen, manipulieren und einfügen kannst, z.B. :
If ActiveDocument.Bookmarks.Exists("AKAuftragsdat") Then
ActiveDocument.Bookmarks("AKAuftragsdat").Select
Selection.TypeText Format(.Text, "dd.MMMM yyyy")
End If

oder, wenn die Formatänderung erst zu einem späteren Zeitpunkt erfolgen kann:
If ActiveDocument.Bookmarks.Exists("AKAuftragsdat") Then
ActiveDocument.Bookmarks("AKAuftragsdat").Select
With Selection
b = .start
c = .MoveUntil(".") + .MoveUntil(".") + 6 'Prüfung, dass Text nur einige Zeichen lang
If c kleiner 11 Then 'Kleinerzeichen einsetzen
set zu_mark = Activedocument.range(start:=b, end:=b + c)
zu_mark.select
.TypeText Format(.Text, "dd.MMMM yyyy")
End If
End With
End If

Vielleicht gibt es noch einfachere Methoden.

Gruß
Holger



Stone0100 schrieb am 05.03.2009 16:13:26:

Hallo, ich habe folgendes Problem:

Meine Daten im Word werden aus SAP gefüllt. Auch ein Datum. Diese Textmarke wird aber leider nur so dargstellt 05.03.2009 und nicht. wie ich es bei dem Textformularfeld eigestellt habe d. MMMM yyyy (05. März 2009).

Ist das hier der richtige Ansatz?:

If ActiveDocument.Bookmarks.Exists("AKAuftragsdat") Then
With ActiveDocument.Bookmarks("AKAuftragsdat").Range
.DateTimeFormat:="d.MMMM.yyyy"
End With
End If

Da bekomm ich aber als Fehlermeldungen. Wer kann mir helfen?

Danke

Gruß Stone 0100

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.03.2009 16:13:26 Stone0100
NotSolved
06.03.2009 11:09:54 Holger
NotSolved
Rot Aw:Aw:Formatierung einer Textmarke per VBA
 09.03.2009 09:35:40 Stone0100
NotSolved