|
|
|
Запись в Word-овский файл
|
|||
|---|---|---|---|
|
#18+
В VB6 необходимо дописать в Word-овский файл или предварительно создать его, делаю: Dim wdApp As Object, wdDoc As Object If <файла нет, создаем> Set wdApp = CreateObject("Word.application") Set wdDoc = wdApp.Documents.Add wdApp.ActiveDocument.SaveAs FileName:="D:\Name" End If Set wdDoc = GetObject("D:\Name") Далее пытаюсь записать строчку wdDoc.ActiveDocument.SaveAs ("ПРОБА") Не получается, в чем ошибка не пойму. Помогите плиз. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.06.2006, 15:39 |
|
||
|
Запись в Word-овский файл
|
|||
|---|---|---|---|
|
#18+
wdDoc.Selection.TypeText Text:="sdfsdfsdfsdf" wd.Doc.Selection.TypeParagraph Примерно вот так. Вообще-то, самый лучший способ - это запустить word, потом сервис->макрос->начать запись. набрать какой-нибудь текст, а потом посмотреть что он в макрос засунул. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.06.2006, 16:01 |
|
||
|
|
start [/forum/topic.php?fid=60&fpage=275&tid=2165651]: |
0ms |
get settings: |
7ms |
get forum list: |
12ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
56ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
35ms |
get tp. blocked users: |
1ms |
| others: | 208ms |
| total: | 334ms |
| 0 / 0 |
