当前位置：文江博客话题详情

允许用户在word vba宏中选择文本

发布于 2024-07-16 10:13:46 字数 363 浏览 1 评论 0原文

在 VBA for Word 2007 中，我希望能够打开文档、突出显示文本部分并将这些部分替换为链接到文档变量的字段。该过程将是：

打开文档。
选择文本。
从列表中选择文档变量。
插入链接到所选文档变量的字段。
根据需要重复步骤 1-4。

无法事先知道要选择的文本是什么，或者哪个文档变量将链接到哪个字段，或者这些步骤将重复多少次。

只有微软才能让用户在运行时进行选择并将此选择传递回子例程这一最绝对基本、最简单的任务变得如此曲折和超现实。我花了两天时间试图解决这个问题。如果有人能帮忙，我将以你的名字命名我的下一个孩子。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

鹿港巷口少年归 2024-07-23 10:13:46

我认为“曲折、超现实”是一种误解。

创建一个带有下拉列表的小表单（例如，名为“selVarName”），可让您选择所有可用的文档变量名称。将表单链接到快速访问工具栏中的自定义按钮。

单击此表单中的“确定”后，请执行以下操作：

Private Sub btnOK_Click()
  Dim v As Word.Variable
  Dim n As String

  n = Me.selVarName.Value
  With Selection
    For Each v In .Document.Variables
      If v.Name = n Then v.Delete: Exit For
    Next v
    .Document.Variables.Add n, .Range.Text
  End With
End Sub

这已经具有附加功能。例如，您可以进行其他检查，例如“未选择文本”。

I think "tortuous and surreal" is a misconception.

Create a small form with a dropdown (named "selVarName", for example) that lets you select all document variable names available. Link the form to a custom button in the Quick Access Toolbar.

Upon clicking "OK" in this form do something like this:

Private Sub btnOK_Click()
  Dim v As Word.Variable
  Dim n As String

  n = Me.selVarName.Value
  With Selection
    For Each v In .Document.Variables
      If v.Name = n Then v.Delete: Exit For
    Next v
    .Document.Variables.Add n, .Range.Text
  End With
End Sub

And this has bells and whistles already. You can do additional checking like "no text selected", for example.

回复收藏 0 原文

~没有更多了~