Excel VBA - 转换为单词的边框问题

Question

我正在使用userforms将数据传输到工作表中，然后将其转换为word文档。我创建了一堆表来填充用户表单文本框。由于一些注释可能很长，我将这些表设置为换行文本和自动调整行高。虽然有些表格适合单词页面，但其中一些表格超出了页面范围，而且有些边框在没有正确格式的情况下位于页面下方。borders。 我删除了单词表中的内容，你可以认为它充满了文字。

如何将这些边框放入word文档而不会溢出到其他页面？

--no-registry

Answer 1

将您的appWD.Selection.Paste替换为appWD.Selection.PasteExcelTable False, True, False。这对我来说很好用：

Sub TestingMacAndWin1()
Application.ScreenUpdating = False
Dim appWD As Object
Dim wddoc As Object

On Error Resume Next
Set appWD = GetObject(, "Word.application")
If Err = 429 Then
    Set appWD = CreateObject("Word.application")
    Err.Clear
End If

Set wddoc = appWD.Documents.Add
appWD.Visible = True

With appWD.ActiveDocument.PageSetup
    .Orientation = 1
    .Content.Style = .Styles("No Spacing")
    .TopMargin = appWD.InchesToPoints(0.3)
    .BottomMargin = appWD.InchesToPoints(0.3)
    .LeftMargin = appWD.InchesToPoints(0.3)
    .RightMargin = appWD.InchesToPoints(0.3)
    .InsertBreak Type:=0

End With



Sheets("Sheet1").Range("a1").CurrentRegion.Copy
appWD.Selection.PasteExcelTable False, True, False


Sheets("Sheet1").Range("b1:F20").Copy
appWD.Selection.PasteExcelTable False, True, False

End Sub

之前：

粘贴更改后：