VBA判断word文档中每一行行首字母是否为1,判断为真时,在1前加...

解决你的“顺便问下＂.....Sub Macro1()Dim strText As StringstrText = ＂建立反对撒客里空的龙卷风＂Selection.TypeText strTextSelection.MoveStart Unit:=wdLine, Count:=-1Selection.MoveEnd Unit:=wdCharacter, Count:=-1 * (Len(Selection.Text) - 4)Selection.MoveStart Unit:=wdCharacter, Count:=3Selection.Font.Bold = TrueMsgBox Selection.TextEnd Sub

VBA如何改word中每一张表上面一行的内容

展开全部 您的提问有点笼统，不清楚您的具体要求，如果有截图就好了。

可能不需要用vba。

如果表已经形成，每页一张表，只是每页最上面的内容要改，比如一个发往每个人（单位）的表格等，要在前面加上姓名（单位名称）。

建议学习下邮件合并。

提供这个方法，您“*度”下“邮件合并”，比我在这儿说更清楚。

真的还是很有用的。

这样的思路希望能够帮到您，祝您顺利。

...

VBA中如何word文档中某一段落分栏数

展开全部 提供一个方案给楼主参考，可以批量修改多个文档中某个指定文字的属性：1、启动Word后，键入Alt+F11打开VBA编辑窗口；2、选择菜单“插入->模块”，然后在代码编辑区中粘贴如下代码： Option ExplicitConst g_strRootPath = ＂c:\Docs\＂ ' 指定存放所有文件的目录，可以有子目录 Const g_strTextToFind = ＂茶＂ ' 需要批量查找修改格式的文字内容Dim g_oTargetFont As New Font' 主函数 Sub Main()Dim fso, oFolder' 设置需要修改的字体属性g_oTargetFont.Size = 18 ' 字号g_oTargetFont.Color = wdColorRed ' 颜色g_oTargetFont.Bold = True ' 是否加粗（True加粗，False正常）g_oTargetFont.Italic = True ' 是否斜体（True斜体，False正常）g_oTargetFont.Underline = wdUnderlineDash ' 下划线风格'... 设置其他字体属性Set fso = CreateObject(＂Scripting.FileSystemObject＂)Set oFolder = fso.GetFolder(g_strRootPath)ChangeFontStyleForFilesUnderFolder fso, oFolderMsgBox ＂完成！＂End Sub' 修改指定文件夹（递归）下面的所有Word文件中指定文字的格式 Sub ChangeFontStyleForFilesUnderFolder(fso, oFolder)Dim oSubFolder, oFileFor Each oSubFolder In oFolder.SubFoldersChangeFontStyleForFilesUnderFolder fso, oSubFolderNextFor Each oFile In oFolder.FilesDocuments.Open oFile.PathChangeFontStyleForActiveDocumentActiveDocument.Close TrueNextEnd Sub' 修改当前打开文档里面所有指定文字的格式 Sub ChangeFontStyleForActiveDocument()Selection.StartOf wdStorySelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = g_strTextToFind.Replacement.Text = ＂^&＂.Replacement.Font = g_oTargetFont.Forward = True.Wrap = wdFindContinue.Format = True.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchAllWordForms = False.MatchSoundsLike = False.MatchWildcards = TrueEnd WithSelection.Find.Execute Replace:=wdReplaceAll End Sub3、修改代码开始处的两个参数：存放所有需要批量修改文档的根目录（下面可以包含子目录，比如“C:\Docs”），需要修改的文字（比如“茶”字，也可以是一个词或者句子）；4、修改“主函数”里面想要设置的字体属性，如字号、颜色、加粗、斜体、下划线，等等；4、键入F5运行，直到看到“完成！”。

5、检查各个文档里面指定的文字是否已经被设置成了指定的格式。

vba编程 word每一行字体颜色随机

展开全部 欢迎学习VBA。

不过问题比较笼统哦，不知道怎么帮你了，呵呵建议拿一个具体实例出来讨论，这样能够更好地说明。

另外，VBA必须寄生于已有的应用程序，必须依赖于它的＂父＂应用程序，例如EXCEL、Word、AutoCAD，只能在它的＂父＂应用程序中运行，而不能独立运行。

因此，你只要说Word VBA编程或Excel VBA编程，大家就会明白啦 ^_^...

在word里vba中如何打开另一个word文档,并获取该文档表格里的某个...

Sub test()Dim doc As DocumentSet doc = Documents.Open(＂d：\某文件.doc＂)'打开d盘根目录下名为 某文件.doc 的文档MsgBox doc.Tables(1).Cell(2, 3).Range.Text'显示该文档第1个表格第2行第3列的单元格的文本End Sub

WORD、高手们、宏、VBA、宏有关批量运行

Sub 批量操作WORD()Dim path As StringDim FileName As StringDim worddoc As DocumentDim MyDir As StringMyDir = ＂G:\360data\重要数据\桌面\新建文件夹 （2）＂ '文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内FileName = Dir(MyDir & ＂\*.doc*＂, vbNormal)Do Until FileName = ＂＂If FileName ThisDocument.Name ThenSet worddoc = Documents.Open(MyDir & ＂\＂ & FileName)worddoc.ActivateCall 处理WORD '调用宏，换成你自己宏的名字worddoc.Close TrueFileName = Dir()End IfLoopSet worddoc = NothingEnd Sub'======================下面的宏换成你自己的宏=================================Sub 处理WORD()ActiveDocument.Paragraphs(1).Range.SelectSelection.Font.Size = 72End Sub

转载请注明出处51数据库 » word vba 某行