title image


Smiley VBA: FormattedText in einer Variablen vor dem kopieren bearbeiten?


Hallo!



Ich beziehe mich mehr oder weniger auf



http://mypage.bluewin.ch/reprobst/WordFAQ/Range.htm#Range10



Wie kann ich via FormattedText Text mit Format kopieren, diesen Text aber unterwegs noch bearbeiten (also z.B. Bindestriche etc. via VBA entfernen)?

Ich möchte den Text gerne via replace bearbeiten, also in einer Variable und nicht

via SuchenErsetzen erst nach dem Einfügen.



Letztlich ist es vielleicht eine Frage der Schnittstelle der function; der VariablenTyp string zerstört die Formatierung, der VariablenTyp FormattedText existiert nicht.



Wenn ich z.B. folgene function verwende





Private Function Convert(strConvertWhat As String) _

As String



' kann kleinere Konvertierungen und Formatierungen vornehmen,



strConvertWhat = Replace(strConvertWhat, Chr(11), "")

strConvertWhat = Replace(strConvertWhat, Chr(7), "")

strConvertWhat = Replace(strConvertWhat, Chr(13), "")

Convert = Trim(strConvertWhat)



End Function



Aufruf als:

tableSeite1.Cell(k, intSpalteSeite1).Range.Text = _

Convert(docOldDoc.Tables(1).Cell(i, 1).Range.Text)



Wie kann ich vorgehen?



Vielen Dank!



Chrisir







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: