批量改题号代码怎么写？

zzpsx

如何批量改题号.rar (4.47 KB, 下载次数: 4)

2018-11-23 08:18 上传

点击文件名下载附件

选中(一定要有选中这个操作)一段文本后,如何将文本中出现的题号从1开始标注,也就是把16.改为1.

17.改为2.

18.改为3.

有几个改几个

16.  Whathas made it easier for people to share ideas about beauty?

A.   Thedevelopment of technology.

B.   The popularity of the latest fashions.

C.   Theunchanged cultural traditions.

D.   The world’s growing population.

17.  Whatcan be learned about the Masai people from thepassage?

A.   Longer ear lobes are their new fashion.

B.   Only women make their ear lobes longer.

C.   They think longer ear lobes look beautiful.

D.   They make actors and film stars famous.

我只会录制宏，Sub 改题号()
'
' 改题号 Macro
' 宏在 2018-11-23 由 - 录制
'
    Selection.HomeKey Unit:=wdLine
    Selection.HomeKey Unit:=wdStory
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.TypeText Text:="1"
    Selection.MoveDown Unit:=wdLine, Count:=5
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.TypeText Text:="2"
End Sub

约定的童话

参见教程，好用记得评分哈！谢谢！

zzpsx

约定的童话 发表于 2018-11-23 09:31
参见教程，好用记得评分哈！谢谢！

谢谢。我需要把自动编号或者手写编号都能重新批量编号。

413191246se

楼主，如果你使用 Word 2003 的话，为什么不用我的《通用模板宏》呢？公文一键自动排版就把你的问题解决了！何必再录制宏呢？

zzpsx

413191246se 发表于 2018-11-23 23:58
楼主，如果你使用 Word 2003 的话，为什么不用我的《通用模板宏》呢？公文一键自动排版就把你的问题解决了 ...

在哪里？谢谢。

413191246se

略。。。。。。。。。

zzpsx

413191246se 发表于 2018-11-25 01:39
OMG！——楼主，我的帖子，又是《秋季版》，又是《彩色预览版》，你竟然看不到！？

以上设置，还是弹出以下信息，为何？

413191246se

楼主，你的 Word 版本是 2003 吗？能不能录制一个宏试试？我的设置为“高”，使用正常，是默认的，不知你的系统是怎么回事。实在不行，恐怕得重新安装 Office 了，完全安装，以便安装上 VBA。