Добрый день!
Подскажите, пожалуйста, как мне поправить макрос, чтобы:
1) Вставка таблицы (закладка "Tablo_0") происходила по центру и для нее удалить интервал перед абзацем и после абзаца;
2) Для вставляемого текста из ячейки (закладка "bookmark_3") применить шрифт Calibri
Спасибо!
Подскажите, пожалуйста, как мне поправить макрос, чтобы:
1) Вставка таблицы (закладка "Tablo_0") происходила по центру и для нее удалить интервал перед абзацем и после абзаца;
2) Для вставляемого текста из ячейки (закладка "bookmark_3") применить шрифт Calibri
| Код |
|---|
Sub Format_Excel_Word_transfer()
Dim wda As Word.Application
Set wda = CreateObject("Word.Application")
With wda
.Visible = True
.Documents.Open "U:\Format_Excel_Word_transfer\Templateform.dotx"
.ActiveDocument.Bookmarks("Table_0").Select
End With
Worksheets("Sheet1").Activate
Range("A1:B2").Copy
wda.Selection.PasteSpecial False, False, False
With wda
.Visible = True
.Documents.Open "U:\Format_Excel_Word_transfer\Templateform.dotx"
.ActiveDocument.Bookmarks("bookmark_3").Select
End With
Worksheets("Sheet1").Activate
Range("C2").Copy
wda.Selection.PasteSpecial
With wda
.Visible = True
.ActiveDocument.SaveAs Filename:= _
"U:\Format_Excel_Word_transfer\" & "Test " & Format(Now, "ddMMyy") & ".docx", _
FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False
End With
End Sub |
Спасибо!
