Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
- это использование КОМ из под лотус скриптпочти
нет, ну в тебе-то я и не сомневаюсь )) я, кстати, тоже считаю, что это где-то односложные задачи, особенно, если знать обе технологии и требования к результату.
это похоже на "я не знаю, но крепко уверен". с формированием XML может случится множество забавных приключений, особенно когда дело заходит в использование всяких спец символов, которые совпадают с спец символами XML.
ну чего ты мне все Выкаешь? в морду дать хочешь, что ли? ))
XML не самая простая "структура", и имея небольшой опыт его использования, можно косяков наловить уйму!
Function GetBookmarks(worddoc As Variant, bookmarks List As String) As Boolean
Erase bookmarks
Dim bmkName As String, bmkText As String
On Error Goto ErrorHandler
Forall mark In worddoc.Bookmarks
On Error Goto WrongMark
bmkName=mark.Name
worddoc.Application.Selection.GoTo wdGoToBookmark, , , bmkName
bmkText=worddoc.Application.Selection.Text
On Error Goto ErrorHandler
bookmarks(bmkName)=bmkText
Goto nxt
WrongMark:
Resume nxt
nxt:
End Forall
GetBookmarks=True
ExitFunctoin:
Exit Function
ErrorHandler:
Call RaiseError()
Erase bookmarks
Resume ExitFunctoin
End FunctionFunction GetListByTemplate(worddoc As Variant, template As String, textlist List As String) As Boolean
Erase textlist
On Error Goto ErrorHandler
Dim wObj As Variant
Dim rngToSearch As Variant
Dim rngResult As Variant
Dim i As Integer
Dim s As String
Set wObj = worddoc.Application
Set rngToSearch = worddoc.Content
Set rngResult = rngToSearch.Duplicate
'.Text = ""
rngResult.Find.Text = template '"\<*\>"
rngResult.Find.Forward = True
rngResult.Find.Wrap = wdFindStop
rngResult.Find.MatchCase = False
rngResult.Find.MatchWildcards = True
Do While rngResult.Find.Execute()
' rngResult.Find.Execute , MatchWildcards:=True, Forward:=True
' If Not rngResult.Find.Found Then Exit Do
i = i + 1
rngResult.Select
s = worddoc.Application.Selection.Text
rngResult.Collapse 0 'wdCollapseEnd
textList(s)=""
'rngResult.Start = rngResult.Start + Len(s)
'rngResult.End = rngResult.Start + 20
'rngResult.Select
's = worddoc.Application.Selection.Text
'and extending the end of rngResult
' rngResult.End = rngToSearch.End
'Loop Until Not rngResult.Find.Found
Loop
Print "Occurance#"+Cstr(i)
GetListByTemplate=True
ExitFunctoin:
Exit Function
ErrorHandler:
Call RaiseError()
Erase textlist
Resume ExitFunctoin
End FunctionFunction ReplaceByTemplate(replacementList List As String, worddoc As Variant) As Boolean
On Error Goto ErrorHandler
Dim wObj As Variant
Dim rngToSearch As Variant
Dim rngResult As Variant
Dim i As Integer
Dim s As String
Set wObj = worddoc.Application
Set rngToSearch = worddoc.Content
Forall m In replacementList
i=0
Set rngResult = rngToSearch.Duplicate
rngResult.Find.Text = Listtag(m)
rngResult.Find.Forward = True
rngResult.Find.Wrap = wdFindStop
rngResult.Find.MatchCase = False
rngResult.Find.MatchWildcards = True
rngResult.Find.Replacement.Text=m
rngResult.Find.Execute ,,,,,,,,,,wdReplaceAll
' Do While rngResult.Find.Execute()
' i = i + 1
' rngResult.Select
' worddoc.Application.Selection.Text=m
' rngResult.Collapse 0 'wdCollapseEnd
' Loop
Print {Значение:}Listtag(m) ' & ", #"+Cstr(i)
End Forall
ReplaceByTemplate=True
ExitFunctoin:
Exit Function
ErrorHandler:
Call RaiseError()
Resume ExitFunctoin
End FunctionSub Initialize
Dim textlist List As String
Dim worddoc As Variant
Set worddoc=GetWordDocumentObject("c:\test.doc")
Call GetListByTemplate(worddoc, "\<*\>",textlist)
Debug=True
Dim i As Integer
Forall m In textList
i=i+1
End Forall
DbgMsg("Unique strings#"+Cstr(i))
End SubSub Initialize
Dim textlist List As String
Dim worddoc As Variant
Set worddoc=GetWordDocumentObject("c:\test.doc")
textList({\<Сетра\>})={[Форма1]}
textList({\<Сетры\>})={[Форма2]}
textList({\<Сетре\>})={[Форма3]}
Call ReplaceByTemplate(textlist, worddoc)
End SubОбучение наступательной кибербезопасности в игровой форме. Начать игру!