请教一个关于操作word的问题！点击查看详细内容

[lracky]

在winForm窗体中打开一个word模板，内容如下：

兹：______________

现有________________先生/女士以位于___________________________________________的房产(以下内容略）.............


中国银行______________支行

年 月 日

空格线的内容是从数据库里读出来的，包括日期，如何填入到空格线中？？？？
我用宏填入到空格线中，但格式都变了，除了用宏还有什么好的方法？？？？特此请教各信高人！！

[_jfeng]

ding....

[webserv2]

录制宏 然后修改生成的vba代码！
防到你的程序中 就可以了

[caiyajun512]

用书签，不要用宏
上海消防局的放火系统是我写的。
------------------------
先做好摸板，插入书签，定好格式
for(i=1;i<=ctrlDoc.Bookmarks.Count;i++)
{
object j=i;
string str=ctrlDoc.Bookmarks.get_Item(ref j).Name;
if(WordHashable[str]!=null && WordHashable[str].ToString().Length>0
&& !System.Text.RegularExpressions.Regex.IsMatch(str,"Table_",System.Text.RegularExpressions.RegexOptions.IgnoreCase))
{
Microsoft.Office.Interop.Word.Range wrdRng=ctrlDoc.Bookmarks.get_Item(ref j).Range;
wrdRng.Text=WordHashable[str].ToString();
//下划线
if(System.Text.RegularExpressions.Regex.IsMatch(str,"ULine_",System.Text.RegularExpressions.RegexOptions.IgnoreCase) || System.Text.RegularExpressions.Regex.IsMatch(str,"Unline_",System.Text.RegularExpressions.RegexOptions.IgnoreCase))
{
wrdRng.Font.Underline=Microsoft.Office.Interop.Word.WdUnderline.wdUnderlineSingle;
}
//上下标
if(System.Text.RegularExpressions.Regex.IsMatch(str,"Sup_",System.Text.RegularExpressions.RegexOptions.IgnoreCase))
{
wrdRng.Font.Superscript=1;
}
else if(System.Text.RegularExpressions.Regex.IsMatch(str,"Sub_",System.Text.RegularExpressions.RegexOptions.IgnoreCase))
{
wrdRng.Font.Subscript=1;
}
else
{
wrdRng.Font.Subscript=0;
wrdRng.Font.Superscript=0;
}

//复选框
if(System.Text.RegularExpressions.Regex.IsMatch(str,"Sel_",System.Text.RegularExpressions.RegexOptions.IgnoreCase))
{
wrdRng.Font.Borders.Enable=1;
}

object oRng=wrdRng;
ctrlDoc.Bookmarks.Add(str,ref oRng);
}
}