Месяц: Май 2016

Получить данные после знака новой строки Chr(10)

Опубликовано автор kos20 — 2 комментария ↓

Function GetCompanyNameNew(r As Range) As Variant s_left = InStr(1, r, Chr(10), vbTextCompare) s_right = InStr(s_left + 1, r, Chr(10), vbTextCompare) If s_left = 0 Then GetCompanyNameNew = r Else GetCompanyNameNew = Mid(r, 1, s_left — 1) End If End Function Продолжить чтение Получить данные после знака новой строки Chr(10)→

Удалить разделы (разделители страниц) в ворде

Опубликовано автор kos20 — Нет комментариев ↓

Sub Удалить_раделы() ‘ Удаляет разделы в Ворде Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find Application.DisplayAlerts = False .Text = «^b» .Replacement.Text = «^p» .Wrap = wdFindContinue Application.DisplayAlerts = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub