Начало страницы

[tolikman]

Доброго всем... вопрос, как в програмно созданом документе установить параметры шрифта, абзаца и т.д.
т.е.
что нужно написать после
documents.add(visible:=false)
чтобы он при вводе текста через Range(0).text, сразу писал в установленном формате.

[madmot]

сохрани докумет с выбранными шрифтом/форматированием абзаца и т.д. в качестве шаблона, а новый документ добавляй/открывай из этого шаблона.

[tolikman]

Сообщение от madmot

сохрани докумет с выбранными шрифтом/форматированием абзаца и т.д. в качестве шаблона, а новый документ добавляй/открывай из этого шаблона.

У меня один вордовский файл в котором находится очень много строк кода и форм штук 20, если его делать шаблоном, то ворд копирует весь контент vba, а этого делать не как нельзя.
Как можно продублировать именно тот момент, когда курсор находится в 0-м положении, и выбрать для этого шрифт и т.д..
пробовал выбрать весь имеющийся (а точнее не имеющийся в новом док) через range(0), прописал все что нужно, потом снова пишу range(0).text="блаблабла", так ворд забивает на то что я ему перед этим объяснил...

[madmot]

На сколько понял, предлагаю такой вариант:
пишешь процедурку где описываешь форматирование (можно воспользоваться макрорекордером) например у меня получилось так(форматирование абзаца)

Sub формат()
'
' формат Макрос
' Макрос записан 28.11.2008 madmot
'
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpace1pt5
        .Alignment = wdAlignParagraphLeft
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(1.25)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
    End With
End Sub

затем выбираешь ThisDocument в редакторе VBA, вверу в правом выпдающем списке выбираешь открытие документа и там вызываешь процедурку форматирования

Private Sub Document_Open()
    формат
End Sub

[EducatedFool]

что нужно написать после
documents.add(visible:=false)
чтобы он при вводе текста через Range(0).text, сразу писал в установленном формате.

Sub test()
    With Documents.Add    '(, , , False)
        
        With .Range.Font ' устанавливаем параметры шрифта
            .Bold = True: .Size = 30
            .Color = wdColorBlue
        End With
        
        With .Range.ParagraphFormat ' параметры форматирования абзацев
            .Space2: .SpaceAfter = 6
            .Alignment = wdAlignParagraphDistribute
        End With
        
        ' теперь пишем текст (в назначенном нами формате)
        .Range(0).Text = "123456" & vbNewLine
        .Range.InsertAfter "новый текст"
        Selection.TypeText "888  "
    End With
End Sub