tinysoft
/
OfficeVba
5
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

帮助文档

This commit is contained in:
csh 2024-01-03 10:03:13 +08:00
parent c59043f90b
commit e592781419
3 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
README.md
View File

@ -30,9 +30,9 @@ echo ActiveDocument.Paragraphs.Count; // 也可用doc进行操作
## 帮助文档 ## 帮助文档
帮助文档涵盖了**TSOfficeVBA**对`VBA`的支持情况，以及相关的**FAQ** [帮助文档][3]涵盖了**TSOfficeVBA**对`VBA`的支持情况，以及相关的**FAQ**
生成你的帮助文档 也可生成你的帮助文档
```txt ```txt
tsl .\demo\TSVbaDocxHelp.tsl --path=C:\\xxx\\funcext 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 [1]: https://learn.microsoft.com/en-us/office/vba/api/overview/library-reference
[2]: https://git.mytsl.cn/tinysoft/OfficePlugin [2]: https://git.mytsl.cn/tinysoft/OfficePlugin
[3]: ./TSVbaDocxHelp.docx

BIN
TSVbaDocxHelp.docx Normal file
View File

Binary file not shown.

12
demo/TSVbaDocxHelp.tsl
View File

@ -48,7 +48,7 @@ Begin
range := ActiveDocument.Paragraphs(4).Range; range := ActiveDocument.Paragraphs(4).Range;
range.Collapse(TSDocxEnumerations.wdCollapseEnd()); range.Collapse(TSDocxEnumerations.wdCollapseEnd());
table := ActiveDocument.Tables.Add(Range:=range, NumRows:=3, NumColumns:=2, DefaultTableBehavior:=TSDocxEnumerations.wdWord9TableBehavior); 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(1).Width := 120;
table.Columns(2).Width := 320; table.Columns(2).Width := 320;
data := array(("文档名称", "TSVBA"), ("文档版本", "Version 1.0"), ("修订日期", Datetimetostr(now()))); data := array(("文档名称", "TSVBA"), ("文档版本", "Version 1.0"), ("修订日期", Datetimetostr(now())));
@ -139,7 +139,8 @@ Begin
ActiveDocument.Paragraphs.Add; ActiveDocument.Paragraphs.Add;
AddTitle(ActiveDocument, "TSVBA支持对象", 1); AddTitle(ActiveDocument, "TSVBA支持对象", 1);
println("\n\nAuto generate classInfo.."); // println("\n\nAuto generate classInfo..");
echo "Auto generate classInfo...\n";
files := array( files := array(
path + "TSDocxApplication.tsf", path + "TSDocxApplication.tsf",
path + "border\\TSDocxBorder.tsf", path + "border\\TSDocxBorder.tsf",
@ -161,8 +162,8 @@ Begin
path + "TSDocxParagraphs.tsf", path + "TSDocxParagraphs.tsf",
path + "TSDocxParagraph.tsf", path + "TSDocxParagraph.tsf",
path + "TSDocxRange.tsf", path + "TSDocxRange.tsf",
path + "TSDocxRows.tsf", // path + "TSDocxRows.tsf",
path + "TSDocxRow.tsf", // path + "TSDocxRow.tsf",
path + "shading\\TSDocxShading.tsf", path + "shading\\TSDocxShading.tsf",
); );
// files := array( // files := array(
@ -180,7 +181,8 @@ Begin
LoadClassInfo(file, methods, properties); LoadClassInfo(file, methods, properties);
AddMethods(ActiveDocument, methods); AddMethods(ActiveDocument, methods);
AddProperties(ActiveDocument, properties); AddProperties(ActiveDocument, properties);
println("file = {}, is OK!", file); // println("file = {}, is OK!", file);
echo "file = " $ file $ " , is OK!\n";
end end
End; End;