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

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

1. 

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

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

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

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

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

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

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

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

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

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

   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

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

   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-х часовую работу!!! Благодарю!!!