标题说明了这一切,但为了让它更清楚一点,比如我想通过VBA创建一个文本框,上面写着“这个文本应该是字体大小24,这个文本应该是字体大小20”。
现在,我使用自己的函数创建文本框,如下所示。干杯,谢谢你的帮助!
Sub textBox(textBoxText As String)
Dim myTextBox As Shape
With ActiveWindow.Selection.SlideRange
Set myTextBox = .Shapes.AddTextbox _
(Orientation:=msoTextOrientationH
下面的VBA代码工作得很好,但是放在E列中的结果需要保留原始源数据格式,如字体和大小、单元格居中等。如何修改下面的VBA代码来实现这一点?
将给定范围的多行转置为单个空列E的VBA代码:
Sub RangeToColumn()
Dim varray As Variant
Dim i As Long, j As Long, k As Long
Application.ScreenUpdating = False
k = 1
varray = Range("A1:D4").Value
For i = 1 To UBound(varray,
我正在尝试创建一个字VBA,可以对齐所有的文本,如果字体大小是10,忽略所有的表和形状。有些方法,它不能工作在有数千个段落的大文档上,因为它会挂起。无论如何,我可以简化这段代码,让它运行得更快、更高效。 Sub JustifyAllTheText()
On Error Resume Next
Dim para As Paragraph
Dim searchRange As Range
Set searchRange = Selection.Range
searchRange.End = ActiveDocument.Content.End
我创建了一个vba代码,但是字体和邮件大小都不正确。我想要卡利布里11,但它是卡里布里10第一行(你好)和Verdana 10为其余。怎么继续?
Sub mail_outlook()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.SentOnBehalfOfName = "xxxxxxxxxxxx"
.
我有一个字号为14和18的Word文档,该文档有1500页。
我必须对字体14和字体18进行特定的更改,所以在搜索之后,我遇到了VBA for Word,它可以让我轻松地做到这一点。
因为我以前从来没有做过VBA,所以我尝试了一下:
Sub tryIt()
If Selection.Font.Size = 18 Then
MsgBox ("test")
End If
End Sub
但它不起作用。msgbox()只是为了查看它是否正确地识别了文本。
那么,如何在Word文档中区分字体大小为14和18的字体,并在vb脚本中实现呢?
有没有办法提取14和18大小的文本或搜索它,
我正在尝试计算具有蓝色字体的单元格的数量,但它不起作用。我可以用红色字体计算单元格,但不能用蓝色字体。这是我使用VBA创建的自定义函数 Function GetFontColorCount(CountRange As Range, CountColor As Range)
Dim CountColorValue As Integer
Dim TotalCount As Integer
CountColorValue = CountColor.Font.Color
Set rCell = CountRange
For Each rCell In Coun
我用VBA编写了以下代码:
Dim StrBody As String
StrBody = "Text Line 1" & "<br>" & _
"Text Line 2" & _
如何更改字体以获得特定的样式(例如Arial)、大小和颜色?
文本用作电子邮件的正文。这就是为什么需要使用一些更好看的样式。默认字体为"Times New Roman“。
我有一个有三列的电子表格。列A中有一些句子(用黑色字体颜色写)。列C有要搜索的术语列表。D列有一个替换词列表(用红色字体颜色写)。
我试图搜索A栏中的句子以查找C栏中的搜索词,如果A栏包含C栏中的任何搜索词,则将A栏中的案文替换为D栏中的替换词。
查找/替换功能工作得很好。但是我还没能让A列中被替换的字符串的字体颜色变成红色。
有什么想法吗?
这是我目前掌握的密码。
Private Sub CommandButton1_Click()
For i = 3 To 6
Worksheets("Sheet1").Range("A2:A35").Selec
尝试找到代码来更改字体名称,文本框的大小在Excel宏中,我所有的代码从“.font.name= to End with”显示错误在VBA,有什么建议吗?谢谢 Set myDocument = Worksheets(1)
Set tx_ = myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 382, 266, 122, 20)
tx_.TextFrame.Characters.Text = ThisWorkbook.Sheets(1).Cells(6, 8)
With tx_.TextFrame.Charact
是否有一种方法可以使用VBA向Word文档添加页眉和页脚,如下所述?
标题应该是以下几个方面的组合:
"New“以粗体16 pt字体表示,左对齐,当前日期和时间为非粗体,12 pt字体为右对齐。(我在下面的代码中定义了一个myDateTime变量,用于日期/时间字符串。)
页脚应该是居中的“Y页X”(其中X和Y分别是页#和页#的字段)。
我很清楚如何在Word中手动完成这一操作,但是尽管许多Google搜索都无法完全破解这个问题(或者真正弄清楚从哪里开始)使用VBA。下面是我目前创建文档所需的访问VBA代码。
欣赏任何解决方案或指示。
' declare vars and se
我想用vba生成一个特定布局的excel工作表。我的一个子例程是字体颜色。它看起来是这样的:
Sub SetFont(cell1, cell2 As range, fcolor As String)
range(cell1, cell2).Select
If fcolor = "w" Then
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
ElseIf fcolor = "b" Then
Wi
我已经编写了一些Excel VBA,现在我正在测试VBScript。我正在尝试创建一个表单/窗口,一段时间后,我设法创建了以下代码:
Dim ExApp
ExApp = CreateObject("Excel.Application")
'ExApp.Application.Visible = True
Dim Workbook
Set Workbook = ExApp.Workbooks.Add
Dim myForm
Set myForm = Workbook.VBProject.VBComponents.Add(3)
Workbook.VBProject.VBCom