Empty49 А у Вас установлены спец. шрифты от MathType (MathTypeTrueTypeFonts.exe)?
Добавлено: ghosty Цитата: Подскажите, как одновременно изменить свойства для всех таблиц в документе.
Может уже не актуально но вот с помощью макросов:
Sub Tab_Format()
If ActiveDocument.tables.Count >= 1 Then
Set oDoc1 = ActiveDocument
Set MyRange = ActiveDocument.tables
For Each oTable In oDoc1.tables
oTable.Select
With MyRange
Call FFF
End With
Next
End If
End Sub
Function FFF()
Selection.Font.Name = "Times New Roman"
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = False
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With
End Function
В Function FFF вписываете нужное Вам форматирование. И всё. Запускаете Tab_Format и Ваши таблицы форматируются, а Вы отдыхаете.