diff --git a/README.md b/README.md index 1713d2d..1a32544 100644 --- a/README.md +++ b/README.md @@ -30,9 +30,9 @@ echo ActiveDocument.Paragraphs.Count; // 也可用doc进行操作 ## 帮助文档 -帮助文档涵盖了**TSOfficeVBA**对`VBA`的支持情况,以及相关的**FAQ** +[帮助文档][3]涵盖了**TSOfficeVBA**对`VBA`的支持情况,以及相关的**FAQ** -生成你的帮助文档 +也可生成你的帮助文档 ```txt tsl .\demo\TSVbaDocxHelp.tsl --path=C:\\xxx\\funcext @@ -43,7 +43,8 @@ tsl .\demo\TSVbaDocxHelp.tsl --path=C:\\xxx\\funcext ## 部署 -该项目基于[**TSOffice**][2],所以部署到`funcext`时需要检查**TSOffice**是否部署成功 +该项目基于[**TSOffice**][2],所以部署到`funcext`时需要检查**TSOffice**是否部署 [1]: https://learn.microsoft.com/en-us/office/vba/api/overview/library-reference [2]: https://git.mytsl.cn/tinysoft/OfficePlugin +[3]: ./TSVbaDocxHelp.docx diff --git a/TSVbaDocxHelp.docx b/TSVbaDocxHelp.docx new file mode 100644 index 0000000..0cee57f Binary files /dev/null and b/TSVbaDocxHelp.docx differ diff --git a/demo/TSVbaDocxHelp.tsl b/demo/TSVbaDocxHelp.tsl index 1c23008..e474837 100644 --- a/demo/TSVbaDocxHelp.tsl +++ b/demo/TSVbaDocxHelp.tsl @@ -48,7 +48,7 @@ Begin 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); + // 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()))); @@ -139,7 +139,8 @@ Begin ActiveDocument.Paragraphs.Add; AddTitle(ActiveDocument, "TSVBA支持对象", 1); - println("\n\nAuto generate classInfo.."); + // println("\n\nAuto generate classInfo.."); + echo "Auto generate classInfo...\n"; files := array( path + "TSDocxApplication.tsf", path + "border\\TSDocxBorder.tsf", @@ -161,8 +162,8 @@ Begin path + "TSDocxParagraphs.tsf", path + "TSDocxParagraph.tsf", path + "TSDocxRange.tsf", - path + "TSDocxRows.tsf", - path + "TSDocxRow.tsf", + // path + "TSDocxRows.tsf", + // path + "TSDocxRow.tsf", path + "shading\\TSDocxShading.tsf", ); // files := array( @@ -180,7 +181,8 @@ Begin LoadClassInfo(file, methods, properties); AddMethods(ActiveDocument, methods); AddProperties(ActiveDocument, properties); - println("file = {}, is OK!", file); + // println("file = {}, is OK!", file); + echo "file = " $ file $ " , is OK!\n"; end End;