zoukankan      html  css  js  c++  java
  • Delphi操作Word的几个知识点

    //-------------------初始化--------------------

    var
     wApp,work:Variant;

     
    try
     wApp:
    =GetActiveOleObject('word.Application');
     
    except
     wApp:
    =CreateOleObject('word.Application');
     
    end;

    //---------------替换字符--------------------

     wApp.selection.find.text:
    ='<%a2%>';
     wApp.selection.find.replacement.text:
    =lb;
     wApp.selection.find.execute(replace:
    =wdReplaceAll);

    //----------------------隐藏WORD菜单和工具栏----------------------

    if OC.State in [osUIActive] then 
    begin
     OC.OleObjectInterface.QueryInterface(IOleInPlaceObject,IOO);
     IOO.UIDeactivate;
     IOO :
    =nil;
    end;

    //-----------------根据书签导数据------

    wApp.Selection.GoTo(What:
    =wdGoToBookmark,Name:='ZCZD'+IntToStr(i));
    wApp.Selection.typetext(
    '')

    //-------------------生成页眉页脚并写入数据----------

     wApp.Selection.GoTo(What:
    =wdGoToPage, Which:=wdGoToNext, Name:='FLAG');
     If wApp.ActiveWindow.View.SplitSpecial 
    <> wdPaneNone Then
        wApp.ActiveWindow.Panes(
    2).Close;
     If (wApp.ActiveWindow.ActivePane.View.Type 
    = wdNormalView) Or (wApp.ActiveWindow.ActivePane.View.Type = wdOutlineView) Then
        wApp.ActiveWindow.ActivePane.View.Type :
    = wdPrintView;
     wApp.ActiveWindow.ActivePane.View.SeekView :
    = wdSeekCurrentPageHeader;
     wApp.Selection.ParagraphFormat.Borders.item(wdBorderLeft).LineStyle :
    = wdLineStyleNone;
     wApp.Selection.ParagraphFormat.Borders.item(wdBorderRight).LineStyle :
    = wdLineStyleNone;
     wApp.Selection.ParagraphFormat.Borders.item(wdBorderTop).LineStyle :
    = wdLineStyleNone;
     wApp.Selection.ParagraphFormat.Borders.item(wdBorderBottom).LineStyle :
    = wdLineStyleNone;
     wApp.ActiveWindow.ActivePane.View.SeekView :
    = wdSeekCurrentPageFooter;
     wApp.Selection.ParagraphFormat.Alignment :
    = wdAlignParagraphRight;
     
    if (DM.XM_DS.FieldByName('tg_flag').AsInteger = 2and (DM.XM_DS.FieldByName('tj_flag').AsInteger = 0then
      wApp.Selection.TypeText(Text:
    ='合`格`任`务`书')
     
    else
      wApp.Selection.TypeText(Text:
    ='不合格任务书');
     wApp.ActiveWindow.ActivePane.View.SeekView :
    = wdSeekMainDocument;
  • 相关阅读:
    getaddrinfo()函数详解
    nm 命令 程序符号信息查看
    C# WebRequest处理Https请求
    正则表达式
    poj2762 Going from u to v or from v to u?
    Coroutine,你究竟干了什么?
    介绍几篇很有意思的计算机科普文章
    1005 Number Sequence(HDU)
    为什么读大学时做学术比搞项目重要?
    gcc中-pthread和-lpthread的区别
  • 原文地址:https://www.cnblogs.com/tc310/p/1837985.html
Copyright © 2011-2022 走看看