vb可以做一个根据不同情况自动修改Word文档的东西吗
如果使用vb,且生成全新的word文档,有两种方法;如果使用vb,修改已经存在的word文档,只有一种方法。
如果不限制实现方式: 1.可是使用word的vba实现。 2.可以使用javascript或vbscript实现 如果是生成全新的word文档,c语言也可以。
主体思路如下:dim WordApp as objectSet WordApp = CreateObject("Word.Application")//建立对象WordApp.Application.Visible=1//使对象可见set myDoc=WordApp.Documents.Add()//建立新文档 然后添加格式化的文字,图表等等就可以了 希望以上答案对你有所帮助。
如何在vb中调出word文档并对其中的内容作出修改
示例:把c:\1.doc中的“一”替换为“壹”:Private Sub Command1_Click() Dim wordObj Set wordObj = CreateObject("Word.Application") With wordObj.Documents.Open("c:\1.doc") .Content.Find.Execute "一", , , , , , , , , "壹", 2 .Save End With wordObj.quitEnd Sub。
求修改文本文档内容的VB代码求一个修改文本文档的VB代码要求:各
窗体上加一个文本框,拉大点,用于编辑文本内容,改以下属性:Name-->txtFileText-->清空MultiLine-->TrueScrollBars-->3下面放一个标签,用于显示文件名,改以下属性:Name-->lblFileNameCaption-->清空加两个按钮,一个是读取文件,一个是保存文件,改Name属性分别为cmdRead和cmdSave工程-->部件-->MicrosoftCommonDialogControl6。
0,添加到工具箱。然后在窗体上加一个CommonDialog。
最后添加代码:PrivateSubcmdRead_Click()DimstrFileAsStringOnErrorGoToerrCommonDialog1。Filter="*。
txt|*。 txt"CommonDialog1。
ShowOpenIfCommonDialog1。FileName""ThenlblFileName。
Caption=CommonDialog1。FileNameOpenlblFileName。
CaptionForInputAs#1IfLOF(1)>0ThentxtFile。 Text=""WhileNotEOF(1)LineInput#1,strFiletxtFile。
Text=txtFile。Text+strFile+vbCrLfWendEndIfClose#1EndIfE "openfileerror"EndSubPrivateSubcmdSave_Click()OnErrorGoToerrOpenlblFileName。
CaptionForOutputAs#1Print#1,txtFile。TextClose#1E "openfileerror"EndSub。
vb中如何将打开的word修改后直接保存
Dim AppWord As Word.Application '声明对象Set AppWord = CreateObject("Word.Application") '实例化对象AppWord.Documents.Open App.Path & "\举例.doc" '打开已经存在的Word文档'在文档开头输入“您好!Word VBA”Selection.TypeText Text:="您好!Word VBA" & vbCrLfAppWord.Documents.Close True '保存修改AppWord.Quit '关闭WordSet AppWord = Nothing '释放资源。
转载请注明出处51数据库 » 如何用vb修改word文档