☰

创建 Word 宏来输入增加的数字

tag-icon • tag-icon microsoft-word vba macros visual-basic
创建 Word 宏来输入增加的数字

我是一名 Youtuber，我经常创建 word 文档，标记我想要插入图片、视频或声音片段的位置，与脚本中的某些单词相对应，以说明我所说的要点。我只需用粗体输入“[3]”、“[99]”等，因为我的媒体按出现顺序编号。这可能非常乏味，因为我经常在每部作品中使用 100、200、300 多个媒体。我有时还会在输入时不小心重复使用一个数字，然后不得不返回更改它以及它之后的所有内容，这令人沮丧。

因此，我很好奇，看看 Word 宏是否可以在按下按钮或击中某个键时执行以下功能：

  1. 为后续文本启用粗体文本
  2. 类型 ”[”
  3. 输入一个数字，每次使用宏时增加 1
  4. 类型 ”]”
  5. 输入空格。

我尝试自己编写此代码，使用以下宏：

Sub Macro2()
'
' Macro2 Macro
'
'
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="[" & Right("000" & Trim(CStr(J + 1)), 2 & "]")
    Selection.TypeText Text:=" "
End Sub

但是，我没有使用过 Visual Basic，编码经验也非常少，我最后的主要经验是中学时的 HTML 课程和一些自学的 JavaScript，所以本质上我不知道自己在做什么，而且我也没有取得太大的进展。

答案1

您可以使用“字段”来生成连续数字。

无论您想在何处开始新的编号序列，您都应插入{ SEQ MEDIA \rN }，其中MEDIA是名称（您可以选择）&N是起始数字，通常为 1。

无论你想要在 SEQuence 中输入下一个数字，你都应该插入{ SEQ MEDIA }

参考：

答案2

过了一段时间后，我尝试了这些建议，但不幸的是，这些建议都没有奏效。我最终实现了我的目标，方法是使用 iCUE 宏在按下键时插入尾注，然后自动滚动回到插入的位置（尾注在放置时会带您到文档的最末尾）。然后，我修改了 Word 的默认文档，使所有尾注的字体足够大，可以看见，并将它们从罗马数字更改为简单数字。

相关内容