Shocker.Pro, большое спасибо за ответ. Но почему то выдает ошибку, на строке "Set t =...", если t объявлена как Range. Если не объявлена, то ошибки нет, но и не и не работает изменение шрифта. Пробовал различные манипуляции, в т.ч. запускал код из ворда. В том виде, в котором я выложил ниже, работает, но изменяется интервал всей строки, а не участка с 1 по 17 символ. Не понимаю, в чем я косячу. Подскажите, пожалуйста.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Sub NumberDOC()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim WrdTbl As Word.Table
Dim WrdCell As Word.Cell
Dim t As Range
On Error Resume Next
Set WrdApp = GetObject(, "Word.Application")
If WrdApp Is Nothing Then Set WrdApp = CreateObject("Word.Application")
On Error GoTo 0
WrdApp.Visible = False
Sheets("лист1").Range("B4").Copy
Set WrdDoc = WrdApp.Documents.Open(ThisWorkbook.Path & "\" & "отчет.docx")
Set WrdCell = WrdDoc.Tables(1).Cell(1, 1)
WrdCell.Range.Delete
WrdCell.Range.PasteAndFormat (22)
' Set t = ThisDocument.Tables(1).Cell(1, 1).Range
' Set t = WrdDoc.Tables(1).Cell(1, 1).Range
' Set t = WrdCell.Range
' t.SetRange 0, 16
' t.Font.Spacing = 3
WrdCell.Range.SetRange 0, 16
WrdCell.Range.Font.Spacing = 2
WrdApp.Visible = True
End Sub
Учимся использовать тэги оформления кода -
FAQ
