VBNet - Форум - сохранение Excell-евского листа в Word-e

Вопрос: сохранение Excell-евского листа в Word-e Добавлено: 08.08.07 12:03

Автор вопроса: olga

Использую модуль :

Sub sv_list()
'сохранение листа в word-овском документе
' Макрос записан 09.02.2004 (Katashova)
Dim objWord As Object
Set objWord = CreateObject("Word.Document")
Application.ScreenUpdating = False
Worksheets("Отчет").Activate
i = 9
Do While (Not IsEmpty(Cells(1 + i, 2)))
i = i + 1
Loop

strRange = "A" & CStr(1) & ":F" & CStr(i + 1)
    Range(strRange).Select
    Selection.Copy

With objWord.Application
         ' .activeDocument.Clear
          .Selection.Paste
           Set WordDoc = .activedocument
  End With
  With WordDoc.PageSetup
        '.LineNumbering.Active = False
        .Orientation = wdOrientLandScape
        .TopMargin = Application.CentimetersToPoints(2)
        .BottomMargin = Application.CentimetersToPoints(2)
        .LeftMargin = Application.CentimetersToPoints(1.5)
        .RightMargin = Application.CentimetersToPoints(2)
   End With
   With WordDoc.Range.Font
  .Name = "TIMES NEW ROMAN"
    .Size = 12
  End With

  With objWord.Application
          .activedocument.SaveAs "d:\TN\Otchet.doc"
          .activedocument.Close
  End With
Set objWord = Nothing
MsgBox "Отчет сохранен в папке ""d:\TN"", файл Otchet.doc"
Range("A1").Select
   Application.CutCopyMode = False


End Sub

давно и на разных компьютерах. Сейчас никак не удается выполнить его на компьютере нового пользователя (office 2003),выдается ошибка 91 на .Selection.Paste. В чем может быть дело?
И еще заодно: мне не удалось добиться, чтобы созданный документ имел альбомную ориентацию страницы. Пыталась использовать шаблон, но тогда все вновь создаваемые документы имели такую ориентацию.
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Pavel Вопросов: 0 Ответов: 82	Профиль \| \| #1	Добавлено: 08.08.07 14:15
	Для альбомной ориентации добавьте эту строку в ваш блок With WordDoc.PageSetup .... .Orientation = wdOrientLandscape 'в начале строки точка ..... End With Ответить

Номер ответа: 2 Автор ответа: olga Вопросов: 1 Ответов: 2	Профиль \| \| #2	Добавлено: 08.08.07 14:32
	Не помогает! В модуле есть такая строка. Ответить

Номер ответа: 3 Автор ответа: olga Вопросов: 1 Ответов: 2	Профиль \| \| #3	Добавлено: 08.08.07 14:33
	Не помогает! В модуле есть такая строка Ответить

Страница: 1 |