Как определить местонахождение документа

Комментариев: 10

1. 

   Елена
   03.09.2009 в 11:52 | #1

   Антон, здравствуйте!

   Вопрос не по теме, но не знаю как по другому можно послать вам письмо.

   Вопрос такой: дано - много таблиц заверстанных в формат А4, нужно - переверстать их в формат А5. Соответственно, при копипасте, все едет, можно как то автоматизировать этот процесс?

   С уважением, Елена
2. 

   Админ
   03.09.2009 в 15:00 | #2

   Елена, а зачем делать копипаст? И что значит "все едет"?

   Вы можете просто изменить размер бумаги в параметрах документа и задать для каждой таблицы выравнивание по ширине окна.

   Для того, чтобы сделать это для многих документов одновременно, можно воспользоваться макросом из статьи http://wordexpert.ru/page/massovoe-formatirovanie-dokumentov

   Нужно только заменить следующие строки:

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

   While myFile  ""    'Открываем каждый файл без видимости для пользователя    Set myDoc = Documents.Open(path & myFile, Visible:=False)    'Изменяем форматирование каждого файла    With myDoc       With .Range          With .PageSetup             .LeftMargin = CentimetersToPoints(2)             .RightMargin = CentimetersToPoints(1)             .TopMargin = CentimetersToPoints(1)             .BottomMargin = CentimetersToPoints(2)          End With          .Paragraphs.FirstLineIndent = CentimetersToPoints(1.25)          .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle          With .Font             .ColorIndex = wdBlack             .Name = "Times New Roman"             .Size = 12          End With       End With       .Close SaveChanges:=wdSaveChanges    End With    myFile = Dir$()   'получаем следующее имя файла из папки Wend

   на следующие:

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

   While myFile  ""    'Открываем каждый файл без видимости для пользователя    Set myDoc = Documents.Open(path & myFile, Visible:=False)    'Изменяем форматирование каждого файла    With myDoc       With .Range          With .PageSetup             If .PaperSize = wdPaperA4 Then .PaperSize = wdPaperA5          End With          Application.ScreenRefresh       End With       'Выравнивает все таблицы в документе по ширине окна       For Each myTable In .Tables          myTable.AutoFitBehavior wdAutoFitWindow       Next myTable    .Close SaveChanges:=wdSaveChanges    End With    myFile = Dir$()   'получаем следующее имя файла из папки Wend
3. 

   лариса
   04.09.2009 в 21:28 | #3

   Помогите, изменился исходный документ. Как восстановить? Срочно нужно
4. 

   Админ
   05.09.2009 в 04:23 | #4

   Лариса, а вы использовали функцию версионности документа? Если нет, то уже никак не восстановить.
5. 

   Леонид Бродский
   07.09.2009 в 18:13 | #5

   Да, было бы, наверное, полезно приделать к Word возможность вести журнал изменения документов.
6. 

   Васильич
   09.09.2009 в 10:05 | #6

   Уважаемый Антон!

   В предыдущих версиях Word (до 2003) была возможность его запуска с ключами командной строки, и с помощью такой строки winword -Mfiles1 я запускал Word с последним файлом, над которым я работал (например, вчера или до обеда). В панели быстрого запуска я сделал соответствующий ярлычок, и было просто комфортно. Но когда перешёл на Office 2003, эта возможность - увы! - пропала. А какие сейчас есть ключи для запуска из командной строки, где про это можно прочитать?
7. 

   Александр Витер
   09.09.2009 в 10:10 | #7

   Почитать об этом можно здесь
8. 

   Админ
   09.09.2009 в 10:43 | #8

   Васильич, я об этом писал в этой заметке. Там же есть и ссылка для ключей в Word 2003.
9. 

   Ольга
   22.06.2012 в 11:51 | #9

   Здравствуйте, Антон. А у меня в папке Document and setting\Ольга\Application data\Microsoft\Office\Последние документы - вообще ничего не сохраняется. Как можно это все восстановить?
10. 

    Оля
    20.10.2015 в 08:46 | #10

    Спасибо! Вы спасли мою 4-х часовую работу!!! Благодарю!!!