请各位老师解答，如何将word文档中的小数部分和小数点去除，保留整数，且整数+1

betelehe

例如这段话，要把300.56变成301，900.7898变成901，能否用vba实现。

为了应对能耗压力，上海进行了持续的探索。上海提出，“十一五”期间，力争形成300.56万吨标准煤的节能能力，累计节能量达到900.7898万吨标准煤。为此，上海淘汰和关、停、改了一批高耗能、高污染的产业。2007年，上海共完成产业结构调整项目571项，实现年节能量100多万吨标准煤；2008年上半年，上海又完成结构调整项目140项。

betelehe

说明一下，不用四舍五入，不论小数部分是什么，整数全+1，例如56.101也要变成57

duquancai

betelehe 发表于 2019-3-7 15:01
说明一下，不用四舍五入，不论小数部分是什么，整数全+1，例如56.101也要变成57

不算难，。。。。。。

zhanglei1371

1. 
   

复制代码

Sub fff()
    Selection.HomeKey wdStory
    With Selection.Find
        Do While .Execute("[0-9]{1,}.[0-9]{1,}", , , 1)
            If (Selection.Characters.Last.Next <> "%") Then
                Selection = Int(Selection) + 1
                Selection.Collapse 0
            End If
        Loop
    End With
End Sub
若想百分号一块处理，就去掉红色部分

ming0018

1. Sub 取整数()
   
2.     Dim doc As Document
   
3.     Set doc = ActiveDocument
   
4.     With doc.Content.Find
   
5.         .Text = "[0-9]{1,}.[0-9]{1,}"
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             .Parent = Int(.Parent) + 1
   
9.             .Parent.start = .Parent.end
   
10.         Loop
    
11.     End With
    
12. End Sub

复制代码

betelehe

非常感谢杜老师、张老师、明老师的指点，代码非常管用！！以后向你们多学习。

413191246se

楼主好福气！三位大神同指点！

jiminyanyan

学习了。。。。

201228

ming0018 发表于 2019-3-7 15:53

老师， 你的vba是用什么软件写的？ 好有规则

ming0018

201228 发表于 2019-3-8 15:54
老师， 你的vba是用什么软件写的？ 好有规则

office自带的，没有其它软件可选。