Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / надстройка для word / 11 сообщений из 11, страница 1 из 1
07.01.2014, 19:23
    #38519146
Алекс82
Алекс82
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надстройка для word
Подскажите есть ли надстройка (программа) или макрос которая позволяла бы открыть файл word с последней редактированной страницы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.01.2014, 19:42
    #38519152
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надстройка для word
Алекс82Подскажите есть ли надстройка (программа) или макрос которая позволяла бы открыть файл word с последней редактированной страницы.

Если нажать Shift+F5, то курсор должен прыгнуть на место последнего редактирования.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.01.2014, 20:31
    #38519175
Алекс82
Алекс82
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надстройка для word
iMrTidy, нет это только в активном документе. Это не работает когда закрываешь файл и потом открываешь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.01.2014, 21:02
    #38519187
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надстройка для word
Можно при сохранении документа запомнить в Variables документа текущую позицию курсора, а при открытии переставлять на нее курсор.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2014, 00:45
    #38519307
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надстройка для word
Алекс82iMrTidy, нет это только в активном документе. Это не работает когда закрываешь файл и потом открываешь.

Значит у вас версия ниже 2010. Тогда можно каждый раз при закрытии файла сохранять позицию курсора, а при открытии соответственно задавать. Например, так:

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
Option Explicit

Const varname As String = "CurrentCursorPosition"

Dim docvar As variable
Dim position As String

Private Sub SaveCurrentCursorPosition()
On Error GoTo ErrTrap

Application.ScreenUpdating = False

position = Selection.Range.Start

For Each docvar In ActiveDocument.Variables
    If docvar.Name = varname Then
        Exit For
    End If
Next

If docvar Is Nothing Then
    ActiveDocument.Variables.Add varname, position
Else
    docvar.value = position
End If

Application.ScreenUpdating = True

Exit Sub
ErrTrap:
    MsgBox "An error occured in GetCursorPosition: " & Err.Number & " " & Err.Description
    Application.ScreenUpdating = True
End Sub

Private Sub SetCursorPosition()
On Error GoTo ErrTrap

Application.ScreenUpdating = False

For Each docvar In ActiveDocument.Variables
    If docvar.Name = varname Then
        Exit For
    End If
Next

If docvar Is Nothing Then
    position = 0
Else
    position = docvar.value
End If

ActiveDocument.Range(position, position).Select

Application.ScreenUpdating = True

Exit Sub
ErrTrap:
    MsgBox "An error occured in SetCursorPosition: " & Err.Number & " " & Err.Description
    Application.ScreenUpdating = True
End Sub

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2014, 00:54
    #38519311
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надстройка для word
Алекс82,

 
Код: vbnet
1.
MsgBox "An error occured in GetCursorPosition: " & Err.Number & " " & Err.Description



заменить на:

Код: vbnet
1.
MsgBox "An error occured in SaveCurrentCursorPosition: " & Err.Number & " " & Err.Description



Это так, для порядка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2014, 08:13
    #38519376
Алекс82
Алекс82
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надстройка для word
iMrTidy, спасибо только как теперь этим воспользоваться.вставляю как макрос пишет ошибку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2014, 08:18
    #38519378
Алекс82
Алекс82
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надстройка для word
iMrTidy, т.е. в 2010 версии этот трюк работает даже после закрытия программы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2014, 14:20
    #38519515
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надстройка для word
Алекс82iMrTidy, спасибо только как теперь этим воспользоваться.вставляю как макрос пишет ошибку.

1. Откройте WindowsExplorer.
2. В строке адреса наберите: %appdata%\Microsoft\Word\STARTUP.
3. Скопируйте приложенный файл в папку.
4. Убедитесь, что политика безопасности позволяет запускать макросы, по-крайней мере для указанного пути.

После этого любой документ будет запоминать и восстанавливать последнюю позицию курсора.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2014, 14:20
    #38519516
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надстройка для word
Алекс82iMrTidy, т.е. в 2010 версии этот трюк работает даже после закрытия программы?

Да.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
26.02.2016, 16:17
    #39180009
Pifu
Pifu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надстройка для word
iMrTidy1. Откройте WindowsExplorer.
2. В строке адреса наберите: %appdata%\Microsoft\Word\STARTUP.
3. Скопируйте приложенный файл в папку.
4. Убедитесь, что политика безопасности позволяет запускать макросы, по-крайней мере для указанного пути.

После этого любой документ будет запоминать и восстанавливать последнюю позицию курсора.
Спасибо, действительно запоминает (Word 2007). Однако при закрытии документа вылезает сообщение об ошибке:
"an error occured in SaveCurrentCursorPosition: 91 object variable or with block variable not set"
Нажимаю кнопочку "ОК" и тогда уже Word окончательно закрывается. Позиция курсора запоминается - при следующем открытии курсор стоит там, где был при сохранении документа. Но задолбался при закрытии документа клацать по этой ошибке.
Подскажите пожалуйста ламеру: В чем беда? Как исправить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / надстройка для word / 11 сообщений из 11, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 397ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2173179]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 278ms
total:  397ms
x
x
Закрыть


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