remove test
This commit is contained in:
parent
c5bdd38506
commit
9a846d935d
|
|
@ -1,254 +0,0 @@
|
||||||
Uses TSDocxEnumerations;
|
|
||||||
|
|
||||||
TestDocuments();
|
|
||||||
|
|
||||||
Function TestDocuments();
|
|
||||||
Begin
|
|
||||||
openpath := "D:/temp/vbatable.docx";
|
|
||||||
savepath := "D:/temp/vba.docx";
|
|
||||||
application := new TSDocxApplication();
|
|
||||||
|
|
||||||
application.Documents.Add;
|
|
||||||
Documents := application.Documents;
|
|
||||||
Documents.Open(FileName : openpath);
|
|
||||||
Documents.Save();
|
|
||||||
println("Documents.Count = {}", Documents.Count);
|
|
||||||
application.Documents("vbatable.docx").Activate;
|
|
||||||
println("ActiveDocument.Name = {}", application.ActiveDocument.Name);
|
|
||||||
println("ActiveDocument.Tables.Count = {}", application.ActiveDocument.Tables.Count);
|
|
||||||
|
|
||||||
ActiveDocument := application.ActiveDocument;
|
|
||||||
ActiveDocument.Paragraphs.Add;
|
|
||||||
|
|
||||||
prange := ActiveDocument.Range(2, 4);
|
|
||||||
prange.Font.Size := 20;
|
|
||||||
prange.ParagraphFormat.Alignment := 1;
|
|
||||||
return;
|
|
||||||
// TestTableCell(application);
|
|
||||||
// TestTableColumns(application);
|
|
||||||
// TestTables(application);
|
|
||||||
// TestParagraphs(application);
|
|
||||||
// TestRange(application);
|
|
||||||
// TestBorders(application);
|
|
||||||
|
|
||||||
// arr := application.ActiveDocument.Range(0, 10);
|
|
||||||
// println("arr = {}", arr);
|
|
||||||
|
|
||||||
Documents[2].SaveAs2(FileName : savepath);
|
|
||||||
println("savepath = {}", savepath);
|
|
||||||
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function TestRange(application);
|
|
||||||
Begin
|
|
||||||
ActiveDocument := application.ActiveDocument;
|
|
||||||
|
|
||||||
range := ActiveDocument.Range(2, 4);
|
|
||||||
prange := ActiveDocument.Paragraphs(2).Range;
|
|
||||||
crange := ActiveDocument.Tables(1).Cell(1, 1).Range;
|
|
||||||
|
|
||||||
range.Font.Size := 20;
|
|
||||||
prange.Font.Bold := true;
|
|
||||||
crange.Font.Italic := true;
|
|
||||||
|
|
||||||
range.InsertAfter("After");
|
|
||||||
range.InsertBefore("Before");
|
|
||||||
|
|
||||||
prange.InsertAfter(Text: "after.");
|
|
||||||
prange.InsertBefore(Text: "before..");
|
|
||||||
|
|
||||||
crange.InsertAfter(Text: ".after");
|
|
||||||
crange.InsertBefore(Text: ".before");
|
|
||||||
|
|
||||||
ActiveDocument.Range(2, 17).Font.Size := 20;
|
|
||||||
println("ActiveDocument.Range(2, 4).Font.Size = {}", ActiveDocument.Range(2, 4).Font.Size);
|
|
||||||
println("ActiveDocument.Range(2, 5).Font.Size = {}", ActiveDocument.Range(2, 5).Font.Size);
|
|
||||||
|
|
||||||
// ActiveDocument.Paragraphs(1).Range.Font.Bold := true;
|
|
||||||
// ActiveDocument.Paragraphs(2).Range.Font.Italic := true;
|
|
||||||
// println("ActiveDocument.Paragraphs(1).Range.Font.Bold = {}", ActiveDocument.Paragraphs(1).Range.Font.Bold);
|
|
||||||
// ActiveDocument.Paragraphs(1).Range.Font.NameFarEast := "微软雅黑";
|
|
||||||
// println("ActiveDocument.Paragraphs(1).Range.Font.NameFarEast = {}", ActiveDocument.Paragraphs(1).Range.Font.NameFarEast);
|
|
||||||
// ActiveDocument.Paragraphs(1).Range.Font.Size := 20;
|
|
||||||
// println("ActiveDocument.Paragraphs(1).Range.Font.Size = {}", ActiveDocument.Paragraphs(1).Range.Font.Size);
|
|
||||||
// ActiveDocument.Paragraphs(1).Range.Font.Italic := true;
|
|
||||||
// println("ActiveDocument.Paragraphs(1).Range.Font.Italic = {}", ActiveDocument.Paragraphs(1).Range.Font.Italic);
|
|
||||||
// ActiveDocument.Paragraphs(1).Range.Font.Name := "宋体";
|
|
||||||
// println("ActiveDocument.Paragraphs(1).Range.Font.Name = {}", ActiveDocument.Paragraphs(1).Range.Font.Name);
|
|
||||||
// ActiveDocument.Paragraphs(1).Range.Font.AllCaps := true;
|
|
||||||
// println("ActiveDocument.Paragraphs(1).Range.Font.AllCaps = {}", ActiveDocument.Paragraphs(1).Range.Font.AllCaps);
|
|
||||||
// ActiveDocument.Paragraphs(1).Range.Font.Underline := TSDocxEnumerations.wdUnderlineDash();
|
|
||||||
// println("ActiveDocument.Paragraphs(1).Range.Font.Underline = {}", ActiveDocument.Paragraphs(1).Range.Font.Underline);
|
|
||||||
// ActiveDocument.Paragraphs(1).Range.Font.UnderlineColor := TSDocxEnumerations.wdColorLime();
|
|
||||||
// println("ActiveDocument.Paragraphs(1).Range.Font.UnderlineColor = {}", ActiveDocument.Paragraphs(1).Range.Font.UnderlineColor);
|
|
||||||
// ActiveDocument.Paragraphs(1).Range.Font.Reset();
|
|
||||||
|
|
||||||
ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Bold := true;
|
|
||||||
// println("ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Bold = {}", ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Bold);
|
|
||||||
// ActiveDocument.Tables(1).Cell(1, 1).Range.Font.NameFarEast := "微软雅黑";
|
|
||||||
// println("ActiveDocument.Tables(1).Cell(1, 1).Range.Font.NameFarEast = {}", ActiveDocument.Tables(1).Cell(1, 1).Range.Font.NameFarEast);
|
|
||||||
// ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Size := 30;
|
|
||||||
// println("ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Size = {}", ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Size);
|
|
||||||
// ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Italic := true;
|
|
||||||
// println("ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Italic = {}", ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Italic);
|
|
||||||
// ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Name := "宋体";
|
|
||||||
// println("ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Name = {}", ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Name);
|
|
||||||
// ActiveDocument.Tables(1).Cell(1, 1).Range.Font.AllCaps := true;
|
|
||||||
// println("ActiveDocument.Tables(1).Cell(1, 1).Range.Font.AllCaps = {}", ActiveDocument.Tables(1).Cell(1, 1).Range.Font.AllCaps);
|
|
||||||
// ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Underline := TSDocxEnumerations.wdUnderlineSingle();
|
|
||||||
// println("ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Underline = {}", ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Underline);
|
|
||||||
// ActiveDocument.Tables(1).Cell(1, 1).Range.Font.UnderlineColor := TSDocxEnumerations.wdColorBlue();
|
|
||||||
// println("ActiveDocument.Tables(1).Cell(1, 1).Range.Font.UnderlineColor = {}", ActiveDocument.Tables(1).Cell(1, 1).Range.Font.UnderlineColor);
|
|
||||||
// ActiveDocument.Tables(1).Cell(1, 1).Range.Font.Reset();
|
|
||||||
ActiveDocument.Tables(1).Cell(1, 1).Range.InsertAfter(Text:="111");
|
|
||||||
ActiveDocument.Tables(1).Cell(1, 1).Range.InsertBefore("before");
|
|
||||||
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function TestParagraphs(application);
|
|
||||||
Begin
|
|
||||||
println(">>>>>>>>>>>>>>>>>>>>>> TestParagraphs");
|
|
||||||
ActiveDocument := application.ActiveDocument;
|
|
||||||
println("ActiveDocument.Paragraphs.Count = {}", ActiveDocument.Paragraphs.Count);
|
|
||||||
ActiveDocument.Paragraphs(1).Range.Font.Bold := true;
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function TestTables(application);
|
|
||||||
Begin
|
|
||||||
ActiveDocument := application.ActiveDocument;
|
|
||||||
// ActiveDocument.Tables(1).ApplyStyleDirectFormatting('样式1');
|
|
||||||
tables := application.ActiveDocument.Tables();
|
|
||||||
// tables[1].AutoFitBehavior(TSDocxEnumerations.wdAutoFitContent());
|
|
||||||
tables[1].AutoFitBehavior(TSDocxEnumerations.wdAutoFitWindow());
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function TestTableCell(application);
|
|
||||||
Begin
|
|
||||||
ActiveDocument := application.ActiveDocument;
|
|
||||||
// tables[1].Cell(1, 1).Delete(TSDocxEnumerations.wdDeleteCellsEntireColumn());
|
|
||||||
// tables[1].Cell(1, 1).Delete(TSDocxEnumerations.wdDeleteCellsEntireRow());
|
|
||||||
// tables[1].Cell(3, 3).Delete(TSDocxEnumerations.wdDeleteCellsShiftLeft());
|
|
||||||
// tables[1].Cell(1, 2).Delete(TSDocxEnumerations.wdDeleteCellsShiftUp());
|
|
||||||
// tables[1].Cell(5, 3).Delete(TSDocxEnumerations.wdDeleteCellsShiftUp());
|
|
||||||
// tables2 := ActiveDocument.Tables(2);
|
|
||||||
// tables2.Cell(1, 1).Delete(TSDocxEnumerations.wdDeleteCellsEntireColumn());
|
|
||||||
// tables2.Cell(1, 1).Delete(TSDocxEnumerations.wdDeleteCellsEntireRow());
|
|
||||||
// tables2.Cell(3, 3).Delete(TSDocxEnumerations.wdDeleteCellsShiftLeft());
|
|
||||||
// tables2.Cell(1, 2).Delete(TSDocxEnumerations.wdDeleteCellsShiftUp());
|
|
||||||
// tables2.Cell(5, 3).Delete(TSDocxEnumerations.wdDeleteCellsShiftUp());
|
|
||||||
// ActiveDocument.Tables(1).Cell(Row: 2, Column: 2).Merge(MergeTo: tables[1].Cell(2, 4));
|
|
||||||
// ActiveDocument.Tables(2).Cell(2, 2).Merge(ActiveDocument.Tables(2).Cell(3, 4));
|
|
||||||
// ActiveDocument.Tables(2).Cell(2, 2).Width := 100;
|
|
||||||
// println("ActiveDocument.Tables(2).Cell(2, 2).Width = {}", ActiveDocument.Tables(2).Cell(2, 2).Width);
|
|
||||||
// ActiveDocument.Tables(2).Cell(2, 3).WordWrap := true;
|
|
||||||
// println("ActiveDocument.Tables(2).Cell(2, 3).WordWrap = {}", ActiveDocument.Tables(2).Cell(2, 3).WordWrap);
|
|
||||||
// ActiveDocument.Tables(2).Cell(1, 1).VerticalAlignment := TSDocxEnumerations.wdCellAlignVerticalBottom();
|
|
||||||
// ActiveDocument.Tables(2).Cell(1, 2).VerticalAlignment := TSDocxEnumerations.wdCellAlignVerticalCenter();
|
|
||||||
// ActiveDocument.Tables(2).Cell(2, 2).VerticalAlignment := TSDocxEnumerations.wdCellAlignVerticalTop();
|
|
||||||
// println("ActiveDocument.Tables(2).Cell(1, 1).VerticalAlignment = {}", ActiveDocument.Tables(2).Cell(1, 1).VerticalAlignment);
|
|
||||||
// println("ActiveDocument.Tables(2).Cell(1, 2).VerticalAlignment = {}", ActiveDocument.Tables(2).Cell(1, 2).VerticalAlignment);
|
|
||||||
// println("ActiveDocument.Tables(2).Cell(1, 3).VerticalAlignment = {}", ActiveDocument.Tables(2).Cell(1, 3).VerticalAlignment);
|
|
||||||
// println("ActiveDocument.Tables(2).Cell(2, 2).VerticalAlignment = {}", ActiveDocument.Tables(2).Cell(2, 2).VerticalAlignment);
|
|
||||||
// ActiveDocument.Tables(2).Cell(1, 1).TopPadding := 30;
|
|
||||||
// ActiveDocument.Tables(2).Cell(1, 1).LeftPadding := 25;
|
|
||||||
// ActiveDocument.Tables(2).Cell(1, 1).BottomPadding := 20;
|
|
||||||
// ActiveDocument.Tables(2).Cell(1, 1).RightPadding := 15;
|
|
||||||
// println("ActiveDocument.Tables(2).Cell(1, 1).TopPadding = {}", ActiveDocument.Tables(2).Cell(1, 1).TopPadding);
|
|
||||||
// println("ActiveDocument.Tables(2).Cell(1, 1).LeftPadding = {}", ActiveDocument.Tables(2).Cell(1, 1).LeftPadding);
|
|
||||||
// println("ActiveDocument.Tables(2).Cell(1, 1).BottomPadding = {}", ActiveDocument.Tables(2).Cell(1, 1).BottomPadding);
|
|
||||||
// println("ActiveDocument.Tables(2).Cell(1, 1).RightPadding = {}", ActiveDocument.Tables(2).Cell(1, 1).RightPadding);
|
|
||||||
// ActiveDocument.Tables(2).Cell(3, 3).Tables(1).AutoFitBehavior(TSDocxEnumerations.wdAutoFitContent());
|
|
||||||
// ActiveDocument.Tables(2).Cell(3, 3).Tables(1).Cell(1, 1).Delete(TSDocxEnumerations.wdDeleteCellsEntireColumn());
|
|
||||||
// ActiveDocument.Tables(1).Cell(1, 1).Shading.Texture := TSDocxEnumerations.wdTextureHorizontal();
|
|
||||||
// ActiveDocument.Tables(3).Cell(2,1).PreferredWidthType := TSDocxEnumerations.wdPreferredWidthAuto;
|
|
||||||
// ActiveDocument.Tables(3).Cell(2,2).PreferredWidth := 1000;
|
|
||||||
// println("ActiveDocument.Tables(3).Cell(2,2).PreferredWidth = {}", ActiveDocument.Tables(3).Cell(2,2).PreferredWidth);
|
|
||||||
// ActiveDocument.Tables(3).Cell(2,1).SetHeight(RowHeight:=100, HeightRule:=TSDocxEnumerations.wdRowHeightAtLeast);
|
|
||||||
// ActiveDocument.Tables(3).Cell(2,1).HeightRule := TSDocxEnumerations.wdRowHeightExactly();
|
|
||||||
// ActiveDocument.Tables(3).Cell(2,1).Height := 30;
|
|
||||||
// println("ActiveDocument.Tables(3).Cell(2,1).Height = {}", ActiveDocument.Tables(3).Cell(2,1).Height);
|
|
||||||
// println("ActiveDocument.Tables(3).Cell(2,1).HeightRule = {}", ActiveDocument.Tables(3).Cell(2,1).HeightRule);
|
|
||||||
// println("ActiveDocument.Tables(3).Cell(1,4).Next.ColumnIndex = {}", ActiveDocument.Tables(3).Cell(1,4).Next.ColumnIndex);
|
|
||||||
// println("ActiveDocument.Tables(3).Cell(1,4).Next.RowIndex = {}", ActiveDocument.Tables(3).Cell(1,4).Next.RowIndex);
|
|
||||||
// println("ActiveDocument.Tables(3).Cell(2,4).Next.ColumnIndex = {}", ActiveDocument.Tables(3).Cell(2,4).Next);
|
|
||||||
// println("ActiveDocument.Tables(3).Cell(1,1).Previous.ColumnIndex = {}", ActiveDocument.Tables(3).Cell(1,1).Previous);
|
|
||||||
// println("ActiveDocument.Tables(3).Cell(2,1).Previous.ColumnIndex = {}", ActiveDocument.Tables(3).Cell(2,1).Previous.ColumnIndex);
|
|
||||||
// println("ActiveDocument.Tables(3).Cell(2,1).Previous.RowIndex = {}", ActiveDocument.Tables(3).Cell(2,1).Previous.RowIndex);
|
|
||||||
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function TestTableColumns(application);
|
|
||||||
Begin
|
|
||||||
ActiveDocument := application.ActiveDocument;
|
|
||||||
ActiveDocument.Tables(1).Columns(1).SetWidth(100, TSDocxEnumerations.wdAdjustSameWidth());
|
|
||||||
ActiveDocument.Tables(3).Columns(2).PreferredWidthType := TSDocxEnumerations.wdPreferredWidthPercent();
|
|
||||||
ActiveDocument.Tables(3).Columns(2).PreferredWidth := 50;
|
|
||||||
println("ActiveDocument.Tables(3).Columns(2).PreferredWidth = {}", ActiveDocument.Tables(3).Columns(2).PreferredWidth);
|
|
||||||
println("ActiveDocument.Tables(3).Columns.Count = {}", ActiveDocument.Tables(3).Columns.Count);
|
|
||||||
println("ActiveDocument.Tables(3).Rows.Count = {}", ActiveDocument.Tables(3).Rows.Count);
|
|
||||||
println("ActiveDocument.Tables(3).Cell(1,2).Width = {}", ActiveDocument.Tables(3).Cell(1,2).Width);
|
|
||||||
println("ActiveDocument.Tables(2).Cell(1,2).Width = {}", ActiveDocument.Tables(2).Cell(1,2).Width);
|
|
||||||
ActiveDocument.Tables(1).Cell(1, 2).PreferredWidthType := TSDocxEnumerations.wdPreferredWidthPercent();
|
|
||||||
ActiveDocument.Tables(1).Cell(1, 2).Width := 100;
|
|
||||||
println("ActiveDocument.Tables(1).Cell(1,2).Width = {}", ActiveDocument.Tables(1).Cell(1,2).Width);
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function TestTableRows();
|
|
||||||
Begin
|
|
||||||
// ActiveDocument.Tables(1).Rows.WrapAroundText := true;
|
|
||||||
// ActiveDocument.Tables(2).Rows.WrapAroundText := false;
|
|
||||||
// println("Tables(1).Rows.WrapAroundText = {}", ActiveDocument.Tables(1).Rows.WrapAroundText);
|
|
||||||
// println("Tables(2).Rows.WrapAroundText = {}", ActiveDocument.Tables(2).Rows.WrapAroundText);
|
|
||||||
// ActiveDocument.Tables(1).Rows.WrapAroundText := false;
|
|
||||||
// println("Tables(1).Rows.WrapAroundText = {}", ActiveDocument.Tables(1).Rows.WrapAroundText);
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function TestBorders(application);
|
|
||||||
Begin
|
|
||||||
ActiveDocument := application.ActiveDocument;
|
|
||||||
println("\n============== Start TestBorders ==============");
|
|
||||||
println("Tables(1) will set LineStyle = {}, color = {}", TSDocxEnumerations.wdLineStyleSingle(), TSDocxEnumerations.wdColorLime());
|
|
||||||
ActiveDocument.Tables(1).Borders(TSDocxEnumerations.wdBorderDiagonalUp()).LineStyle := TSDocxEnumerations.wdLineStyleSingle();
|
|
||||||
ActiveDocument.Tables(1).Borders(TSDocxEnumerations.wdBorderDiagonalUp()).Color := TSDocxEnumerations.wdColorLime();
|
|
||||||
println("ActiveDocument.Tables(1).Borders(TSDocxEnumerations.wdBorderDiagonalUp()).LineStyle = {}", ActiveDocument.Tables(1).Borders(TSDocxEnumerations.wdBorderDiagonalUp()).LineStyle);
|
|
||||||
println("ActiveDocument.Tables(1).Borders(TSDocxEnumerations.wdBorderDiagonalUp()).Color := {}", ActiveDocument.Tables(1).Borders(TSDocxEnumerations.wdBorderDiagonalUp()).Color);
|
|
||||||
println("\n");
|
|
||||||
|
|
||||||
println("Tables(1).Cell(1, 1) will set LineStyle = {}, LineWidth = {}", TSDocxEnumerations.wdLineStyleDot(), TSDocxEnumerations.wdLineWidth025pt());
|
|
||||||
ActiveDocument.Tables(1).Cell(1, 1).Borders(TSDocxEnumerations.wdBorderDiagonalDown()).LineStyle := TSDocxEnumerations.wdLineStyleDot();
|
|
||||||
ActiveDocument.Tables(1).Cell(1, 1).Borders(TSDocxEnumerations.wdBorderDiagonalDown()).LineWidth := TSDocxEnumerations.wdLineWidth025pt();
|
|
||||||
println("ActiveDocument.Tables(1).Cell(1, 1).Borders(TSDocxEnumerations.wdBorderDiagonalDown()).LineStyle = {}", ActiveDocument.Tables(1).Cell(1, 1).Borders(TSDocxEnumerations.wdBorderDiagonalDown()).LineStyle);
|
|
||||||
println("ActiveDocument.Tables(1).Cell(1, 1).Borders(TSDocxEnumerations.wdBorderDiagonalDown()).LineWidth = {}", ActiveDocument.Tables(1).Cell(1, 1).Borders(TSDocxEnumerations.wdBorderDiagonalDown()).LineWidth);
|
|
||||||
println("\n");
|
|
||||||
|
|
||||||
println("Range(2, 4) will set LineStyle = {}, ColorIndex = {}", TSDocxEnumerations.wdLineStyleTriple(), TSDocxEnumerations.wdBlue());
|
|
||||||
ActiveDocument.Range(2, 4).Borders(TSDocxEnumerations.wdBorderBottom()).LineStyle := TSDocxEnumerations.wdLineStyleTriple();
|
|
||||||
ActiveDocument.Range(2, 4).Borders(TSDocxEnumerations.wdBorderBottom()).ColorIndex := TSDocxEnumerations.wdBlue();
|
|
||||||
println("ActiveDocument.Range(2, 4).Borders(TSDocxEnumerations.wdBorderBottom()).LineStyle = {}", ActiveDocument.Range(2, 4).Borders(TSDocxEnumerations.wdBorderBottom()).LineStyle);
|
|
||||||
println("ActiveDocument.Range(2, 4).Borders(TSDocxEnumerations.wdBorderBottom()).ColorIndex = {}", ActiveDocument.Range(2, 4).Borders(TSDocxEnumerations.wdBorderBottom()).ColorIndex);
|
|
||||||
println("\n");
|
|
||||||
|
|
||||||
println("Paragraphs(2).Range will set LineStyle = {}", TSDocxEnumerations.wdLineStyleDouble());
|
|
||||||
ActiveDocument.Paragraphs(2).Range.Borders(TSDocxEnumerations.wdBorderLeft()).LineStyle := TSDocxEnumerations.wdLineStyleDouble();
|
|
||||||
println("ActiveDocument.Paragraphs(2).Range.Borders(TSDocxEnumerations.wdBorderLeft()).LineStyle = {}", ActiveDocument.Paragraphs(2).Range.Borders(TSDocxEnumerations.wdBorderLeft()).LineStyle);
|
|
||||||
println("\n");
|
|
||||||
|
|
||||||
println("Tables(1).Range wdBorderDiagonalUp will set LineStyle = {}", TSDocxEnumerations.wdLineStyleOutset());
|
|
||||||
println("Tables(1).Range wdBorderBottom will set LineStyle = {}", TSDocxEnumerations.wdLineStyleDashSmallGap());
|
|
||||||
ActiveDocument.Tables(1).Range.Borders(TSDocxEnumerations.wdBorderDiagonalUp()).LineStyle := TSDocxEnumerations.wdLineStyleOutset();
|
|
||||||
ActiveDocument.Tables(1).Range.Borders(TSDocxEnumerations.wdBorderBottom()).LineStyle := TSDocxEnumerations.wdLineStyleDashSmallGap();
|
|
||||||
println("ActiveDocument.Tables(1).Range.Borders(TSDocxEnumerations.wdBorderDiagonalUp()).LineStyle = {}", ActiveDocument.Tables(1).Range.Borders(TSDocxEnumerations.wdBorderDiagonalUp()).LineStyle);
|
|
||||||
println("ActiveDocument.Tables(1).Range.Borders(TSDocxEnumerations.wdBorderBottom()).LineStyle = {}", ActiveDocument.Tables(1).Range.Borders(TSDocxEnumerations.wdBorderBottom()).LineStyle);
|
|
||||||
println("\n");
|
|
||||||
|
|
||||||
println("Tables(1).Cell(1, 1).Range wdBorderVertical will set LineStyle = {}", TSDocxEnumerations.wdLineStyleEmboss3D());
|
|
||||||
println("Tables(1).Cell(1, 1).Range wdBorderDiagonalDown will set LineStyle = {}", TSDocxEnumerations.wdLineStyleEngrave3D());
|
|
||||||
ActiveDocument.Tables(1).Cell(1, 1).Range.Borders(TSDocxEnumerations.wdBorderVertical()).LineStyle := TSDocxEnumerations.wdLineStyleEmboss3D();
|
|
||||||
ActiveDocument.Tables(1).Cell(1, 1).Range.Borders(TSDocxEnumerations.wdBorderDiagonalDown()).LineStyle := TSDocxEnumerations.wdLineStyleEngrave3D();
|
|
||||||
println("ActiveDocument.Tables(1).Cell(1, 1).Range.Borders(TSDocxEnumerations.wdBorderVertical()).LineStyle = {}", ActiveDocument.Tables(1).Cell(1, 1).Range.Borders(TSDocxEnumerations.wdBorderVertical()).LineStyle);
|
|
||||||
println("ActiveDocument.Tables(1).Cell(1, 1).Range.Borders(TSDocxEnumerations.wdBorderDiagonalDown()).LineStyle = {}", ActiveDocument.Tables(1).Cell(1, 1).Range.Borders(TSDocxEnumerations.wdBorderDiagonalDown()).LineStyle);
|
|
||||||
println("============== End TestBorders ==============\n");
|
|
||||||
|
|
||||||
End;
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,474 +0,0 @@
|
||||||
Uses TSDocxEnumerations;
|
|
||||||
Application := new TSDocxApplication();
|
|
||||||
|
|
||||||
openpath := "D://temp//default.docx";
|
|
||||||
savepath := "D://temp//docx_vba_help.docx";
|
|
||||||
|
|
||||||
document := Application.Documents.Open(FileName: openpath);
|
|
||||||
document.Activate;
|
|
||||||
println("Documents.Count = {}", Application.Documents.Count);
|
|
||||||
ActiveDocument := Application.ActiveDocument;
|
|
||||||
println("ActiveDocument.Name = {}", ActiveDocument.Name);
|
|
||||||
|
|
||||||
FirstPage(ActiveDocument);
|
|
||||||
Preface(ActiveDocument);
|
|
||||||
SupportedList(ActiveDocument);
|
|
||||||
FAQ(ActiveDocument);
|
|
||||||
AddTablesOfContents(ActiveDocument);
|
|
||||||
|
|
||||||
ActiveDocument.SaveAs2(FileName : savepath);
|
|
||||||
println("ActiveDocument.SaveAs2 = {}", savepath);
|
|
||||||
return;
|
|
||||||
|
|
||||||
Function FirstPage(ActiveDocument);
|
|
||||||
Begin
|
|
||||||
para := ActiveDocument.Paragraphs.Last;
|
|
||||||
para.Range.Text := "TSVBA";
|
|
||||||
para.Range.InsertBefore("天软");
|
|
||||||
para.Range.InsertAfter("帮助文档");
|
|
||||||
para.Range.Font.Bold := true;
|
|
||||||
para.Range.Font.Size := 25;
|
|
||||||
para.Range.Font.Apply();
|
|
||||||
para.Format.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
|
|
||||||
para.Format.Style := "Title";
|
|
||||||
para.Format.Apply(); // 写属性后要apply
|
|
||||||
|
|
||||||
image := TOfficeTemplate('tinysoft.gif',true);
|
|
||||||
shape := ActiveDocument.InlineShapes.AddPicture(image);
|
|
||||||
shape.Width := 410;
|
|
||||||
shape.Height := 75;
|
|
||||||
shape.Apply();
|
|
||||||
|
|
||||||
ActiveDocument.Paragraphs.Add;
|
|
||||||
ActiveDocument.Paragraphs(3).Range.InsertParagraphAfter();
|
|
||||||
ActiveDocument.Paragraphs(4).Range.InsertParagraphBefore();
|
|
||||||
range := ActiveDocument.Paragraphs(4).Range;
|
|
||||||
range.Collapse(TSDocxEnumerations.wdCollapseEnd());
|
|
||||||
table := ActiveDocument.Tables.Add(Range:=range, NumRows:=3, NumColumns:=2, DefaultTableBehavior:=TSDocxEnumerations.wdWord9TableBehavior);
|
|
||||||
println("ActiveDocument.Paragraphs.Count = {}", ActiveDocument.Paragraphs.Count);
|
|
||||||
table.Columns(1).Width := 120;
|
|
||||||
table.Columns(2).Width := 320;
|
|
||||||
data := array(("文档名称", "TSVBA"), ("文档版本", "Version 1.0"), ("修订日期", Datetimetostr(now())));
|
|
||||||
for i:=1 to 3 do
|
|
||||||
begin
|
|
||||||
cell := table.Cell(i, 1);
|
|
||||||
cell.Shading.Texture := TSDocxEnumerations.wdTexture27Pt5Percent;
|
|
||||||
cell.Shading.ForegroundPatternColor := TSDocxEnumerations.wdColorAutomatic;
|
|
||||||
cell.Shading.BackgroundPatternColor := TSDocxEnumerations.wdColorGray15;
|
|
||||||
cell.Shading.Apply();
|
|
||||||
cell.Range.Text := data[i-1][0];
|
|
||||||
cell.Range.Font.Bold := true;
|
|
||||||
cell.Range.Font.Apply();
|
|
||||||
|
|
||||||
cell := table.Cell(i, 2);
|
|
||||||
cell.VerticalAlignment := TSDocxEnumerations.wdCellAlignVerticalCenter;
|
|
||||||
cell.Range.Text := data[i-1][1];
|
|
||||||
cell.Range.ParagraphFormat.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
|
|
||||||
cell.Range.ParagraphFormat.Apply();
|
|
||||||
end
|
|
||||||
ActiveDocument.Paragraphs.Add;
|
|
||||||
para := ActiveDocument.Paragraphs.Last;
|
|
||||||
para.Range.InsertBreak(TSDocxEnumerations.wdPageBreak());
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function AddTitle(ActiveDocument, text, level);
|
|
||||||
Begin
|
|
||||||
ActiveDocument.Paragraphs.Add;
|
|
||||||
para := ActiveDocument.Paragraphs.Last;
|
|
||||||
info := array(
|
|
||||||
(22, TSDocxEnumerations.wdViolet(), TSDocxEnumerations.wdOutlineLevel1(), 0),
|
|
||||||
(16, TSDocxEnumerations.wdDarkRed(), TSDocxEnumerations.wdOutlineLevel2(), 2),
|
|
||||||
(16, TSDocxEnumerations.wdTeal(), TSDocxEnumerations.wdOutlineLevel3(), 15),
|
|
||||||
);
|
|
||||||
index := level - 1;
|
|
||||||
para.Range.Text := text;
|
|
||||||
para.Range.Font.Size := info[index][0];
|
|
||||||
para.Range.Font.Bold := true;
|
|
||||||
para.Range.Font.ColorIndex := info[index][1];
|
|
||||||
para.Range.Font.Apply();
|
|
||||||
para.Format.OutlineLevel := info[index][2];
|
|
||||||
para.Format.LeftIndent := info[index][3];
|
|
||||||
// para.Format.CharacterUnitLeftIndent := 0;
|
|
||||||
para.Format.Apply();
|
|
||||||
para.Range.ListFormat.ApplyOutlineNumberDefault();
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function Preface(ActiveDocument);
|
|
||||||
Begin
|
|
||||||
AddTitle(ActiveDocument, "前言", 1);
|
|
||||||
para := ActiveDocument.Paragraphs.Last;
|
|
||||||
para.Format.PageBreakBefore := true;
|
|
||||||
para.Format.Apply();
|
|
||||||
|
|
||||||
ActiveDocument.Paragraphs.Add;
|
|
||||||
para := ActiveDocument.Paragraphs.Last;
|
|
||||||
para.Range.Text := "该文档由docx_vba_help.tsl脚本自动生成。";
|
|
||||||
para.Range.Font.Size := 14;
|
|
||||||
para.Range.Font.Italic := true;
|
|
||||||
para.Range.Font.ColorIndex := TSDocxEnumerations.wdPink();
|
|
||||||
para.Range.Font.Apply();
|
|
||||||
para.Format.CharacterUnitFirstLineIndent := 2;
|
|
||||||
para.Format.FirstLineIndent := 20;
|
|
||||||
para.Format.Apply();
|
|
||||||
font := para.Range.Font.Duplicate;
|
|
||||||
format := para.Format.Duplicate;
|
|
||||||
|
|
||||||
ActiveDocument.Paragraphs.Add;
|
|
||||||
para := ActiveDocument.Paragraphs.Last;
|
|
||||||
para.Range.Text := "本项目基于TSOffice，使用前请先部署TSOffice。该项目以类VBA的方式，用TSL实现对excel、word的操作。";
|
|
||||||
para.Range.Font := font;
|
|
||||||
para.Format := format;
|
|
||||||
para.Range.Font.Italic := false;
|
|
||||||
para.Range.Font.ColorIndex := TSDocxEnumerations.wdBlack();
|
|
||||||
para.Range.Font.Apply();
|
|
||||||
font := para.Range.Font.Duplicate;
|
|
||||||
format := para.Format.Duplicate;
|
|
||||||
|
|
||||||
ActiveDocument.Paragraphs.Add;
|
|
||||||
para := ActiveDocument.Paragraphs.Last;
|
|
||||||
para.Range.Text := "项目目前仅支持常用的操作，比如对段落、表格的操作。需注意该项目在使用时可能存在与VBA有差异的情况。具体支持列表如下：";
|
|
||||||
para.Range.Font := font;
|
|
||||||
para.Format := format;
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function SupportedList(ActiveDocument);
|
|
||||||
Begin
|
|
||||||
ActiveDocument.Paragraphs.Add;
|
|
||||||
AddTitle(ActiveDocument, "TSVBA支持对象", 1);
|
|
||||||
|
|
||||||
println("\n\nAuto generate classInfo..");
|
|
||||||
path := "D:\\code\\tinysoft\\OfficeVBA\\docx\\";
|
|
||||||
files := array(
|
|
||||||
path + "TSDocxApplication.tsf",
|
|
||||||
path + "border//TSDocxBorder.tsf",
|
|
||||||
path + "border//TSDocxBorders.tsf",
|
|
||||||
path + "TSDocxCell.tsf",
|
|
||||||
path + "TSDocxCells.tsf",
|
|
||||||
path + "TSDocxColumn.tsf",
|
|
||||||
path + "TSDocxColumns.tsf",
|
|
||||||
path + "TSDocxDocument.tsf",
|
|
||||||
path + "TSDocxDocuments.tsf",
|
|
||||||
path + "font//TSDocxFont.tsf",
|
|
||||||
path + "listformat//TSDocxListFormat.tsf",
|
|
||||||
path + "TSDocxInlineShape.tsf",
|
|
||||||
path + "TSDocxInlineShapes.tsf",
|
|
||||||
path + "TSDocxTable.tsf",
|
|
||||||
path + "TSDocxTables.tsf",
|
|
||||||
path + "TSDocxTablesOfContents.tsf",
|
|
||||||
path + "paragraphformat//TSDocxParagraphFormat.tsf",
|
|
||||||
path + "TSDocxParagraphs.tsf",
|
|
||||||
path + "TSDocxParagraph.tsf",
|
|
||||||
path + "TSDocxRange.tsf",
|
|
||||||
path + "TSDocxRows.tsf",
|
|
||||||
path + "TSDocxRow.tsf",
|
|
||||||
path + "shading//TSDocxShading.tsf",
|
|
||||||
);
|
|
||||||
// files := array(
|
|
||||||
// path + "TSDocxTables.tsf",
|
|
||||||
// );
|
|
||||||
for i:=0 to length(files)-1 do
|
|
||||||
begin
|
|
||||||
file := files[i];
|
|
||||||
name := ExtractFileName(file);
|
|
||||||
name := name[7:length(name)-4];
|
|
||||||
AddTitle(ActiveDocument, name, 2);
|
|
||||||
|
|
||||||
methods := array();
|
|
||||||
properties := array();
|
|
||||||
LoadClassInfo(file, methods, properties);
|
|
||||||
AddMethods(ActiveDocument, methods);
|
|
||||||
AddProperties(ActiveDocument, properties);
|
|
||||||
println("file = {}, is OK!", file);
|
|
||||||
end
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function AddMethods(ActiveDocument, arr);
|
|
||||||
Begin
|
|
||||||
if not istable(arr) then return;
|
|
||||||
methods := array();
|
|
||||||
for k, v in arr do
|
|
||||||
if v = 2 then methods[k] := v;
|
|
||||||
for k, v in arr do
|
|
||||||
methods[k] := v;
|
|
||||||
|
|
||||||
AddTitle(ActiveDocument, "方法支持情况", 3);
|
|
||||||
para := ActiveDocument.Paragraphs.Last;
|
|
||||||
row := length(methods) + 1;
|
|
||||||
para.Range.Collapse(TSDocxEnumerations.wdCollapseEnd());
|
|
||||||
table := ActiveDocument.Tables.Add(Range := para.Range, NumRows := row, NumColumns := 2, DefaultTableBehavior := TSDocxEnumerations.wdWord9TableBehavior);
|
|
||||||
table.Columns(1).Width := 220;
|
|
||||||
table.Columns(2).Width := 220;
|
|
||||||
|
|
||||||
init_title := function(cell, title);
|
|
||||||
begin
|
|
||||||
cell.Shading.Texture := TSDocxEnumerations.wdTexture12Pt5Percent;
|
|
||||||
cell.Shading.ForegroundPatternColor := TSDocxEnumerations.wdColorAutomatic;
|
|
||||||
cell.Shading.BackgroundPatternColorIndex := TSDocxEnumerations.wdTurquoise;
|
|
||||||
cell.Shading.Apply();
|
|
||||||
cell.Range.Text := title;
|
|
||||||
cell.Range.Font.Bold := true;
|
|
||||||
cell.Range.Font.Size := 14;
|
|
||||||
cell.Range.Font.ColorIndex := TSDocxEnumerations.wdRed();
|
|
||||||
cell.Range.Font.Apply();
|
|
||||||
cell.Range.ParagraphFormat.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
|
|
||||||
cell.Range.ParagraphFormat.Apply();
|
|
||||||
border := cell.Borders(TSDocxEnumerations.wdBorderBottom);
|
|
||||||
border.LineStyle := TSDocxEnumerations.wdLineStyleTriple();
|
|
||||||
border.ColorIndex := TSDocxEnumerations.wdBlue();
|
|
||||||
border.Apply();
|
|
||||||
end
|
|
||||||
##init_title(table.Cell(1, 1), "VBA函数");
|
|
||||||
##init_title(table.Cell(1, 2), "TSVBA是否支持");
|
|
||||||
i := 2;
|
|
||||||
for k, v in methods do
|
|
||||||
begin
|
|
||||||
cell := table.Cell(i, 1);
|
|
||||||
cell.Range.Text := k;
|
|
||||||
cell.Range.Font.NameAscii := "Consolas";
|
|
||||||
cell.Range.Font.NameFarEast := "微软雅黑";
|
|
||||||
cell.Range.Font.Size := 11;
|
|
||||||
cell.Range.Font.Apply();
|
|
||||||
cell.Range.ParagraphFormat.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
|
|
||||||
cell.Range.ParagraphFormat.Apply();
|
|
||||||
cell := table.Cell(i, 2);
|
|
||||||
cell.Range.Text := v = 2 ? "✅" : "❌";
|
|
||||||
cell.Range.Font.NameAscii := "Segoe UI Emoji";
|
|
||||||
cell.Range.Font.NameOther := "Segoe UI Emoji";
|
|
||||||
cell.Range.Font.NameBi := "Segoe UI Emoji";
|
|
||||||
cell.Range.Font.Size := 11;
|
|
||||||
cell.Range.Font.Apply();
|
|
||||||
cell.Range.ParagraphFormat.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
|
|
||||||
cell.Range.ParagraphFormat.Apply();
|
|
||||||
i++;
|
|
||||||
end
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function AddProperties(ActiveDocument, arr);
|
|
||||||
Begin
|
|
||||||
if not istable(arr) then return;
|
|
||||||
properties := array();
|
|
||||||
for k, v in arr do
|
|
||||||
if v["r"] = 2 or v["w"] = 2 then properties[k] := v;
|
|
||||||
for k, v in arr do
|
|
||||||
properties[k] := v;
|
|
||||||
|
|
||||||
AddTitle(ActiveDocument, "属性支持情况", 3);
|
|
||||||
|
|
||||||
row := length(properties) + 2;
|
|
||||||
para := ActiveDocument.Paragraphs.Last;
|
|
||||||
para.Range.Collapse(TSDocxEnumerations.wdCollapseEnd());
|
|
||||||
table := ActiveDocument.Tables.Add(Range := para.Range, NumRows := row, NumColumns := 4, DefaultTableBehavior := TSDocxEnumerations.wdWord9TableBehavior);
|
|
||||||
table.Columns(1).Width := 110;
|
|
||||||
table.Columns(2).Width := 110;
|
|
||||||
table.Columns(3).Width := 110;
|
|
||||||
table.Columns(4).Width := 110;
|
|
||||||
table.Cell(1, 1).Merge(table.Cell(1, 2));
|
|
||||||
table.Cell(1, 3).Merge(table.Cell(1, 4));
|
|
||||||
|
|
||||||
init_title := function(cell, title);
|
|
||||||
begin
|
|
||||||
cell.Shading.Texture := TSDocxEnumerations.wdTexture22Pt5Percent;
|
|
||||||
cell.Shading.ForegroundPatternColor := TSDocxEnumerations.wdColorAutomatic;
|
|
||||||
cell.Shading.BackgroundPatternColor := TSDocxEnumerations.wdColorLime;
|
|
||||||
cell.Shading.Apply();
|
|
||||||
cell.Range.Text := title;
|
|
||||||
cell.Range.Font.Bold := true;
|
|
||||||
cell.Range.Font.Size := 14;
|
|
||||||
cell.Range.Font.ColorIndex := TSDocxEnumerations.wdRed();
|
|
||||||
cell.Range.Font.Apply();
|
|
||||||
cell.Range.ParagraphFormat.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
|
|
||||||
cell.Range.ParagraphFormat.Apply();
|
|
||||||
border := cell.Borders(TSDocxEnumerations.wdBorderBottom);
|
|
||||||
border.LineStyle := TSDocxEnumerations.wdLineStyleTriple();
|
|
||||||
border.ColorIndex := TSDocxEnumerations.wdBlue();
|
|
||||||
border.Apply();
|
|
||||||
end
|
|
||||||
##init_title(table.Cell(1, 1), "VBA属性");
|
|
||||||
##init_title(table.Cell(1, 3), "TSVBA是否支持");
|
|
||||||
init_info := function(cell, content);
|
|
||||||
begin
|
|
||||||
cell.Range.Text := content;
|
|
||||||
cell.Range.Font.NameAscii := "Consolas";
|
|
||||||
cell.Range.Font.NameFarEast := "微软雅黑";
|
|
||||||
cell.Range.Font.Size := 12;
|
|
||||||
cell.Range.Font.ColorIndex := TSDocxEnumerations.wdViolet();
|
|
||||||
cell.Range.Font.Apply();
|
|
||||||
cell.Range.ParagraphFormat.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
|
|
||||||
cell.Range.ParagraphFormat.Apply();
|
|
||||||
cell.Shading.Texture := TSDocxEnumerations.wdTexture7Pt5Percent;
|
|
||||||
cell.Shading.ForegroundPatternColor := TSDocxEnumerations.wdColorAutomatic;
|
|
||||||
cell.Shading.BackgroundPatternColor := TSDocxEnumerations.wdColorGray30;
|
|
||||||
cell.Shading.Apply();
|
|
||||||
end
|
|
||||||
##init_info(table.Cell(2, 1), "属性名称");
|
|
||||||
##init_info(table.Cell(2, 2), "读写");
|
|
||||||
##init_info(table.Cell(2, 3), "读");
|
|
||||||
##init_info(table.Cell(2, 4), "写");
|
|
||||||
|
|
||||||
i := 3;
|
|
||||||
for k, v in properties do
|
|
||||||
begin
|
|
||||||
cell := table.Cell(i, 1);
|
|
||||||
// println("k = {}", k);
|
|
||||||
cell.Range.Text := k;
|
|
||||||
cell.Range.Font.NameAscii := "Consolas";
|
|
||||||
cell.Range.Font.NameFarEast := "微软雅黑";
|
|
||||||
cell.Range.Font.Size := 11;
|
|
||||||
cell.Range.Font.Apply();
|
|
||||||
cell.Range.ParagraphFormat.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
|
|
||||||
cell.Range.ParagraphFormat.Apply();
|
|
||||||
|
|
||||||
content := "";
|
|
||||||
if v["r"] then content += "读";
|
|
||||||
if v["w"] then content += "/写";
|
|
||||||
cell := table.Cell(i, 2);
|
|
||||||
cell.Range.Text := content;
|
|
||||||
cell.Range.Font.NameAscii := "Consolas";
|
|
||||||
cell.Range.Font.NameFarEast := "微软雅黑";
|
|
||||||
cell.Range.Font.Size := 11;
|
|
||||||
cell.Range.Font.Apply();
|
|
||||||
cell.Range.ParagraphFormat.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
|
|
||||||
cell.Range.ParagraphFormat.Apply();
|
|
||||||
|
|
||||||
r := v["r"] = 2 ? "✅" : "❌";
|
|
||||||
cell := table.Cell(i, 3);
|
|
||||||
cell.Range.Text := r;
|
|
||||||
cell.Range.Font.NameAscii := "Segoe UI Emoji";
|
|
||||||
cell.Range.Font.NameOther := "Segoe UI Emoji";
|
|
||||||
cell.Range.Font.NameBi := "Segoe UI Emoji";
|
|
||||||
cell.Range.Font.Size := 11;
|
|
||||||
cell.Range.Font.Apply();
|
|
||||||
cell.Range.ParagraphFormat.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
|
|
||||||
cell.Range.ParagraphFormat.Apply();
|
|
||||||
|
|
||||||
font := cell.Range.Font;
|
|
||||||
w := v["w"] = 2 ? "✅" : "❌";
|
|
||||||
cell := table.Cell(i, 4);
|
|
||||||
cell.Range.Text := w;
|
|
||||||
cell.Range.Font.NameAscii := "Segoe UI Emoji";
|
|
||||||
cell.Range.Font.NameOther := "Segoe UI Emoji";
|
|
||||||
cell.Range.Font.NameBi := "Segoe UI Emoji";
|
|
||||||
cell.Range.Font.Size := 11;
|
|
||||||
cell.Range.Font.Apply();
|
|
||||||
cell.Range.ParagraphFormat.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
|
|
||||||
cell.Range.ParagraphFormat.Apply();
|
|
||||||
i++;
|
|
||||||
end
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function FAQ(ActiveDocument);
|
|
||||||
Begin
|
|
||||||
ActiveDocument.Paragraphs.Add;
|
|
||||||
AddTitle(ActiveDocument, "FAQ", 1);
|
|
||||||
|
|
||||||
AddTitle(ActiveDocument, "TSVBA在使用上有哪些特别的地方", 2);
|
|
||||||
FAQContent(ActiveDocument, "TSVBA重载了[]运算符，对于诸如Documents, Paragraphs, Tables, Borders等，均可用[]获取对应的对象");
|
|
||||||
FAQContent(ActiveDocument, "Documents := ActiveDocument.Documents; // 获取Documents对象");
|
|
||||||
FAQContent(ActiveDocument, "Document := Documents[2]; // 等价于 Documents.Item(2);");
|
|
||||||
|
|
||||||
AddTitle(ActiveDocument, "为什么设置了Font, Shading等时未生效", 2);
|
|
||||||
FAQContent(ActiveDocument, "考虑到性能问题，类似xxx.Range.Font.Size := 10;并不会立即生效，需要手动调用Apply方法，如：");
|
|
||||||
FAQContent(ActiveDocument, "paragraph.Range.Font.Name := 'Consolas';");
|
|
||||||
FAQContent(ActiveDocument, "paragraph.Range.Font.Size := 12;");
|
|
||||||
FAQContent(ActiveDocument, "paragraph.Range.Font.Apply();");
|
|
||||||
FAQContent(ActiveDocument, "注意一：在应用Font, Shading, ParagraphFormat, border, ListFormat以及InlineShape时均需要执行Apply方法使得设置生效");
|
|
||||||
FAQContent(ActiveDocument, "注意二：使用这些类时，最多支持到两级赋值，比如说paragraph.Range.Font中，Range是第一级，paragraph是第二级。若使用paragraphs.Item(1).Range.Font，则不会生效。这里出现了第三级Paragraphs");
|
|
||||||
|
|
||||||
AddTitle(ActiveDocument, "如何使用VBA中的Enumerations", 2);
|
|
||||||
FAQContent(ActiveDocument, "用了TSL的Unit特性，将用到的枚举项均封装到了TSDocxEnumerations中");
|
|
||||||
FAQContent(ActiveDocument, "Uses TSDocxEnumerations;");
|
|
||||||
FAQContent(ActiveDocument, "xxx := TSDocxEnumerations.WdBlack;");
|
|
||||||
|
|
||||||
AddTitle(ActiveDocument, "为什么目录无法计算页码", 2);
|
|
||||||
FAQContent(ActiveDocument, "由于目录页码计算比较复杂，目前仅提供生成目录项功能，不支持页码的计算。");
|
|
||||||
FAQContent(ActiveDocument, "另外使用TablesOfContents.Add生成目录时，仅支持Range, UpperHeadingLevel, LowerHeadingLevel三个参数的设置，其余参数设置均无效。");
|
|
||||||
|
|
||||||
AddTitle(ActiveDocument, "为什么添加图片的FileName参数不生效", 2);
|
|
||||||
FAQContent(ActiveDocument, "因为TSVBA中，FileName是一个二进制格式，需要传入的是图片的二进制内容，而不是路径");
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function FAQContent(ActiveDocument, text);
|
|
||||||
Begin
|
|
||||||
ActiveDocument.Paragraphs.Add;
|
|
||||||
para := ActiveDocument.Paragraphs.Last;
|
|
||||||
para.Range.Text := text;
|
|
||||||
para.Range.Font.Name := "Consolas";
|
|
||||||
para.Range.Font.NameAscii := "Consolas";
|
|
||||||
para.Range.Font.NameFarEast := "微软雅黑";
|
|
||||||
para.Range.Font.Size := 12;
|
|
||||||
para.Range.Font.Apply();
|
|
||||||
para.Format.CharacterUnitFirstLineIndent := 2;
|
|
||||||
para.Format.FirstLineIndent := 20;
|
|
||||||
para.Format.Apply();
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function AddTablesOfContents(ActiveDocument);
|
|
||||||
Begin
|
|
||||||
range := ActiveDocument.Paragraphs(16).Range;
|
|
||||||
// println("range.text = {}", range.Text);
|
|
||||||
range.Collapse(TSDocxEnumerations.wdCollapseStart());
|
|
||||||
ActiveDocument.TablesOfContents.Add(Range := range, UseHeadingStyles := true, UpperHeadingLevel := 1, LowerHeadingLevel := 9);
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function LoadClassInfo(f, methods, properties);
|
|
||||||
Begin
|
|
||||||
[err,fh] := io_open(f);
|
|
||||||
if err then return t;
|
|
||||||
[err, data] := io_read(fh);
|
|
||||||
io_close(fh);
|
|
||||||
if err then return t;
|
|
||||||
|
|
||||||
lines := str2array(string(data), "\n");
|
|
||||||
flag := true;
|
|
||||||
for i:=0 to length(lines)-1 do
|
|
||||||
begin
|
|
||||||
line := lines[i];
|
|
||||||
if AnsiContainsText(line, "// Methods") then flag := false;
|
|
||||||
if AnsiContainsText(line, "// Properties") then flag := true;
|
|
||||||
|
|
||||||
if not flag and ParseRegExpr("\\s\+Function\\s\+(\\w+)\\(", line, "i", result, MPos, Mlen) and length(result) then
|
|
||||||
methods[result[0][1]] := 1;
|
|
||||||
if AnsiContainsText(line, "property") then
|
|
||||||
begin
|
|
||||||
ParseRegExpr("\\s\+property\\s\+(\\w+)\\s\+read\\s\+(\\w+)(\\s\+write\\s\+(\\w+))\?", line, "", result, MPos, Mlen);
|
|
||||||
if not istable(result) then continue;
|
|
||||||
rw := array();
|
|
||||||
if result[0][2] then rw["r"] := 1;
|
|
||||||
if result[0][4] then rw["w"] := 1;
|
|
||||||
properties[result[0][1]] := rw;
|
|
||||||
end
|
|
||||||
if AnsiContainsText(line, "End;") then break;
|
|
||||||
end
|
|
||||||
for j:=i to length(lines)-1 do
|
|
||||||
begin
|
|
||||||
line := lines[j];
|
|
||||||
if not AnsiContainsText(line, "Function") then continue;
|
|
||||||
if ParseRegExpr("Function\\s\+.*\\.(\\w+)\\(", line, "i", result, MPos, Mlen) and istable(result) then
|
|
||||||
begin
|
|
||||||
name := result[0][1];
|
|
||||||
if not name then continue;
|
|
||||||
if methods[name] then
|
|
||||||
begin
|
|
||||||
methods[name] := 2;
|
|
||||||
continue;
|
|
||||||
end
|
|
||||||
if AnsiContainsText(name, "Read") then
|
|
||||||
begin
|
|
||||||
rname := name[5:];
|
|
||||||
if properties[rname] then properties[rname]["r"] := 2;
|
|
||||||
end
|
|
||||||
else if AnsiContainsText(name, "Write") then
|
|
||||||
begin
|
|
||||||
wname := name[6:];
|
|
||||||
if properties[wname] then properties[wname]["w"] := 2;
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
End;
|
|
||||||
|
|
||||||
Function Test();
|
|
||||||
Begin
|
|
||||||
line := "Function TSDocxTables.Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior);";
|
|
||||||
ParseRegExpr("Function\\s\+.*\\.(\\w+)\\(", line, "i", result, MPos, Mlen);
|
|
||||||
println("result = {}", result);
|
|
||||||
End;
|
|
||||||
|
|
@ -1,4 +0,0 @@
|
||||||
Uses SampleUnit;
|
|
||||||
InterfaceFunction();
|
|
||||||
return;
|
|
||||||
|
|
||||||
|
|
@ -1,46 +0,0 @@
|
||||||
// xlsx := new TSExcelFile();
|
|
||||||
// xlsx.NewFile();
|
|
||||||
// xlsx.OpenFile("", "D:\\temp\\vba_new.xlsx");
|
|
||||||
|
|
||||||
application := new XlsxApplication();
|
|
||||||
application.Workbooks.Add;
|
|
||||||
Workbooks := application.Workbooks;
|
|
||||||
Workbooks.Open(FileName : "D:/temp/vba_new.xlsx");
|
|
||||||
println("Workbooks.Count = {}", Workbooks.Count);
|
|
||||||
Workbooks[2].Worksheets("sheet2").Activate;
|
|
||||||
Workbooks[2].ActiveSheet.Name;
|
|
||||||
println("fullname 1 = {}", Workbooks[1].FullName);
|
|
||||||
println("fullname 2 = {}", Workbooks[2].FullName);
|
|
||||||
application.Workbooks(2).Close(SaveChanges : true, FileName : "D:/temp/vba_close.xlsx");
|
|
||||||
println("close one, Workbooks.Count = {}", Workbooks.Count);
|
|
||||||
application.Workbooks.Open(FileName : "D:/temp/vba_close.xlsx");
|
|
||||||
println("workbook(2).name = {}", application.Workbooks(2).Name);
|
|
||||||
Workbooks[2].Password := "tinysoft";
|
|
||||||
Workbooks[2].Save();
|
|
||||||
println("Path = {}", Workbooks[2].Path);
|
|
||||||
|
|
||||||
return;
|
|
||||||
|
|
||||||
|
|
||||||
Sheets := application.Sheets;
|
|
||||||
println("sheets.Count = {}", sheets.Count);
|
|
||||||
param := array('After': application.Sheets(Sheets.Count), 'Count': 2);
|
|
||||||
application.Worksheets.Add(param);
|
|
||||||
|
|
||||||
xlsx.SaveAs("", "D:\\temp\\xlsxvba.xlsx");
|
|
||||||
return;
|
|
||||||
|
|
||||||
application.Worksheets(1).Visible := false;
|
|
||||||
Worksheets := application.Worksheets;
|
|
||||||
Worksheets[1].Visible := false;
|
|
||||||
Worksheets['Sheet1'].Visible := false;
|
|
||||||
Worksheets[1].Activate;
|
|
||||||
count := Worksheets.Count;
|
|
||||||
println("Worksheets.Count = {}", count);
|
|
||||||
arr := array("After": Worksheets[1]);
|
|
||||||
application.Worksheets('Sheet1').Copy(arr);
|
|
||||||
|
|
||||||
xlsx.SaveAs("", "D:\\temp\\xlsxvba.xlsx");
|
|
||||||
return;
|
|
||||||
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue