精华内容
下载资源
问答
  • 在Word2021菜单栏中执行菜单命令.docx
  • 利用VB在word里加自定菜单的代码,然后可以通过按钮执行你要处理的事
  • 本例是使用DELPHI来实现VBA技术,功能包括在WORD中添加菜单及宏,然后实现套红头及清稿功能: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics,...

    本例是使用DELPHI来实现VBA技术,功能包括在WORD中添加菜单及宏,然后实现套红头及清稿功能:

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls,comobj;

    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    function trunc2(fval:real):integer;
    var nval:integer;
    begin
       //进一法
       if int(fval)=fval then
          nval:=trunc(fval)
       else
          nval:=trunc(fval)+1;            //整数部分+1
       Result:=nval;
    end;

    function getWordCount(str:string):integer;
    var
    ncount,nzcount,necount:integer;
    fecount:real;
    begin
       ncount:=length(WideString(str));
       nzcount:=length(str)-ncount;
       necount:=ncount-nzcount;
       fecount:=necount/2;
       nzcount:=nzcount+trunc2(fecount);
       Result:=nzcount;
    end;

    function add_menubar(wordapp:variant):boolean; //======显示和隐藏红头的菜单、清稿的菜单及其对应的宏
    var aa,bb,cc : variant;
    i,j,n:integer;
    bfind:boolean;
    begin
      try
        //=====先把之前的宏清空
        n := wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.CountOfLines;
        If n > 0 Then
            wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.DeleteLines(1, n);

        //=====添加显示红头的宏
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(1,   'Sub showRedHead()');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(2,   ' If ActiveDocument.Bookmarks.Exists("红头") Then');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(3,   '       ActiveDocument.Bookmarks.Item("红头").Range.Font.ColorIndex = wdRed');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(4,   ' End If');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(5,   ' If ActiveDocument.Bookmarks.Exists("五星") Then');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(6,   '       ActiveDocument.Bookmarks.Item("五星").Range.Font.ColorIndex = wdRed');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(7,   ' End If');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(8,   ' If ActiveDocument.Bookmarks.Exists("五角星") Then');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(9,   '       ActiveDocument.Bookmarks.Item("五角星").Range.Font.ColorIndex = wdRed');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(10,   ' End If');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(11,   ' ');    //不能为空
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(12,   'Dim k As Integer');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(13,   'For k = 1 To ActiveDocument.Shapes.Count');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(14,   '   If ActiveDocument.Shapes.Item(k).Type = 9 Then');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(15,   '       ActiveDocument.Shapes.Item(k).Select');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(16,   '       If Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 255, 255) Then');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(17,   '          Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(18,   '          Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 0, 0)');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(19,   '      End If');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(20,   '   End If');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(21,   'Next');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(22,   'End   Sub ');

        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(23,   '  ');

        //=====添加隐藏红头的宏
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(24,   'Sub hideRedHead()');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(25,   '  If ActiveDocument.Bookmarks.Exists("红头") Then');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(26,   '       ActiveDocument.Bookmarks.Item("红头").Range.Font.ColorIndex = wdWhite');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(27,   '  End If');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(28,   '  If ActiveDocument.Bookmarks.Exists("五星") Then');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(29,   '       ActiveDocument.Bookmarks.Item("五星").Range.Font.ColorIndex = wdWhite');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(30,   '  End If');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(31,   '  If ActiveDocument.Bookmarks.Exists("五角星") Then');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(32,   '       ActiveDocument.Bookmarks.Item("五角星").Range.Font.ColorIndex = wdWhite');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(33,   '  End If');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(34,   '  ');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(35,   'Dim k As Integer');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(36,   'For k = 1 To ActiveDocument.Shapes.Count');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(37,   '   If ActiveDocument.Shapes.Item(k).Type = 9 Then');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(38,   '      ActiveDocument.Shapes.Item(k).Select');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(39,   '      If Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0) Then');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(40,   '          Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 255, 255)');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(41,   '          Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(42,   '      End If');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(43,   '   End If');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(44,   'Next');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(45,   'End   Sub ');

        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(46,   '  ');

        //=====添加接受所选修订的宏
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(47,   'Sub acceptSelectdEdit()');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(48,   '  On Error Resume Next');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(49,   '  WordBasic.AcceptChangesSelected');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(50,   'End   Sub ');
       
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(51,   '  ');

        //=====添加接受全部修订的宏
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(52,   'Sub acceptAllEdit()');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(53,   '  On Error Resume Next');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(54,   '  WordBasic.AcceptAllChangesInDoc');
        wordapp.VBE.VBProjects.item('Normal').VBComponents.Item('ThisDocument').Codemodule.InsertLines(55,   'End   Sub ');
      finally
        //======下面添加操作宏的菜单
        try
            //============================================红头与清稿工具栏=====================================================
            try
                bfind:=false;
                for i:=1 to wordapp.CommandBars.Count do
                begin
                    if wordapp.CommandBars.Item[i].name='红头与清稿' then
                    begin
                       //wordapp.CommandBars.Item['红头与清稿'].Delete;        //若已存在,则先删除,以免重复报错
                       bfind:=true;
                       break;
                    end;
                end;
            finally
                if not bfind then    //不存在
                    wordapp.CommandBars.Add(Name:='红头与清稿').Visible := True;     //新建一个栏组
            end;

            //============================================红头设置(&1)菜单=====================================================
            try
                bfind:=false;
                //wordapp.CommandBars('红头与清稿').Controls('红头设置(&1)').Delete;   //若已存在,则先删除,以免重复报错
                for i:=1 to wordapp.CommandBars.Item['红头与清稿'].Controls.Count do
                begin
                    if wordapp.CommandBars.Item['红头与清稿'].Controls[i].caption='红头设置(&1)' then
                    begin
                        //wordapp.CommandBars.Item['红头与清稿'].Controls['红头设置(&1)'].Delete;   //若已存在,则先删除,以免重复
                        bfind:=true;
                        break;
                    end;
                end;
            finally
                if not bfind then    //不存在
                begin
                   //Dim aa As CommandBarPopup
                   //aa:= wordapp.CommandBars('红头与清稿').Controls.Add(Type:=10,Before:=1);
                   aa:= wordapp.CommandBars.Item['红头与清稿'].Controls.Add(Type:=10,Before:=1); //增加菜单
                   aa.Caption := '红头设置(&1)';

                    //Dim bb As CommandBarButton
                   bb := aa.Controls.Add(Type:=1, Before:=1);   //增加按纽
                   bb.Caption := '显示红头(&2)';
                   bb.OnAction := 'showRedHead' ;   //引用宏

                    //Dim cc As CommandBarButton
                   cc := aa.Controls.Add(Type:=1, Before:=2);   //增加按纽
                   cc.Caption := '隐藏红头(&3)' ;
                   cc.OnAction := 'hideRedHead' ;   //引用宏
                end;
            end;

            //============================================我要清稿(&4)菜单=====================================================
            try
                bfind:=false;
                for i:=1 to wordapp.CommandBars.Item['红头与清稿'].Controls.Count do
                begin
                    if wordapp.CommandBars.Item['红头与清稿'].Controls[i].caption='我要清稿(&4)' then
                    begin
                        //wordapp.CommandBars.Item['红头与清稿'].Controls['我要清稿(&4)'].Delete;   //若已存在,则先删除,以免重复
                        bfind:=true;
                        break;
                    end;
                end;
            finally
                if not bfind then    //不存在
                begin
                    aa:= wordapp.CommandBars.Item['红头与清稿'].Controls.Add(Type:=10,Before:=1); //增加菜单
                   aa.Caption := '我要清稿(&4)';

                    //Dim bb As CommandBarButton
                   bb := aa.Controls.Add(Type:=1, Before:=1);   //增加按纽
                   bb.Caption := '接受所选修订(&5)';
                   bb.OnAction := 'acceptSelectdEdit' ;   //引用宏

                    //Dim cc As CommandBarButton
                   cc := aa.Controls.Add(Type:=1, Before:=2);   //增加按纽
                   cc.Caption := '接受全部修订(&6)' ;
                   cc.OnAction := 'acceptAllEdit' ;   //引用宏
                end;
            end;
        finally
        end;
      end;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var fExt,sFileName:string;
    msword,wpsapp:variant;
    k,m,n,m_top,m_width,m_height,m_fontsize,nlen,ncount,nlinesize,nlinecount,m_height2,nmoveup,m_subject_pos:integer;
    linesize,linecount:double;
    tmpstr,sendunit,aa,linename:string;
    begin
              try
                msword := CreateOleObject('word.application');

              except
                wpsapp := CreateOleObject('wps.application');

              end;

      msword.Documents.Open(FileName:=edit1.Text, ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:='',
                               PasswordTemplate:='', Revert:=False, WritePasswordDocument:='', WritePasswordTemplate:='', Format:=0);//Format:=wdOpenFormatAuto

      sendunit:='XXX各机关单位 XXX各机关单位 XXX各机关单位 XXX各机关单位 XXX各机关单位 XXX各机关单位 XXX各机关单位 XXX各机关单位';
      if msword.ActiveDocument.Bookmarks.Exists('主送') then
        msword.ActiveDocument.Bookmarks.Item('主送').Range.Text:=sendunit;
      if msword.ActiveDocument.Bookmarks.Exists('抄送') then
        msword.ActiveDocument.Bookmarks.Item('抄送').Range.Text:=sendunit;

      //=====================下面调整抄送文本框的高度========

        For k:=1 to msword.ActiveDocument.Shapes.count do
        begin
            If msword.ActiveDocument.Shapes.item(k).type = 17 Then
            begin
                tmpstr := msword.ActiveDocument.Shapes.item(k).TextFrame.TextRange.Text;
                If (pos('主送',tmpstr) > 0)  or (pos('抄送',tmpstr)>0) or (pos('主送与抄送',tmpstr)>0) Then
                begin
                    m_width := msword.ActiveDocument.Shapes.item(k).Width;
                    m_height := msword.ActiveDocument.Shapes.item(k).Height;
                    m_fontsize := msword.ActiveDocument.Shapes.item(k).TextFrame.TextRange.Font.Size;
                    //showmessage(inttostr(m_fontsize));

                    m_top:=msword.ActiveDocument.Shapes.item(k).Top;
                    //======下面是人工计算
                    linesize := (m_width / m_fontsize);     //一行多少个字
                    nlinesize := trunc2(linesize);

                    if copy(tmpstr,length(tmpstr),1)=#10 then
                       tmpstr:=copy(tmpstr,0,length(tmpstr)-1);    //减去换行
                    if copy(tmpstr,length(tmpstr),1)=#13 then
                       tmpstr:=copy(tmpstr,0,length(tmpstr)-1);    //减去回车

                    nlen := getWordCount(tmpstr);
                    If nlen > nlinesize Then
                        ncount := nlen - nlinesize    //除了第一行,还有多少字
                    Else
                        ncount := 0;

                    linecount := ncount / (nlinesize-3) ;        //剩下多少行,悬挂缩进3字符
                    nlinecount := trunc2(linecount);
                    nlinecount:=nlinecount+1;          //加上第一行

                    //=======下面是自动适应高度的方法
                    msword.ActiveDocument.Shapes.item(k).TextFrame.AutoSize := true;
                    sleep(800);//上面的自动调整需要一点时间
                    m_height2 :=msword.ActiveDocument.Shapes.item(k).Height;

                    if(m_height2-m_height<=0) and (nlinecount>1) then
                    begin//说明上面的自动方法不行,只好用人工计算方法
                        m_height2 :=trunc(30 * nlinecount+6)  ;       //得到文本框的高度
                        msword.ActiveDocument.Shapes.item(k).Height := m_height2;
                    end;

                    nmoveup := m_height2 - m_height;       //移动量
                    msword.ActiveDocument.Shapes.item(k).Top :=m_top - nmoveup;

                    break;
                end;
            end;
        end;

       
       //=====================下面调整主题词文本框的位置========
        For k:=1 to msword.ActiveDocument.Shapes.count do
        begin
            If msword.ActiveDocument.Shapes.item(k).type = 17 Then
            begin
                tmpstr := msword.ActiveDocument.Shapes.item(k).TextFrame.TextRange.Text;
                If pos('主题词',tmpstr) > 0 Then
                begin
                    m_subject_pos := msword.ActiveDocument.Shapes.item(k).Top;
                    msword.ActiveDocument.Shapes.item(k).Top := msword.ActiveDocument.Shapes.item(k).Top - nmoveup;

                    break;
                end;
            End;
        end;

        //=====================下面调整主题词下面的那条横线的位置========
        m := 1000;
        linename := '';
        For k:=1 to msword.ActiveDocument.Shapes.count do
        begin
            If msword.ActiveDocument.Shapes.item(k).type = 9 Then
            begin
                n := msword.ActiveDocument.Shapes.item(k).Top - m_subject_pos;
                If n > 0 Then
                begin
                    If Abs(n) < m Then
                    begin
                        m := Abs(n);
                        linename := msword.ActiveDocument.Shapes.item(k).Name;
                    End;
                End;
            End;
        end;

        If linename <> '' Then
        begin
            msword.ActiveDocument.Shapes.item(linename).Top := msword.ActiveDocument.Shapes.item(linename).Top - nmoveup;
        End;

       
        try
            add_menubar(msword);
        finally
            msword.ActiveWindow.ActivePane.View.Zoom.Percentage:=100; //缩放100%
            msword.Visible := True;
        end;
    end;

    end.

    展开全文
  • 使用Excel可以方便的处理表格信息,但是在Word中也可以简单的使用表格,在Word菜单中单击“表格”/“插入”/“表格”,插入表格窗口添加表格的行数和列数,最后单击“确定”按钮插入表格。实例我们可以使用...

    实例说明
    使用Excel可以方便的处理表格信息,但是在Word中也可以简单的使用表格,在Word菜单中单击“表格”/“插入”/“表格”,在插入表格窗口中添加表格的行数和列数,最后单击“确定”按钮插入表格。在实例中我们可以使用C#方便的向指定的Word文档中插入表格,并在表格中添加相应信息。实例运行效果如图1所示。
     
    图1  在Word文档中绘制表格
    实例运行中单击“创建Word文档”按钮,会根据用户选择的路径位置创建Word文档并向文档中绘制表格,而文档的名称就是当前系统日期与时间。创建的Word文档如图2所示。
     
    图2Word文档中的表格
    ? 关键技术
    本实例重点在于向读者介绍怎样使用Tabels集合的Add方法在文档中绘制表格,下面对本实例用到的关键技术进行详细讲解。
    通过Document对象的Tables属性可以得到Tables集合,使用Tables集合对象的Add方法可以轻松的在Word文档中绘制表格,Add方法的语法格式如下:
    Table Add(Range Range, int NumRows, int NumColumns, ref object DefaultTableBehavio

    展开全文
  • 在word中显示漂亮的代码

    千次阅读 2015-10-14 12:51:12
    在word中粘贴或写代码时,通常得不到想要的格式,可用‘Notepad++’工具实现. 步骤: (1)安装Notepad++软件,把代码粘贴进去,选择菜单的语言,然后选择相应代码语言,如P->Python; (2)Notepad++菜单...

    在word中粘贴或写代码时,通常得不到想要的格式,可用‘Notepad++’工具实现.

    步骤:

    (1)安装Notepad++软件,把代码粘贴进去,选择菜单栏中的语言,然后选择相应代码语言,如P->Python

    (2)在Notepad++菜单栏中选择格式->转为UTF-8编码格式(防止显示乱码);

    (3)在Notepad++菜单栏中选择插件->NppExport->Copy all formats to clipbord

             (默认拷贝全部代码,拷贝部分代码时选择需要的代码即可);

    (4)切换到word中执行粘贴即可。

           (若想添加边框,可以先在word中创建一个1*1的单元格,把代码拷贝进单元格即可,感觉比文本框好用)

       

    展开全文
  • word 2013无法执行撤销操作

    千次阅读 2020-02-27 10:09:34
    中文资源里面的解决方法都是用winword.exe /safe启动一次,再进入Word就恢复正常了(例如这篇文章)。但是这个方法不是一劳永逸的。...注册表编辑器,展开到下列注册表子项: Microsoft Office Word 2013 HKEY...

    中文资源里面的解决方法都是用winword.exe /safe启动一次,再进入Word就恢复正常了(例如这篇文章)。但是这个方法不是一劳永逸的。我又查了下英文资源,找到一个改注册表的方法。

    1. 关闭正在运行的所有程序。

    2. 按Win-R,在运行框中键入regedit,然后单击“确定”。

    3. 在注册表编辑器中,展开到下列注册表子项: Microsoft Office Word 2013

    HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Word\Options

    1. 在“编辑”菜单上,指向“新建”,然后单击“DWORD 值”。选择“新值 #1”,键入 UndoHistory,然后按 Enter。

    2. 在“编辑”菜单上,单击“修改”。

    3. 在“编辑 DWORD 值”对话框中,单击“基数”下的“十进制”。在“值”框中键入一个介于 0 和 100 之间的值,单击“确定”,然后退出注册表编辑器。 这个值是Undo的次数,不建议设置的太大,一般设成10即可。太大会占用较多的内存资源。

    启动 Word。Word 将按照您在步骤 6 中指定的操作次数存储撤消历史记录。

    展开全文
  • 1 首先我们新建一个word,或者打开...进入word选项界面之后,我们右方的菜单找到高级选项,进入高级设置界面。 8 然后高级界面。最下方找到“兼容性”设置栏,把英文Word检测,选择为正常打开,然后保存即可。
  • 在word中输入各种公式

    千次阅读 2009-10-17 10:44:00
    某些情况,特别是编辑一些论文的时候,文档可能需要插入一些数学公式,例如根式公式... 将鼠标定位文档插入公式的位置,点击WORD窗口菜单的"插入"的"对象"项目,"新建"选项页的"对象类型"列表选择"M
  • word文本框被锁定解锁Locking text boxes is a great way to protect specific content in your document from changing, either accidentally or intentionally. Here’s how to lock ... 锁定文本框是保护文档...
  • Bibtex4Word是一个Word加载项,能够在Word中添加一个菜单,完成指定bib文件、指定bst、正文添加引用、自动生成引文列表等工作。良好支持Word2007。
  • MathType在Word中的一些妙用

    千次阅读 2013-04-17 18:36:45
    作为功能强大的MathType,不仅能方便地转换为Latex语言,而且在word中也表现十分出色。这篇文章就简单介绍MathType在Word中的一些妙用。写这篇文章的目的很简单,主要是看到一些人装了MathType,却只用了它最最基本...
  • Protel 99的Documents窗口,执行File/New菜单命令,选择Documents卡片;双击Microsoft Word文档图标,即可Documents窗口创建Word文档图标。 也可选择File/Import菜单命令,将已有Word文档导入Protel 99文件管理...
  • 公司一位同事的电脑右键新建菜单里没有新建word、excel等,要添加右键菜单可以用软件法和修改注册表等,用软件添加右键菜单我不说啦,下面我说说修改注册表的方法来添加右键菜单:  复制下面的信息到记事本,...
  • word文档属性自定义We recently showed you how to set the user information in Word. Word also stores several additional advanced properties related to your documents. Some of these are displayed on the ...
  • 1、首先电脑上打开Word软件,然后在Word中打开需要处理的文档,以下面文档为演示。2、接下来上方工具栏选择“视图”-“大纲”。3、接下来需要调整的段落前点击,将全段选中。4、然后选择图红色箭头所指处...
  • 在word中实现代码的语法高亮

    千次阅读 2012-05-31 22:19:51
    有时写文档时需要将代码粘贴到word中,但直接粘贴到word中的代码虽能保持换行与缩进等格式,但一般代码编辑工具的关键字高亮功能却无法实现,即粘贴到word中的代码不具有丰富的色彩。使用一款免费软件——...
  • 安装了sublime text3,发现右键文件里面没有使用sublime text3打开的选项,所以需要手动...选择HKEY_CLASSES_ROOT——>*——>shell,右键,新建项,命名为Edit with Sublime Text3(可以根据自己的喜欢调整),然后右边
  • 怎么在Word中插入几何画板图形

    千次阅读 2016-06-16 14:06:35
    几何画板常常会与其它软件交互使用,很多时候我们通过几何画板做出来的图形需要放到ppt,wotd这些office软件上,但是一些新手用户对这些操作不是很了解,...下面就给大家做个详细介绍怎么在Word中插入几何画板图形。
  • 图所示,当鼠标右键单击excel工作表的单元格时,将会弹出单元格右键快捷菜单。 虽然从excel 2007开始 微软引进了ribbon 功能区来代替excel 常规菜单栏,但是像上图所示的鼠标右键快捷菜单还有很多没有被...
  • Word是一个功能强大的文字处理软件,在Word文档可以方便的对文字信息进行排版,也可以向文档插入生动、直观的图片信息,本实例将会介绍一个有趣的功能,向Word文档插入Windows控件,并且此控件还可以响应用户...
  • word2007对话框打开时命令无法执行

    千次阅读 2007-07-11 16:50:44
    word2007对话框打开时命令无法执行:活动目录网络管理-gnaw0725管理日志我的同事 Microsoft Office Word 2007 或 Microsoft Office Word 2003 打开某文件时,出现了打不开该文件的情况,并收到类似以下内容的...
  • 有时写文档时需要将代码粘贴到word中,但直接粘贴到word中的代码虽能保持换行与缩进等格式,但一般代码编辑工具的关键字高亮功能却无法实现,即粘贴到word中的代码不具有丰富的色彩。使用一款免费软件——...
  • Microsoft Office Word 的域用作文档可能会改变的数据的占位符,并用于邮件合并文档创建套用信函和标签。这些种类的域也称为域代码,它们不同于那些用于输入信息的域类型,如表单上。有关向文档添加表单...
  • Word文档里,如果也看不到你安装的字体,就是系统问题,用下面的方法可以解决:打开windows下面的fonts文件夹,先“工具”→“文件夹选项”里的查看页面选中“显示所有文件”并去掉“隐藏受保护的操作系统文件...
  • 我们做一些office的插件(add-in)时会遇到一个问题,当我们卸载自定义的插件时一般不能把产生的按钮、自定义菜单等删除干净。即使按照微软官方的一些例子文档来建立和卸载add-in,这个问题依然存在。通常是按钮...
  • 如何在word中输入打对勾的小方框-☑

    万次阅读 2011-04-22 10:49:00
    首先,输入一个对勾“√”(可以用输入法的小键盘输入,也可以“插入”菜单下的“符号”项中找到),然后选中这个对勾,执行“格式→中文版式→带圈字 符”,你会惊奇地看到,这里不仅能够设置圆圈,还能...
  • ASP.NET使用Microsoft Word文档

    千次阅读 2009-04-18 15:48:00
    ASP.NET使用Microsoft Word文档本文是应ASP.NET里创建Microsoft Word文档之需而写的。这篇文章演示了ASP.NET里怎么创建和修改Microsoft Word文档。[背景] 自动化是一种能让各种语言编写的(如:Visual Basic...
  • MFC嵌入Word

    千次阅读 2006-07-28 02:42:00
    关键词Word 摘要正文一、引言 Microsoft Office办公套件以其功能强大、方便实用而被广泛使用。我们可以使用自动化作为Word用以把其功能显露给其他应用的方式,采用这种方式可以尽可能少的占用自动化客户的资源,并且...
  • Outlook添加自己的菜单

    千次阅读 2002-03-12 08:54:00
    Outlook添加自己的菜单 Microsoft Office 2000有一个新的功能:COM加载项(COM Add-In)。利用COM加载项,我们可以通过编写COM组件实现将自己的软件集成Office系列产品。例如金山词霸.Net就是利用COM...
  • 在word中自动求和步骤如下:1、打开一个需要进行数据计算的表格,如,我们 已知五个学生的语文、数学、外语成绩,我们要通过公式完成总分和平均分的计算;2、把光标移动到要求总分的单元格,点击菜单栏的...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 54,172
精华内容 21,668
关键字:

在word中执行什么菜单下的