word整体放大、缩小字体

最新推荐文章于 2022-01-22 20:37:21 发布

弘石

最新推荐文章于 2022-01-22 20:37:21 发布

阅读量4.6k

点赞数

分类专栏： Office 文章标签： integer delphi

本文链接：https://blog.csdn.net/youthon/article/details/7267702

版权

Office 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

用宏录制，就能看见实现代码

以下为delphi实现

放大字体

procedure ZoomInFontSize();
var
  doc: _Document;
  I: Integer;
  KeyType, ExtParam: OleVariant;
begin
  if FZooming then
    Exit;
    
  FZooming := True;
  doc := (FOfficeCtrl.ActiveDocument as _Document);
  doc.Application.Selection.WholeStory;
  for I := 1 to 9 do
    doc.Application.Selection.Font.Grow;
  KeyType := wdStory;
  ExtParam := EmptyParam;
  doc.Application.Selection.HomeKey( KeyType, ExtParam );         
end;

缩小字体

procedure ZoomOutFontSize;
var
  doc: _Document;
  I: Integer;
  KeyType, ExtParam: OleVariant;
begin
  if not FZooming then
    Exit;

  FZooming := False;
  doc := (FOfficeCtrl.ActiveDocument as _Document);
  doc.Application.Selection.WholeStory;
  for I := 1 to 9 do
    doc.Application.Selection.Font.Shrink;
  KeyType := wdStory;
  ExtParam := EmptyParam;
  doc.Application.Selection.HomeKey( KeyType, ExtParam );
end;