[ok]
Добрый день! Заказчику приспичило, чтобы я в Ворде через макросы работала. И даже код дал мне:
сам кодAttribute VB_Name = "NewMacros"
Sub Макрос1()
Attribute Макрос1.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Макрос1"
'
' Макрос1 Макрос
'
'
Selection.Rows.HeightRule = wdRowHeightAuto
Selection.Rows.Height = CentimetersToPoints(0)
Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
Selection.SelectCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.Cells.VerticalAlignment = wdCellAlignVerticalTop
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0.1)
.RightIndent = CentimetersToPoints(0.1)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
End With
Selection.Font.Name = "Arial"
End SubА я с ними не работала и не планировала. Ну ладно, создала, запустила, а он ругается, пишет "Синтаксическая ошибка": скрин по ссылке
yadi.sk/i/9xGXg7IDZ5d2yЧто он от меня хочет? Что ему написать?
На форумах я ничего не поняла, ибо они разговаривают на марсианском языке.
Word 2010, Win XPСпасибо