InsertText 方法标准模块或类模块中插入指定的文本字符串。
语法
表达式。InsertText (Text)
表达 一个代表 Module 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Text | 必需 | String | 要插入到模块中的文本。 |
返回值
Nothing
注解
通过使用 InsertText 方法插入字符串时，Microsoft Access 将新文本末尾的模块，毕竟其他过程。
若要添加多行，请在构成 Text 参数的字符串中所需的换行符处添加内部常量 vbCrLf。 该常量将强制回车符和换行符。
若要指定在哪个行插入文本，请使用 InsertLines 方法。 若要将代码插入到模块的声明部分，使用 InsertLines 方法，而不是 InsertText 方法。
注意
[!注释] 在 Microsoft access 早期版本中， InsertText 方法是 应用程序 对象的方法。 仍可以使用 Application 对象的 InsertText 方法，但建议改用 Module 对象的 InsertText 方法。
示例
以下示例将文本字符串插入标准模块。
Function InsertProc(strModuleName) As Boolean
Dim mdl As Module, strText As String
On Error GoTo Error_InsertProc
' Open module.
DoCmd.OpenModule strModuleName
' Return reference to Module object.
Set mdl = Modules(strModuleName)
' Initialize string variable.
strText = "Sub DisplayMessage()" & vbCrLf _
& vbTab & "MsgBox ""Wild!""" & vbCrLf _
& "End Sub"
' Insert text into module.
mdl.InsertText strText
InsertProc = True
Exit_InsertProc:
Exit Function
Error_InsertProc:
MsgBox Err & ": " & Err.Description
InsertProc = False
Resume Exit_InsertProc
End Function
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。