ConceptProd/WordAI
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace literals with ChrW

Browse Source
This commit is contained in:
Ivan 2024-08-05 14:06:31 +03:00
parent eddee9e5eb
commit 18ddcf23bf
3 changed files with 36 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
VERSION
View File

@ -1 +1 @@
1.3.1
1.3.2

67
src/LinkMappingUnit.cls
View File

@ -64,52 +64,51 @@ Private Sub Class_Initialize()
Dim rule As LMUItem
Set rule = New LMUItem
rule.repWhat = "! àðõèâ\Income"
rule.repList.Add ("00 Àðõèâ\01 Èíêàì")
' ! àðõèâ\Income
rule.repWhat = ChrW(33) & ChrW(1042) & ChrW(32) & ChrW(1072) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & "\Income"
' 00 Àðõèâ\01 Èíêàì
rule.repList.Add ChrW(48) & ChrW(48) & ChrW(32) & ChrW(1040) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & ChrW(92) & _
ChrW(48) & ChrW(49) & ChrW(32) & ChrW(1048) & ChrW(1085) & ChrW(1082) & ChrW(1072) & ChrW(1084)
Call m_ReplaceMap.Add(rule)
Set rule = New LMUItem
rule.repWhat = "! àðõèâ\Outcome"
rule.repList.Add ("00 Àðõèâ\02 Àóòêàì")
' ! àðõèâ\Outcome
rule.repWhat = ChrW(33) & ChrW(1042) & ChrW(32) & ChrW(1072) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & "\Outcome"
' 00 Àðõèâ\02 Àóòêàì
rule.repList.Add ChrW(48) & ChrW(48) & ChrW(32) & ChrW(1040) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & ChrW(92) & _
ChrW(48) & ChrW(50) & ChrW(32) & ChrW(1040) & ChrW(1091) & ChrW(1090) & ChrW(1082) & ChrW(1072) & ChrW(1084)
Call m_ReplaceMap.Add(rule)
Set rule = New LMUItem
rule.repWhat = "01 Income-ïðîåêòû\àðõèâèðîâàòü"
rule.repList.Add ("! àðõèâ\Income")
rule.repList.Add ("00 Àðõèâ\01 Èíêàì")
' 01 Income-ïðîåêòû\àðõèâèðîâàòü
rule.repWhat = "01 Income-" & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1099) & _
"\" & ChrW(1072) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & ChrW(1080) & ChrW(1088) & ChrW(1086) & _
ChrW(1074) & ChrW(1072) & ChrW(1090) & ChrW(1100)
' ! àðõèâ\Income
rule.repList.Add ChrW(33) & ChrW(1042) & ChrW(32) & ChrW(1072) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & "\Income"
' 00 Àðõèâ\01 Èíêàì
rule.repList.Add ChrW(48) & ChrW(48) & ChrW(32) & ChrW(1040) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & ChrW(92) & _
ChrW(48) & ChrW(49) & ChrW(32) & ChrW(1048) & ChrW(1085) & ChrW(1082) & ChrW(1072) & ChrW(1084)
Call m_ReplaceMap.Add(rule)
Set rule = New LMUItem
rule.repWhat = "01 Income-ïðîåêòû"
rule.repList.Add ("! àðõèâ\Income")
rule.repList.Add ("00 Àðõèâ\01 Èíêàì")
' 01 Income-ïðîåêòû
rule.repWhat = "01 Income-" & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1099)
' ! àðõèâ\Income
rule.repList.Add ChrW(33) & ChrW(1042) & ChrW(32) & ChrW(1072) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & "\Income"
' 00 Àðõèâ\01 Èíêàì
rule.repList.Add ChrW(48) & ChrW(48) & ChrW(32) & ChrW(1040) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & ChrW(92) & _
ChrW(48) & ChrW(49) & ChrW(32) & ChrW(1048) & ChrW(1085) & ChrW(1082) & ChrW(1072) & ChrW(1084)
Call m_ReplaceMap.Add(rule)
Set rule = New LMUItem
rule.repWhat = "02 Outcome-ïðîåêòû"
rule.repList.Add ("! àðõèâ\Outcome")
rule.repList.Add ("00 Àðõèâ\02 Àóòêàì")
Call m_ReplaceMap.Add(rule)
Set rule = New LMUItem
rule.repWhat = "03 Ïåðåãîâîðû Àêòèâíûå"
rule.repList.Add ("00 Àðõèâ\03 Ïåðåãîâîðû")
rule.repList.Add ("! àðõèâ\Ïåðåãîâîðû")
rule.repList.Add ("! àðõèâ\Income")
rule.repList.Add ("00 Àðõèâ\01 Èíêàì")
rule.repList.Add ("01 Income-ïðîåêòû")
rule.repList.Add ("02 Outcome-ïðîåêòû")
Call m_ReplaceMap.Add(rule)
Set rule = New LMUItem
rule.repWhat = "03 1 Ïåðåãîâîðû âîçìîæíûå"
rule.repList.Add ("00 Àðõèâ\03 Ïåðåãîâîðû")
rule.repList.Add ("03 Ïåðåãîâîðû Àêòèâíûå")
Call m_ReplaceMap.Add(rule)
Set rule = New LMUItem
rule.repWhat = "05 ÑÎÓ Êîíöåïò\ÍÒÑ"
rule.repList.Add ("05 ÑÎÓ Êîíöåïò\04 ÍÒÑ")
' 02 Outcome-ïðîåêòû
rule.repWhat = "02 Outcome-" & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1099)
' ! àðõèâ\Outcome
rule.repList.Add ChrW(33) & ChrW(1042) & ChrW(32) & ChrW(1072) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & "\Outcome"
' 00 Àðõèâ\02 Àóòêàì
rule.repList.Add ChrW(48) & ChrW(48) & ChrW(32) & ChrW(1040) & ChrW(1088) & ChrW(1093) & ChrW(1080) & ChrW(1074) & ChrW(92) & _
ChrW(48) & ChrW(50) & ChrW(32) & ChrW(1040) & ChrW(1091) & ChrW(1090) & ChrW(1082) & ChrW(1072) & ChrW(1084)
Call m_ReplaceMap.Add(rule)
End Sub

5
src/MainImpl.bas
View File

@ -80,10 +80,9 @@ Public Function FixHyperlinksIn(target As Word.Range) As LMU_LinksInfo
If linkRange.HighlightColorIndex = wdTurquoise Then _
linkRange.HighlightColorIndex = wdAuto
If StrComp(linkRange.Text, SafeGetHLinkAddress(aLink)) Then _
If StrComp(LCase(linkRange.Text), LCase(aLink.Address), vbTextCompare) = 0 Then _
linkRange.Text = linkAdr
linkRange.Text = linkRange.Text
Call ActiveDocument.Hyperlinks.Add(linkRange, linkAdr)
Case RV_LINK_NOFIX: