Помещение\Извлечение данных из хранилища значения

Разбирал пример по помещению, извлечению данных в хранилище значения. В разбираемом примере было 2 способа помещения данных в реквизит типа ХранилищеЗначения .
Сработал второй способ. На помещения работаю оба. но потом при помещении данных первым способом, нет возможности их извлечь. В чем не удача первого способа???

1. Способ - ЗаписатьФайлВрХр
2. Способ - ЗаписатьФайлДвД

3. Извлечение из хранилища значения ПолучитьДанные()

&НаКлиенте
Процедура ЗагрузитьWordМакет(Команда)
    ПолноеИмяФайла = "";
    ПутьФайла      = "";
    Если ПоместитьФайл(ПутьФайла, , ПолноеИмяФайла, Истина) = Истина Тогда
        // Временное хранилище
        //АдресВоВременномХранилище = ПутьФайла;
        //ЗаписатьФайлВрХр(АдресВоВременномХранилище, ПолучитьИмяФайла(ПолноеИмяФайла));
        //
        // Двоичные данные
        Данные = Новый ДвоичныеДанные(ПолноеИмяФайла);
        ЗаписатьФайлДвД(ПолучитьИмяФайла(ПолноеИмяФайла), Данные);
        //
    КонецЕсли;
КонецПроцедуры
//
&НаСервере
Процедура ЗаписатьФайлВрХр(АдресВоВременномХранилище, ИмяФайла)
    НовыйФайл               = Справочники.ФайлыWord.СоздатьЭлемент();
    НовыйФайл.Файл          = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(АдресВоВременномХранилище));
    НовыйФайл.Наименование  = ИмяФайла;
    НовыйФайл.ИмяФайла      = ИмяФайла;
    НовыйФайл.ВладелецФайла = Объект.Ссылка;
    НовыйФайл.Записать();
    //
    Объект.ФайлWordВ1с = НовыйФайл.Ссылка;
КонецПроцедуры
//
&НаСервере
Процедура ЗаписатьФайлДвД(ИмяФайла, Данные)
    НовыйФайл               = Справочники.ФайлыWord.СоздатьЭлемент();
    НовыйФайл.Файл          = Новый ХранилищеЗначения(Данные, Новый СжатиеДанных());
    НовыйФайл.Наименование  = ИмяФайла;
    НовыйФайл.ИмяФайла      = ИмяФайла;
    НовыйФайл.ВладелецФайла = Объект.Ссылка;
    НовыйФайл.Записать();
    //
    Объект.ФайлWordВ1с = НовыйФайл.Ссылка;
КонецПроцедуры
//
&НаКлиенте
Процедура ВыгрузитьМакетWord(Команда)
    Диалог                    = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
    Диалог.Заголовок          = "Выберите папку для сохранения";
    Диалог.МножественныйВыбор = Ложь;
    Если Диалог.Выбрать() Тогда
        ПолучитьДанные(Диалог.Каталог);
    КонецЕсли;
КонецПроцедуры
//
&НаСервере
Процедура ПолучитьДанные(Каталог)
    Если Прав(Каталог, 1) = "\" Тогда
        ИмяФайла = Каталог + Объект.ИмяФайла;
    Иначе
        ИмяФайла = Каталог + "\" + Объект.ФайлWordВ1с.ИмяФайла;
    КонецЕсли;
    Знч = Объект.ФайлWordВ1с.Файл.Получить();
    Знч.Записать(ИмяФайла);
КонецПроцедуры
//