ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / numbered paragraphs from Word to Excel
10 сообщений из 10, страница 1 из 1
numbered paragraphs from Word to Excel
    #39566783
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
there are paragraphs in word
1.doc:
1. text
1.1. text
...
20.text
20.1. text
20.1.1. text
....
numbers of points to convert and excel
no text
1.xls:
1.
1.1.
...
20.
20.1.
20.1.1.

thank you.
...
Рейтинг: 0 / 0
08.12.2017, 18:23
| Ответить | Цитировать | Написать  
numbered paragraphs from Word to Excel
    #39566795
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
>and excel
In excel
...
Рейтинг: 0 / 0
08.12.2017, 18:45
| Ответить | Цитировать | Написать  
numbered paragraphs from Word to Excel
    #39566812
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Amiri,
can you attach an example in Word & Excel? Where should the code run from - Word, Excel, vbs?
...
Рейтинг: 0 / 0
08.12.2017, 20:01
| Ответить | Цитировать | Написать  
numbered paragraphs from Word to Excel
    #39566827
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
КазанскийAmiri,
can you attach an example in Word & Excel? Where should the code run from - Word, Excel, vbs?

sorry here is an example
...
Рейтинг: 0 / 0
08.12.2017, 20:49
| Ответить | Цитировать | Написать  
numbered paragraphs from Word to Excel
    #39566828
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
in excel
A B
------
1 |
------
1.1 |
------
1.1.1|
...
Рейтинг: 0 / 0
08.12.2017, 20:53
| Ответить | Цитировать | Написать  
numbered paragraphs from Word to Excel
    #39566831
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
I think to do so, save the word to txt file, remove the text leaving only the numbers. replace a character by another character for example · 183 267 B7. import Excel
...
Рейтинг: 0 / 0
08.12.2017, 21:06
| Ответить | Цитировать | Написать  
numbered paragraphs from Word to Excel
    #39566833
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
crazy method. just to a head more comes nothing.
replace in excel different characters on the dot.
...
Рейтинг: 0 / 0
08.12.2017, 21:14
| Ответить | Цитировать | Написать  
numbered paragraphs from Word to Excel
    #39566834
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
fu* up best practice (
...
Рейтинг: 0 / 0
08.12.2017, 21:18
| Ответить | Цитировать | Написать  
numbered paragraphs from Word to Excel
    #39566845
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Amiri,
try this in Word. Excel must be running, the code will create a new workbook and place text there.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub bb()
Dim p As Paragraph, i&, s$
  With GetObject(, "excel.application").workbooks.Add(-4167).worksheets(1)
    .Columns(1).NumberFormat = "@"
    For Each p In ActiveDocument.Paragraphs
      i = i + 1
      .Cells(i, 1) = p.Range.ListFormat.ListString
      s = p.Range.Text
      .Cells(i, 2) = Left$(s, Len(s) - 1)
    Next
    .Application.Visible = True
  End With
End Sub
...
Рейтинг: 0 / 0
08.12.2017, 22:19
| Ответить | Цитировать | Написать  
numbered paragraphs from Word to Excel
    #39566871
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
КазанскийAmiri,
try this in Word. Excel must be running, the code will create a new workbook and place text there.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub bb()
Dim p As Paragraph, i&, s$
  With GetObject(, "excel.application").workbooks.Add(-4167).worksheets(1)
    .Columns(1).NumberFormat = "@"
    For Each p In ActiveDocument.Paragraphs
      i = i + 1
      .Cells(i, 1) = p.Range.ListFormat.ListString
      s = p.Range.Text
      .Cells(i, 2) = Left$(s, Len(s) - 1)
    Next
    .Application.Visible = True
  End With
End Sub


it really works ) thank. and you can remove all the text leaving only the numbers. there is a very large document points to 1.1.1 and to 500.43.1
best practices

in dog f1n(dot)in (contact f u in case)
...
Рейтинг: 0 / 0
08.12.2017, 23:42
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / numbered paragraphs from Word to Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39566795&tid=2172462]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 64ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 13ms
total:  170ms
созд. / загр.: 170ms
x
x
Закрыть


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