Как настроить страницу документа Word?

Question

Я создал таблицу в приложении Excel с использованием кода VBA и скопировал эту же таблицу в текстовый документ, здесь мой вопрос: я хочу изменить настройку страницы текстового документа, может ли кто-нибудь исправить мой код.спасибо ...

Sub word_page_setup()

    With Documents("Document1.doc").pagesetup
        .LeftMargin = InchesToPoints(0.5)
        .RightMargin = InchesToPoints(0.5)
        .TopMargin = InchesToPoints(1)
        .BottomMargin = InchesToPoints(1)
    End With

End Sub

Answer 1

Предполагая, что вы хотите установить поля в документе с именем Document1.doc, это будет сделано.

    Option Explicit
    Sub word_page_setup()
        Dim doc As Document
        Dim doctest As Document
        Dim doccol As Documents
        Set doccol = Documents
        ' find the document named Document1.doc
        For Each doctest In Documents
            If doctest.Name = "Document1.doc" Then Set doc = doctest
        Next
        ' if we didn't find it then exit
        If doc Is Nothing Then Exit Sub
        ' set margins
        With doc.PageSetup
            .LeftMargin = InchesToPoints(0.5)
            .RightMargin = InchesToPoints(0.5)
            .TopMargin = InchesToPoints(1)
            .BottomMargin = InchesToPoints(1)
        End With
    End Sub