24小时热门版块排行榜

返回列表

当前主题已经存档。

wanrong

铁虫 (小有名气)

应助: 0 (幼儿园)
金币: 3041
散金: 7
帖子: 174
在线: 121.5小时
虫号: 797527
注册: 2009-06-23
专业: 计算机

[交流] 【求助】修改一个VBA小程序

各位老师和同学，我想用VBA编程实现这样的一个功能：
   行政区划 指国家对行政区域的划分。根据宪法规定，我国的行政区域划分如下：（1）全国分为省、自治区、直辖市，（2）省、自治区分为自治州、县，自治县、市，（3）自治州分为县、自治县、市。
可比价格 指计算各种总量指标所采用的扣除了价格变动因素的价格，可进行不同时期总量指标的对比。按可比价格计算总量指标有两种方法：一种是直接用产品产量乘某一年的不变价格计算，另一种是用价格指数进行缩减。
  不变价格 指以同类产品某年的平均价格作为固定价格，用于计算各年的产品价值。按不变价格计算的产品价值消除了价格变动因素，不同时期对比可以反映生产的发展速度。
变成了：
   行政区划 指国家对行政区域的划分。根据宪法规定，我国的行政区域划分如下：（1）全国分为省、自治区、直辖市，（2）省、自治区分为自治州、县，自治县、市，（3）自治州分为县、自治县、市。
#######################################################
    可比价格 指计算各种总量指标所采用的扣除了价格变动因素的价格，可进行不同时期总量指标的对比。按可比价格计算总量指标有两种方法：一种是直接用产品产量乘某一年的不变价格计算，另一种是用价格指数进行缩减。
#######################################################
   不变价格 指以同类产品某年的平均价格作为固定价格，用于计算各年的产品价值。按不变价格计算的产品价值消除了价格变动因素，不同时期对比可以反映生产的发展速度。

   即在每一个黑体字的上方能加上一个字符串#####################
   我有一段程序如下，请问如何修改能实现上面这样的功能。
Sub InsertBlankPar()
Dim i As Paragraph
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If i.Range.Font.Bold = True Then
i.Range.InsertBefore Text“##################”
End If
Next
Application.ScreenUpdating = True
End Sub

   非常感谢您的帮助！

回复此楼

» 猜你喜欢

1楼 2010-04-16 16:52:03

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 wanrong 的主题更新

返回列表