Есть макрос на VB в Worde, который через "Найти и заменить" заменяет слова в документе словами из файла-словаря в Excel'е. Меняет код товара на его цену. Нужно добавить функцию округления до целого для цен больше N. N прописывается в коде макроса.
Также нужен второй вариант этого скрипта, чтобы он работал в LIbreOffice.
Sub zamena()
'
' zamena Ìàêðîñ
' Ìàêðîñ ñîçäàí 09.12.2014
'
Dim xl As Object, wbk As Object, wsh As Object, rn As Object, r As Long
Set xl = CreateObject("Excel.Application")
Set wbk = xl.Workbooks.Open(ThisDocument.Path & "\dict.xls")
Set wsh = wbk.Worksheets(1)
Set rn = wsh.Cells
For r = 2 To 65536
If rn(r, 1) = "" Then Exit For
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = rn(r, 1)
.Replacement.Text = rn(r, 3)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
Next r
Set rn = Nothing
Set wsh = Nothing
wbk.Close False
Set wbk = Nothing
xl.Quit 'exit'
Set xl = Nothing
End Sub
Опубликован 11.12.2014 в 07:10
Заказ находится в архиве