|
|
|
PowerPoint>>Word
|
|||
|---|---|---|---|
|
#18+
Dim appWD As Object Set appWD = CreateObject("Word.Application") appWD.Documents.Open (tpath + "\obrazec.dot") appWD.Visible = True With appWD .Selection.MoveRight Unit:=wdCharacter, Count:=43, Extend:=wdExtend ' не в какую не работает! .Selection.MoveRight ' Работает без проблем End With Мне нужно выделить один символ в документе Word, который я открываю макросом с PowerPoint'a. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.12.2010, 00:36 |
|
||
|
PowerPoint>>Word
|
|||
|---|---|---|---|
|
#18+
Macht59Dim appWD As Object Set appWD = CreateObject("Word.Application") appWD.Documents.Open (tpath + "\obrazec.dot") appWD.Visible = True With appWD .Selection.MoveRight Unit:=wdCharacter, Count:=43, Extend:=wdExtend ' не в какую не работает! .Selection.MoveRight ' Работает без проблем End With Мне нужно выделить один символ в документе Word, который я открываю макросом с PowerPoint'a. PowerPoint не видит wdExtend узнайте ее значение в ворде и подставьте значением ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.12.2010, 09:24 |
|
||
|
|
start [/forum/topic.php?desktop=1&fid=61&tid=2177313]: |
0ms |
get settings: |
10ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
165ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
47ms |
get tp. blocked users: |
1ms |
| others: | 228ms |
| total: | 493ms |
| 0 / 0 |
