wenn string leer dann nicht an textmarke einfügen?

25/05/2008 - 13:51 von jensspeedy | Report spam
ich mal wieder - diesmal mit ner kleinen frage ;-)

ich lese aus ner db daten aus die ich dann an textmarken im document
einfüge
dazu benutze ich auch eine funktion zur formatierung
[code]
Function ReplaceBookmarkText_4(strBMName As String, strText As String)
Dim rng As Range
Strich = " -"
If ActiveDocument.Bookmarks.Exists(strBMName) Then
Set rng = ActiveDocument.Bookmarks(strBMName).Range
rng.Text = strText & Strich
ActiveDocument.Bookmarks.Add strBMName, rng
End If
End Function
[/code]

wie schaffe ich es aber, dass, wenn der übergebene string "strText"
LEER ist nichts eingetragen wird - derzeit erscheit ja trotzdem
immer noch " -" - kriege ich das irgendwie mit ner if-anweisung hin?

euch noch nen tollen sonntag und so

der jens aus berlin
 

Lesen sie die antworten

#1 Wolfram Jahn
25/05/2008 - 22:55 | Warnen spam
jensspeedy schrieb:

[code]
Function ReplaceBookmarkText_4(strBMName As String, strText As String)
Dim rng As Range



If "" & strText = "" then
Strich = ""
Else
Strich = " -"


End If
If ActiveDocument.Bookmarks.Exists(strBMName) Then
Set rng = ActiveDocument.Bookmarks(strBMName).Range
rng.Text = strText & Strich
ActiveDocument.Bookmarks.Add strBMName, rng
End If
End Function
[/code]




Wolfram

Ähnliche fragen