html创建文件域的代码,word中巧用域代码创建公式
word中巧用域代码创建公式
Word中域代码的使用在今年的《中国电脑教育报》第24期中有过介绍，在这儿为您介绍如何使用Eq域代码创建物理公式。
利用Eq域创建公式，创建方法为：点击菜单"插入→域"，在"域"对话框中的"类别"栏中选择"等式和公式"，然后在"域名"列表中选择"Eq"。它使用方式为{ eq Switches }，Switches我们称之为开关，用于指定如何用括号中的元素建立所需要的公式。
以下我们就按不同的要求，分别以实例进行说明。
1、括号的创建：我们可以采用开关\b，默认括号为圆括号。您可以将要在括号中显示的元素直接输入到括号中，例如，创建以下域代码：{eq \b (物理)}，在文本中将显示为：(物理)。如果括号中无任何元素，那么括号将不会出现在文本中，不过地盘还是要掠夺一块的，或许是为了修改的方便。如果您觉得默认的圆括号有些单调，也可以任意更改括号的形式，可以借助于下列选项\lc、\rc、\bc。如\lc\@表示左括号使用符号@，\rc\#表示右括号使用字符#，而\bc\$表示左右括号都使用指定的字符$。例如{eq \b\lc\$\rc\@(物理) }，则显示为：$物理@。但并不是所有的符号都可以作为括号，如"+"符号就显示为空，而*则作为下划线出现，对此读者可以做一些尝试。
2、分数的创建：采用开关\f，括号中显示的元素用逗号隔开，前者为分子，后者为分母。例如，创建以下域代码：{eq \f (U,I)}，在文本中将显示为：。分数的创建没有默认方式，{eq \f (,3)}就显示为：，而不是我们期待的，同时Word也认为是可行的，不知道微软的计算机认为如何，呵呵。
3、根号的创建：采用开关\r，括号中显示的元素用逗号隔开，前者为n次方根，后者为被开方数。例如，创建以下域代码：{eq \r (3,x)}，在文本中将显示为：图a。
图a
4、上标或下标的创建：采用开关\s，将要作为上标或下标的元素直接放置在括号中，不过在没有任何选项时，默认为元素上升。在域代码中可以指定任意上升或下降的磅数，不过需采用选项完成。其中选项\upn将元素相对相邻文字上升，升高的幅度由n指定，单位为磅数，默认值为2磅。选项\don将元素相对相邻文字下降，下降的幅度由n指定，单位为磅数，默认值也为2磅。如此要显示铀238，可以这样书写域代码：{ eq \s\up8(238)\s\do8(92) U }，显示为：图b
图b
最后提示，如果您要在公式中使用逗号、单括号，可在这些符号前加反斜线；eq和开关之间存在默认的空格，此空格必须存在！
Word中巧用宏命令
2008年05月11日星期日12:06
宏命令作为一个非常重要的功能，在现在的许多软件中都不可缺少。利用宏，可以大大地简化我们的工作，准确快速地完成繁琐的任务。下面，就给大家详细介绍我在word中使用宏的一个实例。
【需求】
在word中进行批量处理，将大量的Word文档.doc文件转换为.htm文件
【分析】
我们知道，利用word可以将.doc文件转换为.htm文件，方法是：
在Doc文件编辑窗口中，选择菜单"文件/另存为"，在"保存类型"下列列表中选择"html document"，按"保存"。单独进行几个doc文件的转换还不算繁琐，但要大批量地进行转换工作时，比如：按章节输入了一本书，形成了几十个.doc文件，要对这些文件进行转换成.htm文件的工作，这时，就不能采用手工一个个处理的笨办法了！怎么实现呢？请往下看。
【实现步骤】
假设大批量.doc文档所在目录为c:\docs，文件名为1.1.doc，1.2.doc ...
1、启动word
2、关闭当前默认打开的空文档
3、选择菜单"工具/宏/录制新宏"，输入宏名称"doctohtml"，按"确定"，进入了宏录制过程。
4、选择菜单"文件/打开"，选择目录c:\docs，选择文件1.1.doc，按"确定"。
5、选择菜单"文件/另存为"，在"保存类型"下列列表中选择"html document"，按"保存"。
6、选择菜单"文件/关闭"
7、选择菜单"工具/宏/停止录制"
8、选择菜单"工具/宏/宏"
9、在出现的"宏"窗口左部选中doctohtml，单击右边的按钮"编辑"
10、宏代码改造：
在出现的"Microsoft Visual Basic"窗口中，可以看到如下的宏代码：
Sub doctohtml()
' doctohtml Macro
'宏在99-11-8由xxx录制
ChangeFileOpenDirectory "C:\docs"
Documents.Open FileName:="1.1.doc", ConfirmConversions:=False, ReadOnly:=
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto
ActiveDocument.SaveAs FileName:="1.1.htm", FileFormat:=100, LockComments:= _
False, Password:="", AddToRecentFiles:=True, WritePassword:="", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveDocument.Close
End Sub
对上面的代码进行改造，如下：
Sub doctohtml(myfile as string)
' doctohtml Macro
'宏在99-11-8由xxx录制
ChangeFileOpenDirectory "C:\docs"
If FileExists(gwfile + ".doc") Then
Documents.Open FileName:=myfile+".doc", ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto
ActiveDocument.SaveAs FileName:=myfile+".htm", FileFormat:=100, LockComments:= _
False, Password:="", AddToRecentFiles:=True, WritePassword:="", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveDocument.Close
end if
End Sub
并加入下面两个过程：
'判断文件是否存在的函数
Function FileExists(ByVal FileName As String) As Boolean
On Error Resume Next
FileExists = Dir$(FileName) <> ""
If Err.Number <> 0 Then
FileExists = False
End If
On Error GoTo 0
End Function
'实际的转换函数
Sub mydoctohtml()
If MsgBox("确认执行转换doc到html文件吗？", vbOKCancel + vbDefaultButton2) = _
vbCancel Then GoTo eeeddd
Call doctohtml("conver")
Call doctohtml("content")
Call doctohtml("qianyan")
Call doctohtml("fl")
Call doctohtml("1.1")
Call doctohtml("1.2")
Call doctohtml("1.10")
Call doctohtml("2.1")
Call doctohtml("3.1")
Call doctohtml("9.1")
eeeddd:
End Sub
至此，全部代码改造完毕！关闭"Microsoft Visual Basic"窗口，回到Word窗口。
11、选择菜单"工具/宏/宏"，出现"宏"窗口，在左边的宏列表中，可以看到"mydoctohtml"一项，选中它，按右边的按钮"运行"，出现提示窗口"确认执行转换doc到html文件吗？"，选择"确定"，批量转换工作开始了！
【后记】
上面应用宏的例子，看起来虽然步骤很多，其实做起来却非常简单，技术上关键在于2个环节：
第一、根据某个任务录制初始的宏；
第二、对初始的宏代码进行改造，已满足满足特殊的需求。
本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！