zoukankan      html  css  js  c++  java
  • Delphi 运行Word VBA 宏 删除软回车

    Sub 整理网页()
    '整理网页:删除软回车、删除空白段、使段落文字两端对齐
    Selection.WholeStory
       
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = "?^l"
            .Replacement.Text = "^&^p"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^1^l"
            .Replacement.Text = "^&^p"
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^l"
            .Replacement.Text = ""
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^s"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Selection.Paragraphs.Alignment = wdAlignParagraphJustify
    End Sub

    Delphi可以通过ole word的方式来运行宏:

    WordDoc := WordApp.Documents.open(fileName:=fn, Revert:=true, Visible := True);
    wordapp.Run( MacroName:='整理网页');

    非常蹊跷的是,如果Visible := False,则word宏不能运行!

  • 相关阅读:
    C#正则表达式
    HDU 1009 FatMouse' Trade
    HDU 1022 Train Problem I
    HDU 3665 Seaside
    (转)qsort完整版用法
    HDU 1061 Rightmost Digit (矩阵快速幂)
    HDU 2817 A sequence of numbers
    HDU 1943 Ball bearings
    HDU 1058 Humble Numbers
    HDU 4278 Faulty Odometer
  • 原文地址:https://www.cnblogs.com/wxb-km/p/5212101.html
Copyright © 2011-2022 走看看