1

Тема: Считывание свойств документа VBA (wdPropertyTemplate)

Возникла проблема следующего характера.
Макросом считывается параметр wdPropertyTemplate
и на разных машинах получается разные значения этого параметра,
либо normal либо normal.dot
Хотелось бы понять с чем это связано?
Так как при дальнейшей обработке из-за этого возникает затык, из-за расширения файла.
sad

2

Re: Считывание свойств документа VBA (wdPropertyTemplate)

SirFred пишет:

Возникла проблема следующего характера.
Макросом считывается параметр wdPropertyTemplate
и на разных машинах получается разные значения этого параметра,
либо normal либо normal.dot
Хотелось бы понять с чем это связано?
Так как при дальнейшей обработке из-за этого возникает затык, из-за расширения файла.
sad

Расширение же не меняется. Как был dot, так и остался. А почему в разных операционках копия файла выглядит по-разному: в XP - "Копия Имя", а в Win7 - "Имя - копия"?

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

3

Re: Считывание свойств документа VBA (wdPropertyTemplate)

Я к тому, что если вы укажете
Скопировать файл Normal.dot на обоих компьютерах - он будет скопирован. А ещё вариант - имя не имеет значения, если указывать его как Template.name or Template.FullName и в таком же духе.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

4

Re: Считывание свойств документа VBA (wdPropertyTemplate)

Расширение же не меняется. Как был dot, так и остался. А почему в разных операционках копия файла выглядит по-разному: в XP - "Копия Имя", а в Win7 - "Имя - копия"?

В том то и фишка, источник шаблон normal.dot, а прилетаемое по запросу значение параметра на разных машинах разное,  то значение="normal", то "normal.dot".

И как говориться, "почувствуйте разницу...".
Куда копать?

5

Re: Считывание свойств документа VBA (wdPropertyTemplate)

...если указывать его как Template.name or Template.FullName и в таком же духе.

С этого места,пожалуйста, поподробнее... wink

6

Re: Считывание свойств документа VBA (wdPropertyTemplate)

SirFred пишет:

...если указывать его как Template.name or Template.FullName и в таком же духе.

С этого места,пожалуйста, поподробнее... wink

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

Ну или как вам надо

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871