Макрос для копирования чисел в таблицу MS WORD

[stp706]

Спасибо Вам большое! Замечательно все работает! Как я могу Вас отблагодарить?

[Sasha_Smirnov]

Прийти в себя!

[Казанский]

До кучи

Sub stp706()
Dim x, ds$, v$(), i&, r As Range, res As Object
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
  .Global = True
  .Pattern = "\d*\.\d*"
  Set res = .Execute(ActiveDocument.Range.Text)
End With
ReDim v(0 To res.Count)
ds = Mid$(0.5, 2, 1) 'decimal separator
For Each x In res
  v(i) = Replace$(Format$(Val(x), "0.000"), ds, ".")
  i = i + 1
Next
Set r = ActiveDocument.Range
r.InsertParagraphAfter
r.Collapse wdCollapseEnd
With r.Tables.Add(r, 1, i)
  For i = 1 To i
    .Cell(1, i).Range = v(i - 1)
  Next
End With
Application.ScreenUpdating = True
End Sub

[Sasha_Smirnov]

Сообщение от Казанский

127.0.0.1       googlesyndication.com
127.0.0.1       pagead2.googlesyndication.com
127.0.0.1       www.google-analytics.com
127.0.0.1       googleads.g.doubleclick.net
127.0.0.1       an.yandex.ru

Видно, нужные книги вы в детстве читали! Спасибо. Сначала забыл про это, но…

Но не совсем помогло: после попытки установить Оперу 10.63 стали (в моём Яндексбраузере) выползать рекламные окна; теперь их не видно — но не пропал крестик "Закрыть" (на рисунке обведён). Искал последние exe-файлы (их убивание обычно помогало) — замаскировались! Что можно сделать (кроме переустановки Windows), чтоб эти недобитые окошки* победить?

(Спрашиваю здесь, поскольку уже пошло-поехало и ноги выросли!)
______________________
* они лезут даже на диалог "Управление вложениями"!

[Sasha_Smirnov]

Сообщение от Sasha_Smirnov

они лезут даже на диалог "Управление вложениями"!

Уже не лезут. То ли антивирус до них добрался, то ли я сам (подмёл в скрытых файлах).