Thema Datum  Von Nutzer Rating
Antwort
30.04.2016 22:41:00 Hofe
NotSolved
01.05.2016 15:03:21 Gast73473
NotSolved
01.05.2016 15:28:46 Hofe
NotSolved
01.05.2016 17:29:30 Gast83074
NotSolved
01.05.2016 19:32:40 Hofe
NotSolved
01.05.2016 19:37:07 Hofe
NotSolved
01.05.2016 19:48:56 Gast54756
NotSolved
01.05.2016 20:07:28 Hofe
NotSolved
01.05.2016 20:08:17 Hofe
NotSolved
01.05.2016 20:16:47 Gast43310
NotSolved
01.05.2016 20:38:47 Hofe
NotSolved
01.05.2016 21:08:09 Gast36395
NotSolved
01.05.2016 21:08:20 Gast27765
NotSolved
01.05.2016 21:08:29 Gast16413
NotSolved
01.05.2016 21:14:24 Gast26480
NotSolved
01.05.2016 21:31:16 Hofe
Solved
01.05.2016 21:39:35 Gast28033
NotSolved
01.05.2016 21:45:28 Hofe
Solved
01.05.2016 21:58:21 Gast83673
NotSolved
02.05.2016 15:57:14 Hofe
Solved
Rot Textmarke nach füllen wieder neu setzen
02.05.2016 18:58:27 Gast65100
NotSolved
03.05.2016 07:29:00 Hofe
Solved
03.05.2016 12:26:17 Gast34319
Solved

Ansicht des Beitrags:
Von:
Gast65100
Datum:
02.05.2016 18:58:27
Views:
837
Rating: Antwort:
  Ja
Thema:
Textmarke nach füllen wieder neu setzen

Moin! Also guru ist wohl ein wenig übertrieben. :-) Also grundsätzlich geht alles. Die Frage ist, ob die Textmarke eine offene (nur die Stelle) oder eine geschlossene (Bereich markiert) ist. Für die offene (die Textmarke bleibt nach dem Bild einfügen vorhanden) würde folgendes gehen.

Sub Bild_loschen()
Dim anzahl As Long
Dim i As Long

anzahl = ActiveDocument.InlineShapes.Count
For i = 1 To anzahl
    If ActiveDocument.InlineShapes.Item(i).Range.Start = ActiveDocument.Bookmarks("TM_Unterschrift").Range.Start Then
        ActiveDocument.InlineShapes.Item(i).Delete
    End If
Next i
end sub

Der Code prüft, ob es Bilder gibt und wenn bei der Stelle der Textmarke ein Bild ist, löscht er es.

Alternativ auch so, dann muss aber sich sein, dass es ein Bild gibt.

ActiveDocument.Range(Start:=ActiveDocument.Bookmarks("TM_Unterschrift").Range.Start, End:=ActiveDocument.Bookmarks("TM_Unterschrift").Range.Start + 1).Delete

Sollte es da kein Bild geben, wird ein Zeichen gelöscht - bei der Variante also aufpassen.

Sollte es eine geschlossen Textmarke sein, nochmal melden. Dann müsste man die Stelle voher kennen und die explizit ansprechen und ggf. löschen. Dann könnte man noch eine neue Textmarke setzen - die dann aber nur offen ist, da man den Bereich, der Anfangs als Textmarke markiert war, nicht kennt. Gehe aber mal von einer der obigen Varianten aus. Schönen Abend noch


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
30.04.2016 22:41:00 Hofe
NotSolved
01.05.2016 15:03:21 Gast73473
NotSolved
01.05.2016 15:28:46 Hofe
NotSolved
01.05.2016 17:29:30 Gast83074
NotSolved
01.05.2016 19:32:40 Hofe
NotSolved
01.05.2016 19:37:07 Hofe
NotSolved
01.05.2016 19:48:56 Gast54756
NotSolved
01.05.2016 20:07:28 Hofe
NotSolved
01.05.2016 20:08:17 Hofe
NotSolved
01.05.2016 20:16:47 Gast43310
NotSolved
01.05.2016 20:38:47 Hofe
NotSolved
01.05.2016 21:08:09 Gast36395
NotSolved
01.05.2016 21:08:20 Gast27765
NotSolved
01.05.2016 21:08:29 Gast16413
NotSolved
01.05.2016 21:14:24 Gast26480
NotSolved
01.05.2016 21:31:16 Hofe
Solved
01.05.2016 21:39:35 Gast28033
NotSolved
01.05.2016 21:45:28 Hofe
Solved
01.05.2016 21:58:21 Gast83673
NotSolved
02.05.2016 15:57:14 Hofe
Solved
Rot Textmarke nach füllen wieder neu setzen
02.05.2016 18:58:27 Gast65100
NotSolved
03.05.2016 07:29:00 Hofe
Solved
03.05.2016 12:26:17 Gast34319
Solved