如何解决用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
当我有长文本时,这是我的方法,并且使用内容控制,我仅更改了可变文本