on-line-teaching.com

[Onex1983]

Подскажите, что надо изменить в теле макроса, чтобы при копировании в Word сохранялся формат ячеек, которые копируются. Т.е. если в ячейке A1 написан текст и его формат "выравнивание по середине, Times, размер 16", а в ячейке A2 написан текст и его формат "выравнивание по правому краю, Times, размер 12", то и в Word они должны переноситься с таким же форматом (т.е. выравниваться по середине и правому краю и размер 16 и 12).

Sub main()
FillData
TransferToWord
End Sub
Sub CopyToWord(SelectedObject As Object)
SelectedObject.Copy
WordApp.Selection.PasteAndFormat 0
WordApp.Selection.TypeParagraph
End Sub

Sub TransferToWord()
Set WordApp = CreateObject("Word.Application")

WordApp.Visible = True

WordApp.Documents.Add


WordApp.Selection.TypeText Text:=Range("A1").Value
WordApp.Selection.TypeParagraph

WordApp.Selection.TypeText Text:=Range("A2").Value
WordApp.Selection.TypeParagraph

WordApp.Selection.TypeText Text:=Range("A3").Value
WordApp.Selection.TypeParagraph

' WordApp.Quit
Set WordApp = Nothing
End Sub