OFF powerpoint wordcount

link 13.08.2010 8:38

Subject: OFF powerpoint wordcount

Пожалуйста подскажите есть ли способ быстрого подсчета знаков в Powerpoint кроме копирования каждого слайда с последующей его вставкой в Ворд?

Susan79 ✉

link 13.08.2010 8:44

The only way I have ever been able to do it IS by copying it into Word.

Enote ✉

link 13.08.2010 8:50

дык там есть счетчик слов, в самом поверпоинте

Андатра ✉

link 13.08.2010 8:53

Кликнуть на файл правой кнопкой, там во вкладке Подробно есть количество слов

Igorrr ✉

link 13.08.2010 8:59

Атата! В поверпойнте нет статистики по символам. Я спасался макросами! Сработало очень хорошо. (Было 60 страниц - до сих пор бы наверно копировал в ворд)

Использовал следующий метод:

http://forum.ixbt.com/topic.cgi?id=23:22668

kondorsky ✉

link 13.08.2010 9:00

Большое спасибо, Андатра!

_MarS_ ✉

link 13.08.2010 9:05

Igorr, а быстро это у Вас получилось? Потому что копировать из ppt в Word по кусочкам уж очень муторно выйдет...

Igorrr ✉

link 13.08.2010 9:27

В пойнте (2007) открываем закладку "разработчик",
там слева выбираем приложение visual basic.
В данном приложении выбираем закладку insert, затем module.

В появившееся окно вставляем следующий текст

Public Sub TextSymbols()
Dim PPT As Slide
Dim i As Long
Dim j As Long
Dim k As Long
Dim Symbs As Long

On Error GoTo SysErr

If Windows.Count = 0 Then
MsgBox "Необходимо открыть файл презентации.", vbExclamation + vbOKOnly
Exit Sub
End If

Symbs = 0

For i = 1 To ActivePresentation.Slides.Count
Set PPT = ActivePresentation.Slides(i)

For j = 1 To PPT.Shapes.Count
If PPT.Shapes(j).TextFrame.HasText = msoTrue Then Symbs = Symbs + Len(PPT.Shapes(j).TextFrame.TextRange.Text)

If PPT.Shapes(j).GroupItems.Count > 0 Then
For k = 1 To PPT.Shapes(j).GroupItems.Count
If PPT.Shapes(j).GroupItems(k).TextFrame.HasText = msoTrue Then Symbs = Symbs + Len(PPT.Shapes(j).GroupItems(k).TextFrame.TextRange.Text)
Next k
End If
Next j
Next i

MsgBox "Символов=" + Trim(Str(Symbs))

SysErr:
Resume Next
End Sub

Сохраняем и возвращаемся в презентацию. В ней в разрабочтике находим кнопку макросы и выбираем его запуск. Вуаля! =)

Испытайте плиз этот метод.

Igorrr ✉

link 13.08.2010 9:27

У меня это заняло пару минут

tumanov ✉

link 13.08.2010 9:50

Ну, можно и не создавать индивидуальный аналог Виндовз собственной разработки для решения новой задачи каждый раз

:0))

http://www.practiline.com/download.htm

Igorrr ✉

link 13.08.2010 10:01

Here you can download a free evaluation version of PractiCount and Invoice shareware for the 15 days trial use

Дак это платно же (после 15 дней-то)!!!

akhmed ✉

link 13.08.2010 10:05

TagEditor считает символы, если Традос есть

x-translator ✉

link 13.08.2010 11:54

Igorrr, поймите меня правильно, но мы же в России живем...;-)

Igorrr ✉

link 13.08.2010 12:41

x-translator, я всё прекрасно понимаю. Ну, в принципе можно и поискать обходные пути трайла) но, прога редкостная

tumanov ✉

link 13.08.2010 16:08

Если переводчик переводит тоже за деньги, то сумма оплаченная за программу — это даже смешно сказать.

Другое дело, если вы переводите за бесплатно...
Но зачем это все тогда?

:0))

Igorrr ✉

link 13.08.2010 16:17

Опять вы двадцать пять) тему ценового позиционирования на рынке переводческих услуг измусолили уже везде где можно и даже где нельзя)))

Если посмотреть объективно: тут одтать за эту прогу деньжат, плюс за традос, плюс за офисы, архиваторы, файнридеры и так далее, плюс антивиры, в общем за ВЕСЬ СОФТ, то думаю даже уже вы задумаетесь над целесообразностью этих растрат)

Igorrr ✉

link 13.08.2010 16:19

К тому же, способ предоженный мной бесплатный =) труда особого не представляет. Есть ведь еще дело принципа)

tumanov ✉

link 13.08.2010 16:26

Кто ж спорит
ПринсИпы — это принсипы.

Кто снижает расходы, кто повышает доходы.

Вот что-то я давно не замечал, чтобы профессиональные каменщики себе сами инструмент по кузням ковали.

А если вы работает, как любитель, то тогда, конечно, и версии на 15 дней хватит.

tumanov ✉

link 13.08.2010 16:40

В рассуждениях про купи то, купи то, и денег не будет, есть некоторая доля лукавства.

Практикаунт стоит денег, если покупать толко его.
Если же купить традос или транслэйшн офис 3000, то практикаунт покупать не нужно совсем.
Функции подсчета знаков уж включены в большие программы и вполне самодостаточны.

You need to be logged in to post in the forum

Get short URL