| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265996
建立时间:2005年6月6日 |
| |
|
 [delpih编程]word也用正则表达式
软件技术
吕向阳 发表于 2011/5/16 14:12:05 |
word 中的查找替换很强悍，能实现一些简单的正则表达式。
如将
1.
2.
等开头的段落文字替换为
[(1.)]
[(2.)]
在查找替换框中查找格内输入
(<[1-9]{1,2}[.,．])
替换格内输入
[(\1)]
点选高级中的通配符，再点全部替换即可。
值得提醒的是查找范围中前后一定用小括号围起来，才能使用。
|
|
|
[delpih编程]vba解决 ：邮件合并时打开文件不提示“打开此文档将运行下列SQL命令”
软件技术
吕向阳 发表于 2011/5/15 10:59:22 |
当然要在vba中加入如下代码，并在工具引用中加入对windows script host object modal的引用。
下为函数
Sub 不提示sql()
Dim 注册表主键 As String
Dim 工程名称 As String
Dim 注册表项 As String
Dim 注册表键名 As Variant
Dim 注册表键值 As Variant
Dim arr As Variant
|
|
|
[delpih编程]delphi 为word文档增加一个段落样式
软件技术
吕向阳 发表于 2011/4/10 21:32:30 |
下为程序中的一段，解决了为文档增加一个段落样式。这个段落样式的基础样式为“标题2”，标题字体、字号重设了，关键是设了自动编号的功能。
procedure TForm1.titlestyle(wordapp: variant);
begin
try
// wordapp.ActiveDocument.Styles.item('自定标题').Delete;
except
end;
wordapp.ActiveDocument.Styles.Add(Name := '自定标题', type := wdStyleTypeParagraph);
wordapp.ActiveDocument.Styles.item('自定标题').AutomaticallyUpdate := False;< |
|
|
[delpih编程]delphi关闭原先已被打开的word文档的函数
软件技术
吕向阳 发表于 2011/4/10 21:27:17 |
procedure TForm1.closedoc(filename: string);
var
H: THandle;
P: DWORD;
afile: string;
begin
afile := ExtractFileName(filename);
H := FindWindow(nil, PChar(afile + ' - Microsoft Word'));
if H <> 0 then
begin
GetWindowThreadProcessId(H, @P);< |
|
|