Question

我有Excel VBA从Excel复制并粘贴到Word。更改行间距的代码工作正常，但更改边距的代码却没有。

Option Explicit

Sub CopyXLStoDOC()

' ****************************************************************************
' *      Make sure to set a reference to Microsoft Word Object Library!!!    *
' ****************************************************************************

'  Source of code:  http://mrspreadsheets.com/1/post/2012/09/vba-code-snippet.html

    'declare local variables and constants
    Dim oDoc As Word.Document
    Dim oWord As Word.Application
    Dim rRange1 As Range, rRange2 As Range
    Const sDocPath As String = "D:\Corinne\5   RALF WORK\A_RALFS Jobs\Document2.docx"

    'set ranges to copy
    Set rRange1 = Worksheets("4_Data Form").Range("B2:K68")
    Set rRange2 = Worksheets("4_Transport").Range("C13:J53")

    'open the Word document, if it doesn't exist, then create one
    On Error Resume Next
    Set oDoc = GetObject(sDocPath)
    Set oWord = oDoc.Parent
    If Err <> 0 Then
        Set oWord = CreateObject("Word.Application")
        Set oDoc = oWord.Documents.Add
    End If
    oWord.Visible = True

    'Change Word sheet settings

    'set Page Setup properties - Page Orientation, Page Size & Margins:


     With oWord.ActiveDocument.PageSetup
        .TopMargin = CentimetersToPoints(1.8)
        .BottomMargin = CentimetersToPoints(1.8)
        .LeftMargin = CentimetersToPoints(1.8)
        .RightMargin = CentimetersToPoints(1.8)
     End With


    'copy and paste first range into Word
     rRange1.Copy
     oDoc.ActiveWindow.Selection.Paste


    'copy and paste second range into Word after pagebreak
    rRange2.Copy
    'remove the next line if you want to paste rRange2 directly after rRange1
    oDoc.ActiveWindow.Selection.InsertBreak Type:=wdPageBreak
    oDoc.ActiveWindow.Selection.Paste



    With oDoc.Content.ParagraphFormat
        .LineSpacingRule = wdLineSpaceSingle
        .SpaceAfter = 0
        .SpaceAfter = False
    End With


    'Clean up objects
    Set oDoc = Nothing
    Set rRange1 = Nothing
    Set rRange2 = Nothing

End Sub

Answer 1

将Excel中的范围复制并粘贴到Word文档中时，它将作为表格插入。生成的表格将调整它自己的边距以适合要粘贴的列中的数据。您可能必须获取对结果表的引用并格式化：

'...

'copy and paste first range into Word
rRange1.Copy
oDoc.ActiveWindow.Selection.Paste

With oDoc.Tables(1)
   'apply table formatting here.
End With

'copy and paste second range into Word after pagebreak
rRange2.Copy
'remove the next line if you want to paste rRange2 directly after rRange1
oDoc.ActiveWindow.Selection.InsertBreak Type:=wdPageBreak
oDoc.ActiveWindow.Selection.Paste

With oDoc.Tables(2)
    'apply table formatting here.
End With

'...

从Excel更改Word.Application文档中的边距

1 个答案: