vb word pdf-关于VB与word的问题

正如楼上所说的
with msword
.content.font.name = "宋体"
.content.font.size = 12
.content.paragraphs.linespacing = 15.5
end with
你定义的类型是object 系统不会识别你with里面对象的属性，所以报错了，如果你象这个 dim newdoc as word.document 定义一样的话，那就没有问题了，如果不能确定word的版本，那建议你还是使用 禹希初 的方法吧

实际应用中，一般可以选择把图象地址存入库中或者直接把图片转换成ascii码存入库中，为啥要存进word腻

这是在用的一段代码，作用是将图片存入库中，以及图片的读取，你参考修改吧
uppic.asp上传程序名

<%
dim rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
formsize=request.totalbytes '取得客户端发过来的大小
formdata=request.binaryread(formsize)'把客户发过来的数据转成二进制作
bncrlf=chrb(13) & chrb(10)
divider=leftb(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)'上面总共是取得图片的二进制数据
%>
<!--#include file="conn.asp"-->
<%
sql="select * from pic order by id desc"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("big").appendchunk mydata '增加到数据库中
rs.update
set rs=nothing
set conn=nothing
%>
接下来是显示图片

display.asp

<!--#include file="conn.asp"-->
<%
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from pic where id=" & id
rs.open sql,conn,1,1
response.contenttype = "text/html" '显示图片的格式也可以用

'response.contenttype = "image/gif" 以gif显示

'response.contenttype = "image/jpg" 以jpg显示
response.binarywrite rs("big") '显示图片
rs.close
set rs=nothing
set conngraph=nothing

%>

(转载)
这个问题在vb吧讨论过，怎么可能一个程序让你这样打开呢？那么编译就没有必要了。
说实话，很简单，编译就是为了保密。比如你的一个程序需要输入密码，你写了：
if txt.text = "123456" then
msgbox "密码正确"
else
msgbox "错误"
end if
如果别人有vb，就打开了你的程序？？还有保密性吗？要序列号干什么？
想打开，必须反编译。对一个新手程序员，是不太可能做到的。这个需要大量的经验。
现在对于您，可以做的，就是去找源码（就是vb的存档）。你上网搜索，基本上可以找到的。

为什么不用vb在excell里写东西呢？也可以打印并作出相应设置的。如果可以在excell中使用的话，请与俺联系，俺给你操作代码。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
在“工程”菜单-->"引用"选项内选中“microsoft excel 11.0 objiect library”
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
dim xlapp as excel.application ’定义excel对象
dim xlbook as excel.workbook ’定义工作表对象
dim xlsheet as excel.worksheet
set xlapp = createobject("excel.application") '-------------创建excell对象!!!
xlapp.visible = true
set xlbook = xlapp.workbooks.add
set xlsheet = xlbook.worksheets(1) '指定工作表1
'-------------------------------------

'--------赋值语句---------------------
' xlsheet.cells(1, 1) = "序号"
xlsheet.cells(1, 1) = "项目" 'xlsheet.cells(i, j) ------ i:行定位;j:列定位.
xlsheet.cells(1, 2) = "单位"
xlsheet.cells(1, 3) = "数据"
xlsheet.cells(1, 4) = "备注"