昨日书单-dim昨日书签完全攻略

set rs=conn.execute(sql) 不分页可以

分页就得改成(因为你用的是ADO分页)

set rs=server.CreateObject("adodb.recordset")

rs.open sql,conn,1,1

补充：0分又不追加分，帮你回答一个已不错了，还没完没了了。懒得理你

asp分页显示出错,当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制

1、Ctrl + C的问题，可能是因为内置“复制”命令被篡改成“插入书签”了，恢复Normal模板即可：

A、关闭所有打开的Word文档；

B、复制这条命令：

%appdata%\microsoft\templates

C、开始 → 运行 → 粘贴上面复制的命令 → 确定

D、在打开的目录下，找到并删除Normal.dot，然后重新运行Word即可。

.

2、批量删除书签，可以使用宏来处理：

Sub DelBM()

Dim bm As Bookmark

For Each bm In ActiveDocument.Bookmarks

bm.Delete

Next

End Sub

vb中如何在word书签处输入文本

<%

dim n,pagename,keyword,maxpagecount,TotalNumber

dim pagestart,pageend,strurl,ii

keyword=Trim(Request("keyword"))

if not isempty(request("page")) then

CurrentPage=cint(request("page"))

else

CurrentPage=1

end if

Set Rs = Server.CreateObject("ADODB.Recordset")

const MaxPerPage = 20 '###每页显示数

pagename = "AdminUser.asp"

if not isnull(keyword) and keyword<>"" then

keyword=replace(replace(replace(keyword,"'","‘"),"<","<"),">",">")

sql="select * from [User] where UserName like '%"&keyword&"%'"

sql=sql&" order by RegTime desc"

else

sql = "select * from [User] order by RegTime desc"

end if

Rs.OPEN sql, Conn,1,3

if not(Rs.BOF or Rs.EOF) then

Rs.pagesize = MaxPerPage

maxpagecount=Rs.pagecount '###记录总页数

TotalNumber=cint(Rs.RecordCount)'###记录总数

Rs.absolutepage = CurrentPage '###当前页数

ii=0

Rem '#######显示多少页##########

pagestart=CurrentPage-3

pageend=CurrentPage+3

Rem '##########################

n=CurrentPage

if pagestart<1 then

pagestart=1

end if

if pageend>maxpagecount then

pageend=maxpagecount

end if

if n<maxpagecount then

n=maxpagecount

end if

%>

改为以上就OK

将Word中的指定位置设置书签，在VB中给指定书签复制

sub Test()

DIm strfilename as string

Dim strbookmarkname as string

dim strInfo as string

strfilename="C:\test.doc"

strbookmarkname="bkmTest"

strInfo="Test Bookmark OK"

set objDoc=CreateObject("word.application")

set objDoc=objApp.documents.open(strfilename)

objDoc.Bookmarks(strbookmarkname).range.text=strInfo

objDoc.save

objDoc.close 1

objApp.quit 0

end sub

这样就可以了