| ← Апрель 2007 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
2
|
3
|
4
|
5
|
6
|
8
|
|
|
11
|
12
|
|||||
|
21
|
22
|
|||||
|
23
|
29
|
|||||
|
30
|
||||||
За последние 60 дней ни разу не выходила
Сайт листа:
http://crimeanhome.com/word/
Открыт:
20-01-2004
Пре-модерация: Да
Адрес для писем в лист: comp.soft.others.word-list@subscribe.ru
Здравствуйте, Владислав.
ВД> Если в рассылке есть люди, которые помогут мне написать макрос,
ВД> позволяющий приводить документы *.txt в *.doc по алгоритму, который я
ВД> использую часто, прошу откликнуться на личку.
Орлов Антон Александрович, помещал на своем сайте dos-конвертер с
открытым кодом. У меня сохранился архив (50Кб).
Вы всегда можете скачать эту программу с сайта www.chat.ru/~antorlov/orlov.htm
Проверил, там ее нет, но есть другие интересные макросы.
Здравствуйте уважаемые участники рассылки!
Надеюсь, что тема ещё актуальна.
Я некоторое время назад столкнулся с такой же проблемой, вот только
документ был раза в 3 больше.
Из этой же расслки мне помог один добрый человек, его же советом хочу
поделиться и с вами.
Он прислал мне простейшие макросы, при помощи которых проблема лишних
пробелов снимается одни нажатием клавишь или мышки.
--
Sub SpaceRemove()
SpaceRemoveSub (10)
SpaceRemoveSub (9)
SpaceRemoveSub (8)
SpaceRemoveSub (7)
SpaceRemoveSub (6)
SpaceRemoveSub (5)
SpaceRemoveSub (4)
SpaceRemoveSub (3)
SpaceRemoveSub (2)
End Sub
Sub SpaceRemoveSub(iVal As Integer)
Dim sStrSearch As String
sStrSearch = Space(iVal)
With ActiveDocument.Content.Find
.ClearFormatting
With .Replacement
.ClearFormatting
End With
.Execute FindText:=sStrSearch, ReplaceWith:=" ", Format:=True, Replace:=wdReplaceAll
End With
Selection.HomeKey Unit:=wdStory
End Sub
Теперь если находясь в документе вызвать на выполнение SpaceRemove, то будут
удалены все незначимые пробелы.
С уважением, POL
--
Если в рассылке есть люди, которые помогут мне написать макрос,
позволяющий приводить документы *.txt в *.doc по алгоритму, который я
использую часто, прошу откликнуться на личку.
Всего хорошего.
--
С уважением
Владислав Демьянов
vgd@m*****.kz
Здравствуйте, уважаемые члены рассылки!
Есть один вопрос...
Вывожу в Excel результаты из некой программы,
вывожу в 1=ый столбец некоторые числа, 101 строке суммирую все по столбцу, во
второй столбец хочу вывести относительные величины, т.е. значения из первого
столбца, деленные на сумму...
пишу в программе цикл по строкам и в цикле
Sheet.Cells[i,2].FormulaR1C1:='RC[-1]';
вот это работает, списано из макроса, переносит во второй столбец значения первого,
но мне надо все еще разделить на сумму первого столбца
когда пишу
Sheet.Cells[i,2].FormulaR1C1:='RC[-1]/R[101-i]C[-1]';
такую формулу Excel не выполняет,
если ввести промежуточную переменную
k1:=101-i
и
Sheet.Cells[i,2].FormulaR1C1:='RC[-1]/R[k1]C[-1]';
но и такая запись не воспринимается Excel-ем...
посмотрел как это делает макрос, но он для каждой строки вставляет конкретную
цифру, равную разности между строкой суммы и конкретной строкой...
вот и вопрос, что мне написать в правой части формулы
'RC[-1]/R[101-i]C[-1]'
С уважением и надеждой на ответ, Shap M. P.
