Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Возникла проблема следующего характера.
Макросом считывается параметр wdPropertyTemplate
и на разных машинах получается разные значения этого параметра,
либо normal либо normal.dot
Хотелось бы понять с чем это связано?
Так как при дальнейшей обработке из-за этого возникает затык, из-за расширения файла.
Возникла проблема следующего характера.
Макросом считывается параметр wdPropertyTemplate
и на разных машинах получается разные значения этого параметра,
либо normal либо normal.dot
Хотелось бы понять с чем это связано?
Так как при дальнейшей обработке из-за этого возникает затык, из-за расширения файла.
Расширение же не меняется. Как был dot, так и остался. А почему в разных операционках копия файла выглядит по-разному: в XP - "Копия Имя", а в Win7 - "Имя - копия"?
Я к тому, что если вы укажете
Скопировать файл Normal.dot на обоих компьютерах - он будет скопирован. А ещё вариант - имя не имеет значения, если указывать его как Template.name or Template.FullName и в таком же духе.
Расширение же не меняется. Как был dot, так и остался. А почему в разных операционках копия файла выглядит по-разному: в XP - "Копия Имя", а в Win7 - "Имя - копия"?
В том то и фишка, источник шаблон normal.dot, а прилетаемое по запросу значение параметра на разных машинах разное, то значение="normal", то "normal.dot".
И как говориться, "почувствуйте разницу...".
Куда копать?
...если указывать его как Template.name or Template.FullName и в таком же духе.
С этого места,пожалуйста, поподробнее... 
...если указывать его как Template.name or Template.FullName и в таком же духе.
С этого места,пожалуйста, поподробнее...
sName = ActiveDocument.AttachedTemplate
Dim oTemp As Template
For Each oTemp In Templates
MsgBox oTemp.Name & vbCr & oTemp.FullName
Next oTempНеча тут подробничать. Разницы вам не будет. Если вы хотите использовать шаблон, то oTemp - он и не важно как он отображается с Name. Не указывайте имя шаблона, а используйте переменные.
Например надо вам нормал? окей
Sub Nazvanie()
Dim oTMP as Template
oTMP = GetTemplate("Normal")
End Sub
Function GetTemplate(ByVal oName as String)
For Each oTemp In Templates
MsgBox oTemp.Name & vbCr & oTemp.FullName
If InStr(oTemp.Name, oName) >= 1 Then GetTemplate = oTemp: Exit Function
Next oTemp
End Function
Ну или как вам надо
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться