用VBA格式化页脚

问题描述

我正在修改其他人在我的工作地点所做的VBA代码。他们有将页脚插入到生成的报价单中的代码。页脚的代码是：

WrapText

它将文本从另一张纸上移出并将其粘贴到新生成的报价单上。我遇到的问题是文本很长并且被截断。如您所见，我已将Foot设置为true，但是该单元格没有调整大小以显示换行的文本。

我需要添加什么才能使其自动适应？
作为参考，下面是定义Sub CreateQuote1() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim LastcRow,LastqRow Dim Dst Dim Foot Dim Frow,Trow,Hrow,Srow Dim c Dim cRange As Range LastcRow = Sheets("Data Entry").Range("B65536").End(xlUp).Row LastqRow = Sheets("Quote").Range("C65536").End(xlUp).Row Foot = Sheets("Instructions").Range("A15").Value 的代码的开头：

With Selection

我尝试在Foot下添加{{1}}，但是我无法使其正常工作，而且我无法找到合适的代码来自动适配该格式。

解决方法

与比我更了解代码的朋友交谈后，autofit对此不起作用。最好的做法是增加合并行的数量，以使文本可以完整显示。 他这样做是通过将代码更改为以下内容：

  Range("A" & Hrow,"G" & Srow + 5).Select
            
            With Selection
            .HorizontalAlignment = xlGeneral
            .VerticalAlignment = xlTop
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = True
            End With

他在sRow中添加了+5，从而增加了合并的行数，从而解决了问题。

,

问题，不是专家，但是为什么不创建单词模板，并在页脚中添加“富文本内容控件”，您可以使用wit vba进行编辑

wDoc.SelectContentControlsByTitle("TitleOfCC").Item(1).Range.Text = FormName.box1.Value

当我有长文本时，这是我的方法，并且使用内容控制，我仅更改了可变文本