网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vba吧 关注：17,003贴子：66,377
  • 15回复贴，共1页

大佬们帮忙看下这段代码的问题

我想实现插入一问一答的称呼和符号，就是在单数段前面加“称呼1：”，后面加“？”，双数段加“称呼2：”，后面加“。”
比如我有一段文档：
你叫什么
张三
你多大
11岁
通过代码变成：
称呼1：你叫什么？
称呼2：张三。
称呼1：你多大？
称呼2：11岁。
然后经过求助chatGPT，它给我了这样一段代码：
Sub AddPrefix()
If Selection.Range.Paragraphs.Count > 1 Then
Dim i As Integer
For i = 1 To Selection.Range.Paragraphs.Count
If i Mod 2 = 1 Then
Selection.Range.Paragraphs(i).Range.InsertBefore "称呼1："
Selection.Range.Paragraphs(i).Range.InsertAfter "？"
Else
Selection.Range.Paragraphs(i).Range.InsertBefore "称呼2："
Selection.Range.Paragraphs(i).Range.InsertAfter "。"
End If
Next i
Else
MsgBox "请选择多个段落。"
End If
End Sub
但经过试验，原文变成了：
称呼1：你叫什么
称呼2：？张三
称呼1：。你多大
称呼2：？11岁。
经过逐语句调试，发现输入符号的时候直接输入到下一行的句首，然后再在句首输入称呼
因为对VBS一窍不通，请大佬解答


我估计是这样的：insertafter的内容插到了回车换行符的后面


所以说人工智障写的东西非专业人员还是没什么卵用。
learn.microsoft.com/zh-cn/office/vba/api/word.selection.insertafter
具体请参考以上的说明


@JamesChih
你好，我已经把宏安全性里设置为启用，但打开后还是全部为空，我已经在三个电脑上试过了



Sub AddPrefix()
If Selection.Range.Paragraphs.Count > 1 Then
Dim i As Integer
For i = 1 To Selection.Range.Paragraphs.Count
Debug.Print ActiveDocument.Range(Selection.Range.Paragraphs(i).Range.Start, Selection.Range.Paragraphs(i).Range.End - 1)
If i Mod 2 = 1 Then
ActiveDocument.Range(Selection.Range.Paragraphs(i).Range.Start, Selection.Range.Paragraphs(i).Range.End - 1).InsertBefore "称呼1："
ActiveDocument.Range(Selection.Range.Paragraphs(i).Range.Start, Selection.Range.Paragraphs(i).Range.End - 1).InsertAfter "？"
Else
ActiveDocument.Range(Selection.Range.Paragraphs(i).Range.Start, Selection.Range.Paragraphs(i).Range.End - 1).InsertBefore "称呼2："
ActiveDocument.Range(Selection.Range.Paragraphs(i).Range.Start, Selection.Range.Paragraphs(i).Range.End - 1).InsertAfter "。"
End If
Next i
Else
MsgBox "请选择多个段落。"
End If
End Sub


我就说嘛，为毛大家都不说使用函数来着，原来是word啊，这要是放excel函数就可以了


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 15回复贴，共1页
分享到: