Target.Offset(0, 1).Value = Right(str_txt, str_len - desired_len) Target.Value = Left(str_txt, desired_len) If (Not Intersect(range1, Target) Is Nothing) Or Not (Intersect(range1, Target) Is Nothing) Then Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
#Synctwofolders outlook code#
i want to alter the code so that it splits the sentence after a whole word.
For example in the sentence "how are you I have not seen you for lo" "ng" the word "long" is split after "lo" because the limit of 38 charterers end there. I am working on some subtitling and translation projects where I have to get the English Language scripts to be translated in various languages.įor this there are a couple of criteria to be followed likeġ)Each line of translation should not exceed 38 charterers in lengthĢ)There should not be any word typed in English in the translationĪs of now I have a VB script which limits the defined cell to 38 charterers and automatically shifts any thing above that to the next right cell.But it cuts any thing above 38 characters so even a word gets split.
0 kommentar(er)
