powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как посчитать количество символов, которые поместятся на одну строку Word?
9 сообщений из 9, страница 1 из 1
Как посчитать количество символов, которые поместятся на одну строку Word?
    #39053832
msleg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день! Нужно с помошью VBA посчитать максимальное кол-во символов, которые могут поместится на одну строчку в WORD. Есть ли встроенные методы это сделать? Или как это можно реализовать. Можете скинуть пример?
...
Рейтинг: 0 / 0
Как посчитать количество символов, которые поместятся на одну строку Word?
    #39053852
Фотография Surrogate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
msleg,

думаю встроенных методов нет.
...
Рейтинг: 0 / 0
Как посчитать количество символов, которые поместятся на одну строку Word?
    #39053877
msleg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Surrogate, а как можно это реализовать?
...
Рейтинг: 0 / 0
Как посчитать количество символов, которые поместятся на одну строку Word?
    #39053956
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да тупо как раз натюкать символов до переноса на другую строку и посчитать, сколько осталось в строке.
Значение-то нефиксированное, и дохрена от чего зависит (шрифт, границы и пр.).
Опять же есть такая фигня, как TextWidth...
...
Рейтинг: 0 / 0
Как посчитать количество символов, которые поместятся на одну строку Word?
    #39053961
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
msleg,
пока вопрос выглядит примерно как "сколько ангелов могут поместиться на кончике иглы?"
Большинство шрифтов - пропорциональные, и количество символов сильно зависит от состава символов, классический пример - WWWW и iiii . А размер шрифта, интервал?
...
Рейтинг: 0 / 0
Как посчитать количество символов, которые поместятся на одну строку Word?
    #39054113
msleg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Казанский,

Так вот как раз вопрос в том и заключается. Как только запускается макрос, он считает в зависимости от тех условий (шрифты и т.д) до старта макроса
...
Рейтинг: 0 / 0
Как посчитать количество символов, которые поместятся на одну строку Word?
    #39054141
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
msleg,

если строка еще не заполнена - то кол-во вмещаемых в строку символов может меняться в зависимости от самих символов, которые записаны. Если шрифт моноширный - то можно до записи узнать. А если нет - Казанский привел пример, в котором при одинаковом кол-ве символов места в строке занимается в разы меньше. А это значит, что в одну строку поместится 25 символов W и 50 символов i...

Поэтому обозначьте вопрос чуть конкретнее: надо просчитать уже заполненные строки или делать это перед заполнением? Во втором случае никак не узнать, пока текст не будет внесен в документ ибо никто никогда не узнает, что туда планируется вводить и сколько оно может занять места.
...
Рейтинг: 0 / 0
Как посчитать количество символов, которые поместятся на одну строку Word?
    #39056681
msleg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ок формируется текстовая таблица типа как ниже. Мне нужно понять поместится она на лист ворда (ширина которого может быть разная, но важно это на момент исполнения макроса) или нет? Считать можно по символу "-"
Код: vbnet
1.
2.
3.
4.
5.
+----------------------+--------------------+--------------------+--------------------+
| Уплотненная щебеночно|вид                 |должен быть ЩМА- 15 |                    |
|-мастичная асфальтобет|                    |                    |                    |
|онная смесь           |                    |                    |                    |
+----------------------+--------------------+--------------------+--------------------+
...
Рейтинг: 0 / 0
Как посчитать количество символов, которые поместятся на одну строку Word?
    #39056803
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
msleg,
таблица псевдографикой в 21 веке?! Где моя молодость, ЭВМ СМ-4, АЦПУ СМ6315 (132 знака в строке)!
Пробуйте
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub CharsInLine()
Dim i&, j&
  Selection.EndKey Unit:=wdStory
  Selection.TypeParagraph
  Selection.Font.Name = "Courier New" 'моноширинный шрифт - иначе затея не имеет смысла
  i = Selection.Information(wdFirstCharacterLineNumber)
  Do
    Selection.TypeText "-"
    j = j + 1
    Selection.Collapse wdCollapseEnd
  Loop Until Selection.Information(wdFirstCharacterLineNumber) <> i
  ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Delete
  MsgBox "Символов в строке: " & j - 1
End Sub
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как посчитать количество символов, которые поместятся на одну строку Word?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]