как открыть для просмотра документ ворд из excel?

[MrGB]

данные из excel я вставляю в ворд, вопрос - как после вставки данных открыть для просмотра этот документ, не сохраняя его?.

            
            Set WA = CreateObject("Word.Application")
            Set WD = WA.Documents.Open(g_dir & "Template1.doc")
            With WA.Selection.Find
                .Text = "{full_name}"
                .Replacement.Text = Mid(Replace(v_name, Chr(34), " " & Chr(34)), 1, Len(v_name)) & Chr(34)
                .Wrap = 1
                .Execute Replace:=2
                
                .Text = "{short_name}"
                .Replacement.Text = Mid(Replace(v_sh_name, Chr(34), " " & Chr(34)), 1, Len(v_sh_name)) & Chr(34)
                .Wrap = 1
                .Execute Replace:=2
                
                .Text = "{FIO}"
                .Replacement.Text = v_fio
                .Wrap = 1
                .Execute Replace:=2
                
                .Text = "{position}"
                .Replacement.Text = v_pos
                .Wrap = 1
                .Execute Replace:=2
            End With

[SAS888]

Последней строкой кода добавьте

WA.Visible = True

[MrGB]

Сообщение от SAS888

Последней строкой кода добавьте

WA.Visible = True

спасибо! (я был близок - пробывал WD.Visible = True)