首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

再次提问:怎么把小弟我选中的文字的前面都统一添加“//”

2012-01-22 
再次提问:如何把我选中的文字的前面都统一添加“//”主要的功能是:做一个winform窗体,使他一直运行在最前面,

再次提问:如何把我选中的文字的前面都统一添加“//”
主要的功能是:做一个winform窗体,使他一直运行在最前面,这个窗体上有两个按钮,一个是添加,另一个删除。当我打开一个word文档后,选中几行。然后点击这个winform窗体上的添加按钮,就会自动把我刚刚选择的几行的最前面自动加上“//”。


[解决办法]
在一个WORD文件中增加一个宏
然后选中几行文字运行这个宏试试
要注意:这个只是给选中的每段增加 ///

Sub DefAdd()
Dim p() As Paragraph

Dim i As Integer
For i = 1 To Application.Selection.Paragraphs.Count
ReDim Preserve p(i)
Set p(i) = Application.Selection.Paragraphs(i)
Next

For i = 1 To UBound(p)
p(i).Range.Text = "/// " & p(i).Range.Text

Next


End Sub
[解决办法]
顶。。。。
[解决办法]
//不要使用宏,我是想做一个winform窗体。

你引用word对象,然后参考sdfkfkd(特别)提供的代码
[解决办法]
学习中

热点排行