用VBA在MS Word中以行的形式插入AutoText
VBA（Visual Basic for Applications）是一种用于自动化任务和定制应用程序的编程语言。它可以与Microsoft Office套件中的各种应用程序进行集成，包括MS Word。
在MS Word中以行的形式插入AutoText，可以通过以下步骤实现：
- 打开MS Word文档，并按下Alt + F11打开VBA编辑器。
- 在VBA编辑器中，选择插入 -> 模块，以创建一个新的模块。
- 在新的模块中，编写以下VBA代码：
Sub InsertAutoText()
Dim autoText As String
autoText = "AutoTextName" '将AutoTextName替换为实际的AutoText名称
'将AutoText插入到当前光标所在位置的下一行
Selection.InsertAfter vbCrLf & Application.AutoCorrect.Entries(autoText).Value
End Sub- 将代码中的"AutoTextName"替换为实际的AutoText名称。
- 按下F5运行代码，即可在当前光标所在位置的下一行插入指定的AutoText。
AutoText是MS Word中的一个功能，它允许用户保存并重复使用常用的文本片段、图像、表格等内容。通过使用AutoText，可以提高工作效率并减少重复性工作。
推荐的腾讯云相关产品：腾讯云服务器（CVM）和腾讯云对象存储（COS）。
- 腾讯云服务器（CVM）：提供弹性、可靠的云服务器实例，可满足各种规模和类型的应用需求。了解更多信息，请访问：腾讯云服务器产品介绍
- 腾讯云对象存储（COS）：提供安全、稳定、低成本的对象存储服务，适用于存储和处理各种类型的非结构化数据。了解更多信息，请访问：腾讯云对象存储产品介绍
请注意，以上答案仅供参考，具体的产品选择和推荐应根据实际需求和情况进行评估。
相关·内容
我正在尝试在MS Word 2016表单中创建一个“添加行”按钮，该按钮将在包含文本内容控件的表格的底部添加另一行。
简单地添加一行并不包括content控件，复制前一行也会复制已添加到这些content控件中的任何文本，这两个我都不想要。
我在某处读到，可以将未填充的行另存为AutoText，然后将AutoText作为新行插入。我只是无法找到如何做到这一点。我将未填充的行另存为AutoText，只是不知道如何使用VBA将其添加到表的底部。
此外，表单将受到编辑保护。解锁窗体所需的VBA代码，然后重新锁定我已经拥有的窗体。当我试图弄清楚这件事时，我只是暂时把它放在一边。
我尝试了下面的代码，但
浏览 15提问于2018-09-06得票数 1
回答已采纳
1回答
我希望在文档中插入AutoText (带有样式和颜色)，将此范围标记为带有Word VBA的书签。我知道如何用普通文本来做这件事，但是我不知道如何标记插入的自动文本。我们将非常欢迎和感谢您的帮助。
你好，肯姆
浏览 2提问于2022-10-28得票数 0
回答已采纳
我正在使用WordBasic将一个Word vba项目移植到一个VSTO项目中，该项目有一些较旧的vb.net元素。我需要执行的任务之一是以编程方式将字符串或窗体上文本框的内容保存到Word模板中的AutoText值。
在以前的项目中，这很容易。该命令如下所示：
WordBasic.SetAutoText "AT Name", strSomeValue, 0
在vb.net中尝试这样做：
'declarations
Public appWord As Word.Application
Public tplMyTpl As Word.Template
Public doc
浏览 0提问于2015-12-15得票数 1
回答已采纳
我看了，和
我试过这个：
private void AddFooters()
{
foreach (Word.Section wordSection in this.WordDoc.Sections)
{
object fieldEmpty = Word.WdFieldType.wdFieldEmpty;
object autoText = "AUTOTEXT \"Page X of Y\" ";
object preserveFormatt
浏览 14提问于2011-09-21得票数 5
在MS-Word中，几乎采用Mathtype插入方程.当MS-Word文档包含几个(Mathtype方程)，并且我们必须使用VBA宏编码来更改该首选项时，对于编辑等式格式，我们如何做呢？
这个问题是关于用VBA宏编码改变Mathtype方程格式。。
这似乎是一个复杂的问题，因为最后，我在这里问了问题，没有人回答我，直到现在。如果可能的话，请在这个问题上帮助我。谢谢大家。
浏览 7提问于2017-03-02得票数 2
1回答
在MS WORD VBA窗体上单击命令按钮时，必须在同一MS Word文档中的闪烁光标/选择光标所在的位置插入特定文本。
有人能帮我一下吗。
浏览 21提问于2017-03-09得票数 0
回答已采纳
我在MS Word 2007中有一个很大的表格(跨越几页)，每一行都包含很多文本。
Word 2007中是否有键盘快捷键可以直接跳到当前表格单元格的最后一行，以便在单元格的“底部”添加文本？
如果没有，我怎么用VBA来做呢？
浏览 0提问于2012-10-01得票数 3
回答已采纳
1回答
我正在尝试使用VBA以编程方式将一个构建块插入到Microsoft Word中，当插入工作时，当在打印预览中查看时，以及在打印时，构建块不会出现。
Sub draw_point()
Dim objTemplate As Template
Dim objBB As BuildingBlock
Selection.MoveDown Unit:=wdLine, Count:=1
' Set the template to store the building block
Set objTemplate = ActiveDocument.AttachedTempla
浏览 4提问于2017-05-24得票数 0
回答已采纳
2回答
我正在使用MS编辑文本，我转换为结构化HTML使用VBA。
文本是用document.saveas2和encoding:=msoEncodingUTF8写出来的。
今天我发现，商标符号编辑:插入使用插入符号功能；插入标签，符号组，符号按钮出现在文本文件中为"(tm)“。
在发现encoding:=65001也应该产生UTF8之后，我尝试了它--在一个案例中，它看起来很有效，但是结果是不可复制的。
我还了解到，由于比Unicode更老，Word可能会对某些字符使用私有代码页，因此我还输入了unicode代码，后面跟着alt；TM符号显示正确，但仍然没有被写入文本文件。
虽然我已经能够通过
浏览 0提问于2015-10-21得票数 0
回答已采纳
1回答
我有一张Word表格。我想要做的是对突出显示的行中的数字求和(仅在一列中)。我在互联网上找到了，然后使用更改了函数，以便它检查突出显示的颜色，而不是背景。这就是我创建的：
Function ColorIndex(Rng As Range)
ColorIndex = Rng.Interior.ColorIndex
End Function
但是，当我想检查它在Excel中是否有效时，我意识到Excel中根本没有“突出显示文本”选项。这让我意识到，这个函数可能无论如何都不会做我想要的事情，我检查了一下，正如我所预期的那样，它将返回单元格背景的颜色。因此，我想看看该函数是否可以在Word中使用，
浏览 7提问于2015-12-03得票数 0
我有一个聊天日志，有人贴在MS Word上给了我，但在粘贴时，聊天之间的所有回车都被剥去了。每次聊天都以'MM/DD/YY‘格式的日期开始(月只能是一个字符)。
我只能访问VBA，并且需要在每次发生日期之前插入一个新行，以便使该文档更具可读性。
浏览 1提问于2019-03-05得票数 0
回答已采纳
1回答
VBA启用日志记录
、、、
VBA代码挂起了MS Word，我不知道是什么问题，我没有看到任何异常或消息，它只是挂起。有没有办法获得有关异常的任何信息？我知道哪一行失败了，但我不能单步执行代码，因为它不是VBA代码，它在另一个dll中。我将尝试将调试器附加到该dll，但我要求的是某种类型的MS Word日志文件。
浏览 1提问于2011-06-06得票数 0
1回答
首先，我没有任何使用VBA的经验。我这里的内容是基于我从各种教程中读到的内容。我在Excel工作表中有数据，我想作为自动填充插入到MS Word的书签中。每行数据将另存为一个MS Word文档文件。我遇到的问题是，我不知道如何连续自动填充下一行，直到A列中的行为空
Dim wdApp As Word.Application
Dim myDoc As Word.Document
Dim mywdRange As Word.Range
Dim Tagno As Range
Dim Csheetno As Range
Set wdApp = New Word.Application
With wd
浏览 0提问于2019-05-10得票数 0
1回答
我正试图在MS Word中创建一个信封。下面的代码将创建一个信封，但我在该页的顶部得到了“分节(下一页)”。我想把它去掉。
oDoc = oWord.Documents.Add(ref oMissing, ref oMissing, ref oMissing, ref oMissing);
oDoc.Activate();
object ExtractAddress = false;
object Address = "Address" ;
obje
浏览 3提问于2011-09-22得票数 3
1回答
早上好,
我需要Excel中的宏，它可以从Word文档中的特定表、列和行中提取数据。
这是我的Excel文件，在第2行中，我已经规定了我需要从Word doc返回给那个单元格的表、行和列数据(也显示了)。
我不是程序员，所以我尝试了Quick和AutoText，但没有走多远。
我很感谢你的帮助:)
浏览 5提问于2022-10-31得票数 0
回答已采纳
在ms word2007中可用于邮件合并的规则似乎是有限的。我已经创建了一个邮件合并来从excel中提取大约10000行数据，并使用邮件合并将这些数据合并到word文档中。我甚至使用了一些条件语句来显示字段为空时的默认文本。然而，我被要求每隔50页插入一个静态页面，其中将包括excel文件中未提供的消息。当这个静态文本出现在第50页，然后是100页，然后是150页时，它将是静态文本，页面上不会出现merge中的其他字段。换句话说，这些字段将被静态文本替换。有什么简单的方法可以做到这一点吗？我在想，我可以用vba编写一些代码，并在某个页码到达ex时动态创建一个新页面。50
我们非常欣赏你的想法。
浏览 3提问于2017-03-25得票数 0
1回答
我可以使用VBA将一个方程插入到MS Word文档中，使用与它捆绑在一起的等式工具第三方软件。这个问题是当我想要退出方程的启迪和写普通的MS字文本时。这必须使用VBA实现自动化。下面是用于插入代码的VBA代码：
Set objRange = Selection.Range
Set objRange = Selection.OMaths.Add(objRange)
Selection.TypeText s
Set objEq = objRange.OMaths(1)
objEq.Type = wdOMathInline
objEq.BuildUp
让我把问题说得更清楚:我希望将等式编辑器的文本包
浏览 3提问于2015-09-20得票数 0
如何使用VBA宏为MS Word中的字体添加渐变。我可以通过转到:主页>字体>字体颜色>渐变在前端完成此操作 我希望使用VBA宏来做这件事。
浏览 9提问于2020-03-17得票数 0
1回答
我有一个字节数组中的图像(从MySQL blob列中读取它)，我需要使用VBA和MS Word将其插入到文档中。我可以创建一个形状，然后使用EnhMetaFileBits对其进行“再水化”吗？
浏览 5提问于2010-08-03得票数 2
回答已采纳
我正在尝试使用MS-Access中的VBA将图片添加到MS-Word文档。它确实可以工作，但是当我尝试设置位置时，我得到了一个运行时错误。
下面是可以工作的代码行。
objShapes.AddPicture FileName:=strCompleteImagePath, LinkToFile:=False
根据，.AddPicture的语法为
expression .AddPicture(Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
我试过了：
objShapes.AddPicture strComplete
浏览 0提问于2017-04-04得票数 3
我试图使用书签在现有的Word文件模板中插入多个Word文件。
下面搜索现有word文件中的特定书签，并在现有的word文件中插入另一个单词文件的内容。
除了行Selection.InsertFile FileName:=BookmarkValue之外，其余代码都正常工作。
这一行代码在Word VBA中工作，但在Excel中不工作。
你能帮我找出我哪里错了吗？
为了您的方便，我在下面介绍了代码的简化版本。
Sub CreateWordDocuments3()
Dim LastRow As Long
Dim DocLoc, BookmarkName, BookmarkValue
浏览 0提问于2018-12-21得票数 0
回答已采纳
1回答
如何实例化图表？
、、
我目前正在尝试通过word vba创建图表，例如拼图。
问题是，运行此word vba的计算机没有可用的excel，只有word和ms图形。
我试着用ms graph创建一个图表，但是我不能让它工作。
从下面的代码中，我可以创建带有内联形状和图表的图表，并在word窗口中显示一个漂亮的条形图。
我无法实例化Ms Graph的图表元素。我找到了一个法语指南，说明应该如何做，但我不能让"me.graphique1"-part有意义。
内联形状
Dim vlChart As Chart
Set vlChart = ActiveDocument.InlineShapes.AddCha
浏览 24提问于2019-03-25得票数 1
回答已采纳
我用JavaFX创建了一个数据库(MS Access)和一个前端。
在一个表中，我实现了一个数据宏，它在另一个列(CurrentUser()-Function)中触发插入事件。我以不同的方式测试了数据宏(直接在MS Access中创建行，使用SQL-Insert-Query创建VBA-Code )，并在触发器工作的任何时候进行测试。
我的Java-Frontend也做得很好(将SQL插入到MS Access)。但问题是:数据宏不能以这种方式工作。
我认为，MS Access的后端更新和数据宏之间存在关联，因为每当我使用JavaFX-Frontend执行SQL-Insert-Command时，M
浏览 46提问于2018-10-08得票数 0
我有一个PHP变量保存纯文本，需要使用OpenTBS插入到MS Word模板中。
我的占位符是：
[onshow.introduction]
问题是，我使用了合理的格式，所以我需要实际的“新段落”，即“回车”(输入)在Word。相反，我的所有换行符都被翻译成“新行”(shift-Enter)，从而扰乱了我的格式。
我试着插入
，\r，\n，\n\r，\r，PHP_EOL --它们都只是在MS Word中创建换行符而不是新的段落字符。
有没有办法从OpenTBS获得单词中的“新段落”字符？
浏览 6提问于2022-02-07得票数 0
回答已采纳
在VBA for MS Word中，有没有可能进行垂直选择？我的意思是:有没有可能在MS Word VBA例程中模拟按键Shift+Alt+Selection (通过鼠标)的行为？
浏览 0提问于2017-03-01得票数 5
向外面的专家问好。我正在创建一个VBA MS Access报告，需要包装在几个网格(表)的不同类别和布局的数据。
有没有人知道MS Access中是否有一个表格(网格)控件，可以用来创建报表？
引用的控件类似于我们在MS WORD中拥有的控件。
我在网上和MS Access API和文档中进行了搜索。我不能确定这样的控件是否可用，如果不是，我有什么选择来为报告绘制一个表。也许从Access调用WORD组件，然后直接创建Word文档？
浏览 7提问于2016-09-26得票数 0
2回答
我想在MS Office中添加某些功能。目前，我正在寻找VBA来开发它。但是，运行宏似乎需要禁用安全性。这意味着，如果我分发VBA程序，其他人需要启用宏才能运行。(安全问题) 现在的问题是，我如何分发我编写的VBA？例如，在.exe文件中？有没有其他的方法来创建这个插件呢？ 我为MS Word下载了一些插件，它似乎是用.dll格式的C++写的。 谢谢。
浏览 2提问于2009-07-29得票数 1
我是VBA的新手。我正在使用ms-access作为数据库。我有一个原始数据在excel中，我想将数据插入到ms-每日访问基础上。在每个excel中，我有超过100或200行。我的数据库和excel列标题是相同的。现在我正在插入一行时间。插入所有数据所花费的时间太长。我不想在一个insert语句中插入所有行。
当前我是以下方法：
for i = 1 to 100
name = wb.sheets(1).celss(i,1)
job = wb.sheets(1).celss(i,2)
testt = wb.sheets(1).celss(i,3)
ssql="insert into (n
浏览 2提问于2014-04-02得票数 0
1回答
如何自动拟合表格行高？
、、、
使用MS Word VBA。我已经有了一个很好的宏，它可以自动将所有表的宽度调整到窗口大小(边距到边距)。
我希望做一些类似的事情，自动调整所有的表行高度，以显示每一行中的所有文本。当前，表行只显示一行，然后文本包装在下面，不可见。
任何帮助都是非常感谢的。代码如下：
Sub ResizeAllTables()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.AutoFitBehavior wdAutoFitWindow
Next oTbl
End Sub
浏览 3提问于2020-11-17得票数 2
回答已采纳
1回答
大家好，我有个问题：
我有一个表单，用户可以在该表单中添加将被传递到ms word中的表的行。
当我遍历所有窗体以添加行时，我调用函数。
我将新行插入到MS文档中的表中(从模板)
当我尝试向单元格中添加文本时，它只将文本添加到第一行！
我就是这样做的：
Dim frame As Control
For Each frame In fillForm.MultiPage1.Pages(2).Controls
If TypeOf frame Is msforms.frame Then tablerowadd frame.Controls("krsName"
浏览 4提问于2013-04-10得票数 0
回答已采纳
Ms Word数据库字段在Word表中插入数据库查询的结果。
我想用VBA在ms word中填充一个表，我已经使用了VBA MsAccess & MsWord书签，来自数据的模板使得文档很难维护。我发现MSword拥有insert数据库选项，并允许您在msaccess中实现数据，并在更新期间保留预格式化。以下数据库字段代码来自使用数据库命令通过ODBC从Access数据库查询的结果：
{数据库\d "C:\My数据源\测试World.odc“\c "Provider=MSDASQL.1;Persist Security Info=True;Extended Prope
浏览 4提问于2017-04-06得票数 1
回答已采纳
我正在尝试从一个包含大约90000行的文件中提取词干(每行有三到几百个单词。我想在词干之后将这些行附加到一个列表中。我能够将带词干的单词插入到一个包含一行的列表中。我想在保留前90000行的同时将单词插入列表中。有什么想法吗？
使用open(folder_path+text_file_name，'r'，clean_sentence =‘utf-8’)的open= []作为f：
for line in f:
sentence = line.split()
for word in sentence:
if word.
浏览 0提问于2018-02-13得票数 1
我使用Access VBA代码创建Word文档并插入一些格式化文本，如下所示。
我需要做的一件事是用一个项目符号分隔一些元数据。我们目前在Access报表中执行此操作(在Access SQL语句中显式使用该符号为报表构建数据)，但现在需要使用VBA构建不同类型的文档。
我的研究表明，项目符号是字符代码183或149，但是当我们在VBA代码中同时使用这两个字符代码时，它会插入较小的项目符号，而不是通过Insert>Symbol菜单直接插入项目符号而得到的粗大项目符号。
下面是一些示例代码，以及该代码输出的屏幕截图(手动添加最后一行，以显示我们可以手动添加的项目符号的大小)。对于如何通过VB
浏览 48提问于2021-05-13得票数 1
回答已采纳
是否有人在使用VBA宏？将PNG文件插入word文档时遇到问题？
我有一个MS Word文档，其中包含一个非常大的目录列表中的图像文件，在一个表中。我被要求通过在名称前面插入相应的图像来更新文档。
现在，如果我手动输入图像(使用Insert|Image|From File)，我可以成功地放置PNG映像.所以我决定写一个快速的VBA宏来插入图像给我。以下是代码的示例：
Dim myFile As String
Selection.SelectCell
Selection.Copy
myFile = _
Chr(34) & "C:\Documents and Setting
浏览 1提问于2011-01-05得票数 1
回答已采纳
我写了一个宏，它在word文档中搜索某个风卡定义的文本字符串，然后找到这个匹配项所属的段落。一切正常，但现在我遇到了以下挑战:我需要查找不可打印的字符，特别是需要查找Ms word索引引用，这些引用显示在{XE“text to index”}这样的单词中。我发现了一个难题，当我调用Ms Word查找对话框(CNTRL+F)，然后定义通配符搜索模式‘XE“*’时，ms Word会找到这些。但是，当我为VBA find函数传递相同的模式时，它找不到它们，因此我观察到手动调用find函数的行为与从VBA调用的行为之间的一些差异。
你知道如何使用VBA找到这些不可打印的字符吗？
仅供参考，这就是我调用
浏览 9提问于2015-01-08得票数 1
自从Word 2010以来，MS已经为MS Word引入了一个新特性，即LayoutColumns FootnoteOptions。
因此，以下代码在Word 2016中编译：ActiveDocument.Range.FootnoteOptions.LayoutColumns，而不是Word 2010 (我还没有在Word 2013中进行测试)。
条件编译器语句似乎没有帮助..。除了包含Word 2010的VBA7之外，没有什么可供应用程序版本使用。
因此，这不会在Word 2010中编译：
Sub testWd10()
#If Win64 And VBA7 Then
ActiveD
浏览 4提问于2017-08-17得票数 3
回答已采纳
我有一个MS Word文档，当它来到我的时候，里面有错误的单词。我在book1，sheet1的Excel列A中有一个这些单词的列表。我也有应该是book1，sheet1的B栏的话。
列表大约有300个单词，但文档只有50个单词。
我的想法是用VBA复制并粘贴word文档中的文本。运行VBA将Col A设置为字符串并搜索单词doc。如果找到，则将其替换为Col B。在文档的末尾，将下一个Col A设置为字符串，然后再次执行此操作...直到最后一行。
我曾经在Excel编程中工作过，但在这一点上我失败了。一如既往，任何帮助都是很棒的。
罗伯特
浏览 2提问于2011-03-30得票数 0
1回答
在我的自定义GET端点中，我想返回一个字符串，但为了“美化”它，我想为每个不同的信息插入新行。我试过用这种方式和\n\r打交道
return "Name of process definition: "+ obj.getString("processDefinitionName") + "\r\n" + "Start time of instance: " + obj.getString("startTime")
+ "||" + "End time of the insta
浏览 1提问于2019-04-09得票数 0
(我为我的英语道歉。)我正在为学生准备教材，我需要计算MS Word文档中所有数字所占的面积。简单的例子只有两个数字：
图1: 12厘米x 10厘米= 120 cm2图2: 8厘米x 10厘米= 80 cm2总计: 200 cm2
总数就足够了，不需要知道每个数字的大小(但如果不是太复杂的话，也会有帮助)。很多年前，我在WordPerfect 6中为DOS编写了这样的宏--相当容易。但我对VBA的了解非常非常有限。我真的很努力地去看VBA的帮助，但是我不知道要找什么。我也尝试过谷歌等(当然还有StackOverlow)，没有发现任何提示。
我需要这样做，因为在我国，教科书的手稿的总大小(长度)
浏览 4提问于2020-12-10得票数 1
我想使用Excel VBA根据Excel单元格区域在Word文档中创建链接。但是当它到达hyperlinks.add行时，我得到的是"run-time error ‘450’: Wrong number of arguments or invalid property assignment"。 几乎完全相同的代码在Word VBA中运行良好。我不明白这个错误信息。虽然我非常熟悉Excel VBA，但Word VBA的选择和范围让我感到困惑。 我在下面的代码示例中使用了字符串而不是范围，在每种情况下，代码都会成功地在test.docx文档的末尾插入文本，但是当Word VBA插
浏览 42提问于2019-01-07得票数 3
回答已采纳
1回答
我正在处理一个在MS Word2003中使用VBA的小问题：
我已经创建了一个表，现在我想给它一个标题，也是用VBA...你知道怎么做吗？
如果你能再帮我一点忙，那就太好了！问候，诗词
@Edit:我搜索的单词是"caption“;-)
浏览 1提问于2010-11-19得票数 1
回答已采纳
1回答
我有一个包含多个表的Word文档。其中一些有书签，而另一些则没有。是否有一种方法只在带有书签的表上使用VBA实现ConvertToText命令(不管书签名称如何……我有超过40个书签)？基本上，我试图摆脱书签表，只保留这些文本。在没有书签的情况下，将书签表插入到其他表中。我在用MS Word 2007。
提前谢谢！塞布
浏览 1提问于2015-01-22得票数 0
回答已采纳
我对VBA完全陌生。我需要编写一个宏来执行以下伪代码描述的操作。任何对VBA代码的引用都来自于我在googling中找到的例子。非常感谢您所能提供的任何指导。
Dim myText as string;
Dim myAutoTextFieldValue as string;
Set myText='Figure';
Set myAutoTextFieldValue = 'fignum';
// fignum is a autotext value that will insert a sequence type field
.Find text wh
浏览 0提问于2015-11-05得票数 0
在macro中，我一直在分发一个包含宏的xls文件。从用户“随机”当前打开的工作簿中，我已经成功地调用了这个宏，告诉Word在哪个文件中查找它。就像这样，当用户单击丝带上的一个按钮时：
C:\"'MyExcelFileWithTheMacro.xls'!MyMacroName“
我可以在MS Word?中做同样的事情吗?也就是说，从未打开该文件的Word实例中调用位于任何给定文件夹中的Word文件中的宏？
当然，我试过了，但是有消息说它找不到宏观的东西。
我之所以要这样做，是因为它可以方便地分发和更新宏。下一步是对宏进行签名。我希望这样做是可以做到的，但不确定。
浏览 0提问于2016-03-30得票数 0
我正在使用Delphi10.4将ContentControl插入到MS Word文档中 使用以下代码段将content控件插入到模板的书签中： procedure TBF.SetPI;
var
R: WordRange;
bookmark: OleVariant;
s: string;
begin
s:= 'insert text here';
bookmark := 'textValue';
R := MF.WordDoc.Bookmarks.Item(bookmark).Range;
R.Text := s;
R.Highl
浏览 11提问于2021-01-14得票数 1
回答已采纳
我需要在一个excel报告中插入一个QR代码，其中源数据也在此excel上。由于我公司的政策，我不能使用任何外部链接或应用程序，所以谷歌图表，QR代码API等不是一个选项。我的想法是，从excel报告中调用创建MS Word文档，添加一个字段并使用{DISPLAYBARCODE.}控制字段，生成我的QR代码，然后作为图片返回到我的Excel报表。就在MS字词即将结束的时候，没有保存。
我不是VBA大师，我也不知道我的代码不起作用。我可以创建一个打开MS文件，粘贴一个简单的文本，但是我不能创建字段，总是有错误450的消息。
Sub CopyToWord()
Dim doc As Object
浏览 10提问于2022-11-04得票数 0
回答已采纳
1回答
VBA访问分页符
、、
我是VBA的新手，我正在尝试使用书签将access表单中的数据带到word文档中。我遇到的问题是，我发现很难在MS word中用下一条记录创建一个新的记录。在VBA (Access 2010)中有没有办法创建一个分页符，以便我可以插入下一条记录？我已经可以在word文档的第一页上获得任何记录。
Wrd.Documents.Add "\\wordDocument.dotx"
Wrd.Visible = True
x = 1
For x = 1 To LastRecord
'Replace each bookmark with current data.
With W
浏览 0提问于2013-06-08得票数 1
回答已采纳
在Word VBA中，我希望在文本框和复选框中显示用户表单和输入信息。
但是，我希望能够访问和滚动在其他方面的文件。
我希望弹出一个userform，插入文本并单击复选框，能够滚动其他文档，然后按一个命令按钮隐藏userform并执行其余的代码。
我将userform特性ShowModal设置为False。这帮助我访问其他文档并能够在其中滚动。
但是，我的代码将继续执行，因此我不能使用文本框中的信息和用户表单中的复选框，甚至不能让用户将信息插入文本框中。
一个简单的脚本来展示这个概念。
Sub testing()
UserForm1.Show
MsgBox ("Hello, "
浏览 2提问于2022-01-05得票数 0
回答已采纳
我在MS Word中对VBA很陌生，在Excel中只对VBA比较满意。
我试图处理一个文字文件，其中有一些特殊的信息附加到许多词。信息是通过改变文本的颜色、大小和位置来传达的，但是单词和信息之间没有空格。
为了进行其他处理，我需要在信息文本和实际单词之间添加一个空格：
使用VBA，我能够通过颜色找到信息性文本，使用对描述的方法的细微变化。我可以用“测试”代替它。但是我想要做的是用一个空格加上国际文本来代替它。或者只是神奇地在信息文本之前插入一个空格。
想法？
此代码：
Sub ChangeColorWithReplace()
Selection.Find.Clear
浏览 0提问于2018-03-03得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
