Plutext-Enterprise-3.3.0.6.jar，网络资源很难找到
2021-02-18 19:01:01
281KB
1
在delphi中使用createoleobject方法对word文件进行操作
使用CreateOleObject方法对WORD文档操作具有先天所具备的优势，与delphi所提供的那些控件方式的访问相比，CreateOleObject方法距离WORD核心的操作“更近”，因为它直接使用OFFICE所提供的VBA语言对WORD文档的操作进行编程。
以下是我在本机上所做的实验，机器软件配置如下：
Windows XP+delphi7.0+OFFICE 2003
这个程序很简单，在页面上放置了一个edit和一个button,每单击一次按钮，就会自动把edit中的内容添加在后台中的word文档中，程序关闭时文件自动保存在当前程序的主目录中。
2019-12-21 21:59:50
2KB
1
word操作综合练习题题目-含题目、原始文档、素材、参考的效果文档。
可用于高校计算机应用基础教学中的案例教学和用于学生的实践作业。
2019-12-21 21:16:27
625KB
1
部分代码..................
.
..
..
/**
* 处理动态表格
* 默认取第二行第一列的标识
* @param table
* @param ctRow
* @param values 需要添加的数据
*/
public static void processDynamicTable(XWPFTable table, CTRow ctRow, List values) {
if(values==null || values.size()==0) return;
for (Iterator iterator = values.iterator(); iterator.hasNext();) {
String[] value = iterator.next();
XWPFTableRow newRow = new XWPFTableRow(ctRow,table);
List cells = newRow.getTableCells();
if(cells==null || cells.size()==0) return;
for (int j = 0; j < cells.size(); j++) {
XWPFTableCell cell = cells.get(j);
cell.removeParagraph(0);
if(j<=value.length) cell.setText(value[j]);
}
table.addRow(newRow);
}
}
/**
* 处理表格
* @param doc
* @param dataMap
*/
public static void processTable(XWPFDocument doc, Map dataMap) {
Iterator iter = doc.getTablesIterator();
while(iter.hasNext()) {
XWPFTable table = iter.next();
List rows = table.getRows();
if(rows==null || rows.size()==0) continue;
CTRow ctRow = null;
for (int i = 0; i < rows.size(); i++) {
XWPFTableRow row = rows.get(i);
ctRow = (CTRow)row.getCtRow().copy();
List cells = row.getTableCells();
if(cells==null || cells.size()==0) continue;
//处理标致
boolean sign = false;
for (int j = 0; j < cells.size(); j++) {
XWPFTableCell cell = cells.get(j);
if(cell.getText()==null) continue;
if(i==1 && j==0) {
//取第二行第一列的值，再添加table.关键字之后与dataMap匹配，有则当动态表格处理
String key = "table."+ cell.getText();
if(dataMap.containsKey(key)) {
List values = (List)dataMap.get(key);
table.removeRow(1);
processDynamicTable(table, ctRow, values);
//更新处理标致
sign = true;
break;
}
}
if(!cell.getText().startsWith("\\$") && cell.getText().endsWith("\\$")) continue;
String key = cell.getText().replaceAll("\\$", "");
if(dataMap.containsKey(key)) {
2019-12-21 21:05:06
9.22MB
1
因为之前为一家银行做财政报表打印，因为数据太长，381的纸张打印不下，dos打印、rdlc等等试了都很麻烦，所以后面就将内容插入word中，再在代码中写一些控制模板的代码，使得可以再381上打印下，这是个测试的demo
2019-12-21 20:30:04
75KB
1