Excel 用VBA格式化页脚

我正在修改另一个人在我的工作场所所做的VBA代码。他们有代码在生成的报价表中插入页脚。页脚的代码为：

Frow=SheetsQuote.RangeC65536.EndxlUp.Offset2，0.行 Trow=Frow-1 Hrow=Frow+4 Srow=Frow+4 SheetsQuote.RangeF&Frow.Value=总计： SheetsQuote.RANGG&Frow.Value==SUMG13:G&Trow& SheetsQuote.range a&Hrow.Value=英尺 '与下一行合并 范围A&Hrow、G&Srow。选择 有选择 .HorizontalAlignment=xlGeneral .垂直对齐=xlTop .WrapText=True .方向=0 .AddIndent=False .1级别=0 .ShrinkToFit=False .ReadingOrder=xlContext .MergeCells=True 以 它将文本从另一个工作表中移动并粘贴到新生成的报价表上。我遇到的问题是，文本很长，会被截断。如您所见，我已将WrapText设置为true，但单元格未调整大小以显示包装的文本

我需要添加什么才能使其自动适应？ 以下是定义脚的代码开头部分，以供参考：

子CreateQuote1 Application.ScreenUpdating=False Application.DisplayAlerts=False 暗淡的晚霞，晚霞 暗Dst 暗脚 模糊的Frow，Trow，Hrow，Srow dimc 暗淡的裂缝如射程 LastcRow=SheetsData Entry.RangeB65536.EndxlUp.Row LastqRow=SheetsQuote.RangeC65536.EndxlUp.Row 英尺=板材说明。范围15。数值

---

我尝试在Foot下使用Selection进行添加，但无法使其正常工作，也找不到该格式的autofit的正确代码。

问题，我不是专家，但为什么不创建word模板并在页脚中添加富格文本内容控件，这些控件可以通过vba进行编辑

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

---

当我有长文本时，我就是这样做的，在与比我更了解代码的朋友交谈后，使用内容控制，我只更改可变文本，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，增加了合并行的数量，解决了这个问题。

我需要添加什么才能使其自动适应？-call？我读了那个特定的文档，但不知道如何正确地实现它。单元格上的范围将根据生成的报价的长度变化很大。不，您需要一个单元格。例如，您始终可以合并整行的单元格，然后在必要时调用Autofit以增加该行的高度。这是什么样子的？最后一个操作是合并单元格。然后我将如何实现autofit？为什么不创建word模板呢？因为它是Excel？简单地说，在我的例子中，word模板包含所有我希望文本更改的文本和内容控件。我准确地打开模板结尾，我只更改内容控件。如果我想在一个内容控件中添加多行，我会使用类似这样的“`` For x=0到99 temporary=temporary&cells1，i&vbCrLf Next x```