Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / numbered paragraphs from Word to Excel / 10 сообщений из 10, страница 1 из 1
08.12.2017, 18:23
    #39566783
Amiri
Amiri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
numbered paragraphs from Word to Excel
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:45
    #39566795
Amiri
Amiri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
numbered paragraphs from Word to Excel
>and excel
In excel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2017, 20:01
    #39566812
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
numbered paragraphs from Word to Excel
Amiri,
can you attach an example in Word & Excel? Where should the code run from - Word, Excel, vbs?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2017, 20:49
    #39566827
Amiri
Amiri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
numbered paragraphs from Word to Excel
Казанский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:53
    #39566828
Amiri
Amiri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
numbered paragraphs from Word to Excel
in excel
A B
------
1 |
------
1.1 |
------
1.1.1|
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2017, 21:06
    #39566831
Amiri
Amiri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
numbered paragraphs from Word to Excel
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:14
    #39566833
Amiri
Amiri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
numbered paragraphs from Word to Excel
crazy method. just to a head more comes nothing.
replace in excel different characters on the dot.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2017, 21:18
    #39566834
Amiri
Amiri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
numbered paragraphs from Word to Excel
fu* up best practice (
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2017, 22:19
    #39566845
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
numbered paragraphs from Word to Excel
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, 23:42
    #39566871
Amiri
Amiri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
numbered paragraphs from Word to Excel
Казанский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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / numbered paragraphs from Word to Excel / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 445ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172462]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 40ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 302ms
total:  445ms
x
x
Закрыть


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