3
Inhalt einer Textmarke per VBA prüfen
Hallo zusammen,
hoffe einer von euch kann mir helfen, habe nämlich ein kleines Problem. Muss in WORD per VBA prüfen ob in einer Textmarke ein Text vorhanden ist oder nicht... Wenn ja, dann soll die Helligkeit eines Bild auf 100% bzw. 50% gestellt werden, dass Bild soll also angezeigen werden oder nicht, je nach Zustand der Textmarke.
If ActiveDocument.Bookmarks("B121").Select = TRUE Then ' Abfrage nach Inhalt der Textmarke ... ???
ActiveDocument.Shapes("Picture 3").Select
Selection.ShapeRange.PictureFormat.Brightness = 1# 'ausbleden
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Else
ActiveDocument.Shapes("Picture 3").Select
Selection.ShapeRange.PictureFormat.Brightness = 0.5 'einblenden
Selection.ShapeRange.PictureFormat.Contrast = 0.5
End If
Vielen Dank schonmal für eure Hilfe...
Gruß
Bino
hoffe einer von euch kann mir helfen, habe nämlich ein kleines Problem. Muss in WORD per VBA prüfen ob in einer Textmarke ein Text vorhanden ist oder nicht... Wenn ja, dann soll die Helligkeit eines Bild auf 100% bzw. 50% gestellt werden, dass Bild soll also angezeigen werden oder nicht, je nach Zustand der Textmarke.
If ActiveDocument.Bookmarks("B121").Select = TRUE Then ' Abfrage nach Inhalt der Textmarke ... ???
ActiveDocument.Shapes("Picture 3").Select
Selection.ShapeRange.PictureFormat.Brightness = 1# 'ausbleden
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Else
ActiveDocument.Shapes("Picture 3").Select
Selection.ShapeRange.PictureFormat.Brightness = 0.5 'einblenden
Selection.ShapeRange.PictureFormat.Contrast = 0.5
End If
Vielen Dank schonmal für eure Hilfe...
Gruß
Bino
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 92475
Url: https://administrator.de/contentid/92475
Ausgedruckt am: 22.11.2024 um 13:11 Uhr
3 Kommentare
Neuester Kommentar
Hallo Bino,
probiere es doch mal so:
Zu der Textmarke springen und diese markieren
Selection.GoTo What:=wdGoToBookmark, Name:="B121"
Dann den Inhalt der Textmarke prüfen
If Selection = "Was Du halt prüfen willst" Then
Gruß
Ralf
probiere es doch mal so:
Zu der Textmarke springen und diese markieren
Selection.GoTo What:=wdGoToBookmark, Name:="B121"
Dann den Inhalt der Textmarke prüfen
If Selection = "Was Du halt prüfen willst" Then
Gruß
Ralf
Habe es anders herausgefunden ... Aber trotzdem Danke RDiller...
If ActiveDocument.FormFields("B123").Result = "" Then
Du musst die Textmarke mit FormFields ansprechen, dann klappt alles wunderbar ....
If ActiveDocument.FormFields("B123").Result = "" Then
Du musst die Textmarke mit FormFields ansprechen, dann klappt alles wunderbar ....
Hi Bino,
das geht aber nur wenn Du ein Formular hast und bei Deiner Anfrage hast Du über Textmarken gesprochen!
Gruß
Ralf
das geht aber nur wenn Du ein Formular hast und bei Deiner Anfrage hast Du über Textmarken gesprochen!
Gruß
Ralf
