Unicode во VB? И Preserve Case?

Се работи за обичен search/replace што го снимив како макро, но не ми дава да пастирам non-ANSI карактери во самиот VB Editor (инаку е Word 2003, ги избегнувам подоцнежните верзии затоа што ДРАСТИЧНО го успорија извршувањето на VB команди).

Ова е пример, не мора да се баш овие стрингови, но сакам да покажам дека има спејсови, ентери и најважното, букви со српско/хрватски квачици. Засега не ми требаат македонски букви, иако можеби ќе ми затребаат во иднина. Инаку се над 40 стрингови за замена што ќе бидат заменети во повеќе документи, како што доаѓаат.

Код:

Sub Macro()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " što "
.Replacement.Text = "^što "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " već "
.Replacement.Text = "^pveć "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Значи, овој пример не можам да го пастирам во VB едиторот, ги кине квачиците и š станува s. Постои ли начин да се зачуваат? Веројатно може да внесувам Unicode кодови, ама тогаш треба да го преправам целиот стринг и не знам дали и како се прави тоа со search/replace наредбава.

Исто така, при првиот обид, стринговиве ми ги заменува со мали букви, односно не го зачувува кејсот - и sto и Sto ги претвора во sto (само пример, има спејсови околу). Мислам дека Match Case ќе ги наоѓа само sto, а нема Sto, но уште не сум пробал, поважен ми е првиот проблем. Во моментов не можам да пробам пак, но ме интересира дали Match Case ќе го реши проблемот или потребно е нешто повеќе? Сакам sto да го претвори во sto, а Sto во Sto (со спејсовите што ќе бидат додадени/одземени, а тие си работат беспрекорно). Инаку ќе треба да ги дуплирам срчовите, од 40 да станат 80...

 

За првиот проблем проверив како тој снима такво макро и видов дека и тој додава карактер кодови:

Код:

.Text = " " & ChrW(353) & "to "
.Replacement.Text = "^p" & ChrW(353) & "to "

па веројатно ќе одам со тоа.

И вториот проблем реков како веројатно ќе биде, со дуплирање, ОСВЕН ако некој нема идеја како да направам loop (најголем проблем ми е што не знам каде да ги складирам паровите стрингови и како да ги влечам по два). Тоа би било и многу поелегантно и пофлексибилно, но немам толкаво знаење/искуство во VB.

 

Фала многу, сега го довршувам ова моето по груба сила да се уверам дека работи, па за неколку дена ќе го пробам твоето.

 

Пораснаа побарувањата на 70+ стрингови. Ќе морам со loop. Најмногу ме плаши тоа што бројачот (iloop1) ќе мора да го ускладувам секогаш со бројот на стринговите (не смее да брљави и да заменува празни стрингови или да дуплира). А и стринговите често ќе се менуваат во прво време, додека пробувам се` и сешто.

Нема начин тоа да се реши поелегантно? Знам дека при толку пати броење ќе утнам некогаш.