|
|
|
как создать новый документ
|
|||
|---|---|---|---|
|
#18+
как в макросе создать новый документ Я пишу: Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(ActiveDocument.Path & Application.PathSeparator & "new.doc", True) как можно обойтися без FSO ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2005, 11:20:40 |
|
||
|
как создать новый документ
|
|||
|---|---|---|---|
|
#18+
А зачем его создавать? Если это файл Word, то открывайте Word и создавайте в нем. Если это текстовый файл, то создавайте его средствами VB - Open/Close. "Дело не во фраке, а что в ём" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2005, 11:39:25 |
|
||
|
как создать новый документ
|
|||
|---|---|---|---|
|
#18+
есть макрос который создает Word-документы и копирует в них текст. Так что просто зайти в Word и создать мне не подходит ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2005, 11:43:57 |
|
||
|
как создать новый документ
|
|||
|---|---|---|---|
|
#18+
Так если он уже создает, что Вам еще надо? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2005, 11:50:44 |
|
||
|
как создать новый документ
|
|||
|---|---|---|---|
|
#18+
у меня такая проблема Есть документ Word 1.1. Текст задачи 1.2. Текст задачи 1.3. Текст задачи Необходимо создать отдельные документы 1.doc, 2.doc, 3.doc с текстом задачи я написала макрос: k = ActiveDocument.Lists.Count lt = ActiveDocument.Lists(k).CountNumberedItems Set fs = CreateObject("Scripting.FileSystemObject") For I = 1 To lt Set a = fs.CreateTextFile(ActiveDocument.Path & Application.PathSeparator & I ".doc", True) a.writeline (ActiveDocument.Lists(k).ListParagraphs(I).Range) Next I Все вроде работает хорошо. Но когда в тексте задачи есть формулы, то они не копируются в новые документы. Надо чтобы зароботало с формулами. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2005, 11:57:04 |
|
||
|
как создать новый документ
|
|||
|---|---|---|---|
|
#18+
Откройте Word: set w=CreateObject("Word.Application"). В нем создайте документ: set wd=w.Documents.Add. Делайте с ним, что хотите, а потом закройте wd.Close wdSaveChanges. А в конце закройте и сам Word: w.Quit wdDoNotSaveChanges. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2005, 12:06:34 |
|
||
|
как создать новый документ
|
|||
|---|---|---|---|
|
#18+
что то у меня не получается пишет ошибку Object doesn't support this property or method ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2005, 12:27:19 |
|
||
|
как создать новый документ
|
|||
|---|---|---|---|
|
#18+
как в Documents.Add указать имя нового файла ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2005, 12:34:51 |
|
||
|
|
start [/forum/topic.php?fid=60&gotonew=1&tid=2168118]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
44ms |
get topic data: |
9ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
43ms |
get tp. blocked users: |
1ms |
| others: | 207ms |
| total: | 343ms |
| 0 / 0 |
