__落花流水
在按键精灵里采用vbs语句操作word,想在word中插入域（即按ctrl+F...
展开全部 参考文献一直都是留学生们在写英文论文过程中的一大痛处，因为国外大学英文论文参考文献格式非常多，比如APA、MLA等等，而且每一种格式都存在一定的差异，所以留学生们在写英文论文的时候一定要问清楚老师是用哪种参考文献格式。
另外就是参考文献的数量一般也是有要求，小论文一般都是6个及以上，大论文一般都是15个及以上。
写英文论文的软件有很多，在前面的文章EndNote写英文论文Reference使用方法，学霸都在用！中为大家介绍了EndNote，但是相信中国留学生大部分还是在使用Word，接下来美伦教育就给大家盘点一下如何在Word2010中自动输入APA、MLA格式参考文献（这里美伦教育默认的是英文版的word2010哦），帮助留学生们更快更好的完成英文论文写作。
第一步. 打开Office2010之后，导入自己的Essay第二步. 在菜单栏上找到Reference一栏第三步. 单击Reference之后，选择Citation and Bibliography那一栏第四步. 点击Inert Citation，选择Add New Source第五步. 单击之后会弹出一个对话框，在弹出的对话框里选择你的Reference种类，在左下角的Show AllFields一栏可以填写更多信息，然后大家hi发现很多有红色标记的栏目，这些都非常重要，推荐大家最好填写。
填写完成后点击OK。
第六步. 如果你Source很多的话，还是可以选择继续添加。
第七步. 单击ReferenceStyle选择需要的格式，这时候大家应该就可以非常省事的选择需要的一种参考文献格式，怎么样，是不是自己动手一个标点一个字母的那样去写要省事很多呢？第八步.上面这些步骤完成之后，再看自己的Essay，把文字输入光标移动到你需要插入Reference的地方，点击Bibliography，选择Bibliography那一块（其实这一块已经完成体啦，只需要点击输入到自己的Essay当中去）。
第九步. 点击之后出现的就是你的Reference，这时候只需要将上面的Bibliography换成Reference然后改下字体和颜色就大功告成咯。
...
WORD文件中数字大小写可否自动转换像EXCLE一样一个位置填写小...
第一招：釜底抽薪——自动更正法如果需要重复的输入一个大写数字金额，可以采用自动更正的方法。
例如要重复输入“肆仟叁佰伍拾元零伍分”，可以先输入“肆仟叁佰伍拾元零伍分”并选中它，然后执行菜单“工具→自动更正选项”打开“自动更正”对话框，在“替换”下的框内输入“4350.05”并单击“添加”按钮确定后退出，以后直接输入“4350.05”后回车即可快速得到“肆仟叁佰伍拾元零伍分”。
第二招：一劳永逸——编制自动宏如果有许多小写金额要变成大写的话，用上面的自动更正的方法需要定义很多自动更正项，显然也比较麻烦，其实只需要编辑一个宏就能做到“一劳永逸”了。
启动Word后按下A lt+F11组合键，在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口，在代码编辑窗口中输入如下代码：Option ExplicitSub 小写金额变大写（） Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As String Dim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As String Const ZWDX As String = ＂壹贰叁肆伍陆柒捌玖零＂ '定义一个中文大写汉字常量 On Error Resume Next '错误忽略 With Selection Numeric = VBA.Round(VBA.Val(.Text), 2） '四舍五入保留小数点后两位 '判断是否在表格中 If .Information(wdWithInTable) Then _.MoveRight unit:=wdCell Else .MoveRight unit:=wdCharacter '对数据进行判断，是否在指定的范围内 If VBA.Abs(Numeric) > 2147483647 Then MsgBox ＂数值超过范围！＂， _ vbOKOnly + vbExclamation, ＂Warning＂: Exit Sub IntPart = Int(VBA.Abs(Numeric)） '定义一个正整数 Odd = VBA.IIf(IntPart = 0， ＂＂， ＂圆＂) '定义一个STRING变量 '插入中文大写前的标签 Lable = VBA.IIf(Numeric = VBA.Abs(Numeric)， ＂人民币金额大写： ＂， ＂人民币金额大写： 负＂） '对小数点后面二位数进行择定 DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100 Select Case DecimalPart Case Is = 0 '如果是0，即是选定的数据为整数 Oddment = VBA.IIf(Odd = ＂＂, ＂＂, Odd & ＂整＂) Case Is ＂＂， ＂圆零＂ & VBA.Mid(ZWDX, DecimalPart, 1) & ＂分＂， _ VBA.Mid(ZWDX, DecimalPart, 1) & ＂分＂） Case 10, 20, 30, 40, 50, 60, 70, 80, 90 '如果是角整 Oddment = ＂圆＂ & VBA.Mid(ZWDX, DecimalPart / 10, 1) & ＂角整＂ Case Else '既有角，又有分的情况 Jiao = VBA.Left(CStr(DecimalPart), 1） '取得角面值 Fen = VBA.Right(CStr(DecimalPart), 1） '取得分面值 Oddment = Odd & VBA.Mid(ZWDX, Jiao, 1) & ＂角＂ '转换为角的中文大写 Oddment = Oddment & VBA.Mid(ZWDX, Fen, 1) & ＂分＂ '转换为分的中文大写 End Select '指定区域插入中文大写格式的域 Set MyField = .Fields.Add(Range:=.Range, Text:=＂= ＂ & IntPart & ＂ \*CHINESENUM2＂) MyField.Select '选定域（最后是用指定文本覆盖选定区域） '如果仅有角分情况下，Mychinese为＂＂ MyChinese = VBA.IIf(MyField.Result ＂零＂， MyField.Result, ＂＂) .Text = Lable & MyChinese & Oddment End WithEnd Sub输入完毕后按下Alt+Q键返回word中，以后只需要依次选中需要转换的小写金额后，按下Alt+F8打开宏对话框，选择“小写金额变大写”宏，并单击“运行”即可快速地得出大写金额。
运行该宏可以在选定的文本数据后面插入此金额大写，如果选定范围在表格中，则在右侧单元格中插入金额大写。
c#操作word插入图片如何设置图片的大小
引用spire.doc.dllusing Spire.Doc;using Spire.Doc.Documents;using Spire.Doc.Fields;using System.Drawing;namespace ResizeImage{class Program{static void Main(string[] args){//实例化一个Document对象Document doc = new Document();//添加section和段落Section section = doc.AddSection();Paragraph para = section.AddParagraph();//加载图片到System.Drawing.Image对象， 使用AppendPicture方法将图片插入到段落Image image = Image.FromFile(@＂C:\Users\Administrator\Desktop\logo.png＂);DocPicture picture = doc.Sections[0].Paragraphs[0].AppendPicture(image);//设置文字环绕方式picture.TextWrappingStyle = TextWrappingStyle.Square;//指定图片位置picture.HorizontalPosition = 50.0f;picture.VerticalPosition = 50.0f;//设置图片大小picture.Width = 100;picture.Height = 100;//保存到文档doc.SaveToFile(＂Image.doc＂, FileFormat.Doc);}}}
VB怎么向word中写入EQ域
1234567891011121314Private Sub Command1_Click() Dim objWordApp As Object Const wdFieldFormula = 49 Set objWordApp = GetObject(, ＂Word.Application＂) objWordApp.Selection.Fields.Add objWordApp.Selection.Range, _ wdFieldFormula, _ ＂{EQ \b \bc\{ (\r(3,x))}＂, _ False Set objWordApp = NothingEnd Sub...
word里面没有Harvard style怎么办？
1、打开Office，打开Essay;2、找到Reference标签；3、点击，找到Citation and Bibliography那一栏；4、点击Inert Citation，选择Add New Source;5、在弹出的对话框里选择Reference种类，并填写相关的信息，打钩下面的Show All Fields可以填写更多信息，但是前面有红色标记的是比较重要的信息，推荐填写。
填写完成后点击OK;6、如果有不止一个Source可以选择继续添加；7、点击Reference Style选择需要的格式，大家应该都是需要Harvard Style的吧~舍友的渣Word（在学校MIT办公室装的）没有Harvard Style，但是学校机房是有的；8、一切弄好之后回到Essay，把文字输入光标移动到需要插入Reference的地方，点击Bibliography，选择Bibliography。
c#操作word插入图片如何设置图片的大小
展开全部 引用spire.doc.dll using Spire.Doc;using Spire.Doc.Documents;using Spire.Doc.Fields;using System.Drawing;namespace ResizeImage{ class Program { static void Main(string[] args) { //实例化一个Document对象 Document doc = new Document（)； //添加section和段落 Section section = doc.AddSection(); Paragraph para = section.AddParagraph（)； //加载图片到System.Drawing.Image对象， 使用AppendPicture方法将图片插入到段落 Image image = Image.FromFile(@＂C:\Users\Administrator\Desktop\logo.png＂); DocPicture picture = doc.Sections[0].Paragraphs[0].AppendPicture(image)； //设置文字环绕方式 picture.TextWrappingStyle = TextWrappingStyle.Square； //指定图片位置 picture.HorizontalPosition = 50.0f; picture.VerticalPosition = 50.0f； //设置图片大小 picture.Width = 100; picture.Height = 100； //保存到文档 doc.SaveToFile(＂Image.doc＂, FileFormat.Doc); } }}...
如何将word整个文档存到oracle数据库中
字段类型用blob，先把blob设成空然后再操作，我用的是upload_5xsoft.inc(asp人都知道)，显示的时候就用数据流写出即可。
代码如下 写入： sql = ＂update d_doc_modi_rec set doc_content=empty_blob() where doc_no='＂&doc_no&＂' and version='＂&maxver&＂'＂ Oradatabase.dbEXECUTESQL(sql) Selsql =＂select * from d_doc_modi_rec where doc_no='＂&doc_no&＂' and version='＂&maxver&＂'＂ file.SavetoDB Selsql,feild Public function SavetoDB(Selstr,area) dim rsDB,ErrorChar,dr if selstr=＂＂ or area=＂＂ then exit function set rsDB=Oradatabase.dbcreatedynaset(Selstr,0) set dr=CreateObject(＂Adodb.Stream＂) dr.Mode=3 dr.Type=1 dr.Open dr.position=0 'dr.Type = 2 'dr.Charset = ＂gb2312＂ path = filepath&filename dr.LoadFromFile path chunk=dr.read chunksize=lenb(chunk) 'response.end set infoblob=rsDB.fields(area).value rsDB.Edit infoblob.offset=1 amount_written=infoblob.write (chunk,chunksize) rsDB.update dr.close set amount_written = nothing rsDB.close end function
VB 中Combobox控件的数据录入。
高手请进~~~
可以采用txt文件，读txt文件中的数，添加到combobox中。
比如桌面上有ceshi.txt文本文件存放的combobox的下拉项，程序如下Dim tempstr As StringPrivate Sub Form_Load()Open ＂C:\Documents and Settings\Administrator\桌面\ceshi.txt＂ For Input As #1While Not EOF(1)Line Input #1, tempstrcombo1.additem tempstrWendEnd Sub
如何将DBGrid中的数据导出在EXcel,或word或 记事本中？
function TForm1.ExportDBGrid(DBGrid: TDBGrid; SheetName: string): boolean；//直接保存，不显示EXCEL varc, r, i, j: integer;app: Olevariant;TempFileName, ResultFileName: string;begintry result := True; app := CreateOLEObject('Excel.application'); // app.WorkBooks.Add(xlWBatWorkSheet); except Application.MessageBox('Excel没有正确安装！'，'警告'，MB_OK); result := False; exit; end; SaveDialog1.DefaultExt := 'xls'; SaveDialog1.FileName := SheetName; if SaveDialog1.Execute then TempFileName := SaveDialog1.FileName else Exit; app.Workbooks.add; app.Visible := false; Screen.Cursor := crHourGlass; DBGrid.DataSource.DataSet.First; c := DBGrid.DataSource.DataSet.FieldCount; r := DBGrid.DataSource.DataSet.RecordCount; Application.ProcessMessages; for i := 0 to c - 1 do app.cells(1, 1 + i) := DBGrid.DataSource.DataSet.Fields[i].DisplayLabel; for j := 1 to r do begin for i := 0 to c - 1 do app.cells(j + 1, 1 + i) := DBGrid.DataSource.DataSet.Fields[i].AsString; DBGrid.DataSource.DataSet.Next; end; ResultFileName := TempFileName; if ResultFileName = '' then ResultFileName ：= '数据导出'； if FileExists(TempFileName) then DeleteFile(TempFileName); app.Activeworkbook.saveas(TempFileName); app.Activeworkbook.close(false); app.quit; app := unassigned;end;procedure TForm1.Button2Click(Sender: TObject)； //按钮保存begintry Screen.Cursor := crHourGlass; ExportDBGrid(DBGrid1， '导出数据')； //暂时将导出的文件名称为“导出数据”（的execl文件） finally Screen.Cursor := crDefault;end;end；来源： http://www.programbbs.com/bbs/view12-9451-1.htm记得采纳啊
转载请注明出处51数据库 » word fields.add
