Как определить параметры файла DOC ?

[Konst37]

Пишу код на событие при открытии файла.
Хочется узнать как получить те параметры с которыми был открыт WORDовский документ.

[GSerg]

А они открываются с параметрами?..

[Konst37]

Пока еще нет .
Но я думаю пройдет вариант из ком. строки Документ.doc 1,2

[GSerg]

Фиг тебе, эксель перехватит

[Konst37]

Так открываю же *.doc!!??
Но мне важно обработать в normal.dot параметры с которыми открылся файл...

[alibek]

Не сможешь.
Все параметры, с которыми ты будешь открывать документ, будут адресованы самому Word, а не твоему документу.
Используй текстовый файл.

[Konst37]

Хорошо. Пусть ворду.
У меня такая ситуация: Запускается ворд и открывает файл.
Так мне надо так при этом передать параметы, чтоб понять что с этим файлом делать:
печатать или сохранять под другим именем

[tyomitch]

А не проще будет написать прогу на VB вместо макроса?

[Konst37]

Поясняю. Есть шаблон rtf , который заполняется из под Delphi а потом открывается файлик в Worde. Он потом должен либо распечататься, либо сохраниться под другим именем.

[GSerg]

Для сохранения под другим именем файл просто переименуй.
Для печати есть ключ командной строки Ворда.

[Konst37]

Для печати есть ключ командной строки Ворда.

Повторяю. Печатать(а потом закрыться) или не печатать (и не закрываться) зависит от имени файла, коротое определяется в обработчике Document_Open() в normal.dot. Пример: Если открылся файл Счет*.doc-то его печатать и сохранить в папке (имя котрой совпадает с тек. месяцем) с именем, которое будет выглядеть так Счет_14.10.2005.doc. Если открываются любые другие файлы(не содержащие в имени "Счет")-то просто открыть документ и ничего не делать [/quote]

[GSerg]

Тогда зачем параметры, раз всё зависит от имени файла?

[Konst37]

Тогда зачем параметры, раз всё зависит от имени файла?

А если мне надо в передаваемых параметрах указывать составляющую имени будущего файла? Пример: Открывается файл Счет*.doc с параметром 123 типа Счет*.doc 123
А мне потом надо сохранить этот Счет*.doc с именем Счет_14.10.2005_123.doc

[tyomitch]

Так и не вижу ни одной причины, почему вся эта логика реализована в виде макроса.
Имхо это всё равно, что всю серверную логику в БД писать на триггерах

[Konst37]

Так и не вижу ни одной причины, почему вся эта логика реализована в виде макроса.

А давайте абстрагируемся от всей вышеприведенной дискуссии.
И по существу-МОЖНО ЛИ МНЕ В МАКРОСЕ ПОСМОТРЕТЬ С КАКИМИ ПАРАМЕТРАМИ ОТКРЫЛСЯ WORD?

[GSerg]

Нет, потому что фактически параметры передаются не командной строкой, а через DDE.

[GSerg]

А те, что командной, тоже обрубаются...

Поиграйся, если хочешь.

Код: Выделить всё

Option Explicit

Private Declare Function GetCommandLine Lib "kernel32.dll" Alias "GetCommandLineA" () As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function lstrlen Lib "kernel32.dll" Alias "lstrlenA" (ByVal lpString As Long) As Long

Private Sub Document_Open()
  Dim t As Long, s As String
 
  t = GetCommandLine
  s = String$(lstrlen(t), 0)
  CopyMemory ByVal StrPtr(s), ByVal t, Len(s)
  s = StrConv(s, vbUnicode)
 
  MsgBox s
End Sub

[Konst37]

Значения он выдает, но явно не те, или я не понимаю....
пишу tax_000532A20.doc 9, а мне сообщение 1384360 (и это с разными вариантами передачи параметров)

[Konst37]

Продвинулся чуть дальше, но радости не добавило....
После строки CopyMemory ByVal StrPtr(s), ByVal t, Len(s)
Word молча вылетает....
А потом при повторном открытии уже предлагает сохранить востановленные документы...

[brigval]

А если так.
Макрос в Normal.dot определяет имя открытого (активного) файла. Если имя удовлетворяет условию, то распечатывает его и сохраняет под именем ИМЯ_ДАТА_XXX.doc. Причем ДАТА - текущая дата, а XXX -некоторое число, которое задается по результатам анализа сотава папки в которую планируется сохранять файл. Например, количество файлов + 1.

Для передачи параметров иногда используют текстовые файлы, например, ini. Параметр записывают в ini, а программа считывает его отуда.

Для передачи параметров можно использовать и буфер обмена. Помещаете в буфер обмена текст, а макрос в шаблоне его считвает и принимает решение о дальнейших действиях.

[Konst37]

brigval

Спасибо 2 и 3 варианты попробую, а 1 отпадает однозначно[/quote]