| 查看: 466 | 回复: 0 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】修改一个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 非常感谢您的帮助！ |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有3人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
