Word录制宏后，让宏对字体的颜色更改为蓝色、无法保存

413191246se · 发表于 2015-5-28 08:55

楼主，据我转换8000多个Word文档为TXT文档的经历，一次转换或打开文档的数目不宜太多，否则，Word 有崩溃的危险！最好把700个文档分成 3 个文件夹来分别打开保存（此前压缩备份一下）或设置才好。

413191246se · 发表于 2015-5-28 08:58

楼主，你是不是把宏保存在第一个文档中了？那样不行，你得保存在通用模板 Normal.dot 中，然后，才能对所有打开的文档使用宏（你关闭所有Word窗口后，重新打开 Word，录制一个新宏Macro1，然后，工具菜单——宏——宏——Macro1——编辑，在它的下面录制一个或拷贝一个蓝色宏，保存在 Normal.dot中）。

13907933959 · 发表于 2015-5-28 20:33

413191246se 发表于 2015-5-28 08:58
楼主，你是不是把宏保存在第一个文档中了？那样不行，你得保存在通用模板 Normal.dot 中，然后，才能对 ...

前辈好！我录的宏是保存在通用摸板上，你今天给我的代码怎么样才能用，我真是个外行，下面笫一个是我录的。你给的2个我不知怎么用，还劳你教一下详细步骤。谢谢！
Sub Macro1()
'
' Macro1 Macro
' 宏在 2015-5-28 由 User 录制
'
Selection.TypeParagraph
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
      .Text = "^p  "
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
      .Text = "^p "
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
With Selection.ParagraphFormat
      .LeftIndent = CentimetersToPoints(-2.79)
      .RightIndent = CentimetersToPoints(-0.92)
      .SpaceBefore = 0
      .SpaceBeforeAuto = False
      .SpaceAfter = 15.6
      .SpaceAfterAuto = False
      .LineSpacingRule = wdLineSpace1pt5
      .Alignment = wdAlignParagraphJustify
      .WidowControl = False
      .KeepWithNext = False
      .KeepTogether = False
      .PageBreakBefore = False
      .NoLineNumber = False
      .Hyphenation = True
      .FirstLineIndent = CentimetersToPoints(0.29)
      .OutlineLevel = wdOutlineLevelBodyText
      .CharacterUnitLeftIndent = 0
      .CharacterUnitRightIndent = -5.24
      .CharacterUnitFirstLineIndent = 1.65
      .LineUnitBefore = 0
      .LineUnitAfter = 0
      .AutoAdjustRightIndent = True
      .DisableLineHeightGrid = False
      .FarEastLineBreakControl = True
      .WordWrap = True
      .HangingPunctuation = True
      .HalfWidthPunctuationOnTopOfLine = False
      .AddSpaceBetweenFarEastAndAlpha = True
      .AddSpaceBetweenFarEastAndDigit = True
      .BaseLineAlignment = wdBaselineAlignAuto
End With
With Selection.Font
      .NameFarEast = "宋体"
      .NameAscii = "宋体"
      .NameOther = "宋体"
      .Name = "宋体"
      .Size = 15
      .Bold = True
      .Italic = False
      .Underline = wdUnderlineNone
      .UnderlineColor = wdColorAutomatic
      .StrikeThrough = False
      .DoubleStrikeThrough = False
      .Outline = False
      .Emboss = False
      .Shadow = False
      .Hidden = False
      .SmallCaps = False
      .AllCaps = False
      .Color = wdColorBlack
      .Engrave = False
      .Superscript = False
      .Subscript = False
      .Spacing = 0
      .Scaling = 100
      .Position = 0
      .Kerning = 1
      .Animation = wdAnimationNone
      .DisableCharacterSpaceGrid = False
      .EmphasisMark = wdEmphasisMarkNone
End With
Selection.HomeKey Unit:=wdStory
Selection.Delete Unit:=wdCharacter, Count:=1
With Selection.ParagraphFormat
      .LeftIndent = CentimetersToPoints(-2.79)
      .RightIndent = CentimetersToPoints(-0.92)
      .SpaceBefore = 0
      .SpaceBeforeAuto = False
      .SpaceAfter = 15.6
      .SpaceAfterAuto = False
      .LineSpacingRule = wdLineSpace1pt5
      .Alignment = wdAlignParagraphCenter
      .WidowControl = False
      .KeepWithNext = False
      .KeepTogether = False
      .PageBreakBefore = False
      .NoLineNumber = False
      .Hyphenation = True
      .FirstLineIndent = CentimetersToPoints(0)
      .OutlineLevel = wdOutlineLevelBodyText
      .CharacterUnitLeftIndent = 0
      .CharacterUnitRightIndent = -5.24
      .CharacterUnitFirstLineIndent = 0
      .LineUnitBefore = 0
      .LineUnitAfter = 0
      .AutoAdjustRightIndent = True
      .DisableLineHeightGrid = False
      .FarEastLineBreakControl = True
      .WordWrap = True
      .HangingPunctuation = True
      .HalfWidthPunctuationOnTopOfLine = False
      .AddSpaceBetweenFarEastAndAlpha = True
      .AddSpaceBetweenFarEastAndDigit = True
      .BaseLineAlignment = wdBaselineAlignAuto
End With
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
With Selection.Font
      .NameFarEast = "宋体"
      .NameAscii = "宋体"
      .NameOther = "宋体"
      .Name = "宋体"
      .Size = 18
      .Bold = True
      .Italic = False
      .Underline = wdUnderlineNone
      .UnderlineColor = wdColorAutomatic
      .StrikeThrough = False
      .DoubleStrikeThrough = False
      .Outline = False
      .Emboss = False
      .Shadow = False
      .Hidden = False
      .SmallCaps = False
      .AllCaps = False
      .Color = wdColorRed
      .Engrave = False
      .Superscript = False
      .Subscript = False
      .Spacing = 0
      .Scaling = 100
      .Position = 0
      .Kerning = 1
      .Animation = wdAnimationNone
      .DisableCharacterSpaceGrid = False
      .EmphasisMark = wdEmphasisMarkNone
End With
Selection.HomeKey Unit:=wdLine
With ActiveDocument.Styles(wdStyleNormal).Font
      If .NameFarEast = .NameAscii Then
         .NameAscii = ""
      End If
      .NameFarEast = ""
End With
With ActiveDocument.PageSetup
      .LineNumbering.Active = False
      .Orientation = wdOrientPortrait
      .TopMargin = CentimetersToPoints(2.54)
      .BottomMargin = CentimetersToPoints(2.54)
      .LeftMargin = CentimetersToPoints(3.09)
      .RightMargin = CentimetersToPoints(2.26)
      .Gutter = CentimetersToPoints(0)
      .HeaderDistance = CentimetersToPoints(1.5)
      .FooterDistance = CentimetersToPoints(1.75)
      .PageWidth = CentimetersToPoints(21)
      .PageHeight = CentimetersToPoints(29.7)
      .FirstPageTray = wdPrinterDefaultBin
      .OtherPagesTray = wdPrinterDefaultBin
      .SectionStart = wdSectionNewPage
      .OddAndEvenPagesHeaderFooter = False
      .DifferentFirstPageHeaderFooter = False
      .VerticalAlignment = wdAlignVerticalTop
      .SuppressEndnotes = False
      .MirrorMargins = False
      .TwoPagesOnOne = False
      .BookFoldPrinting = False
      .BookFoldRevPrinting = False
      .BookFoldPrintingSheets = 1
      .GutterPos = wdGutterPosLeft
      .LayoutMode = wdLayoutModeLineGrid
End With
End Sub

Sub Macro2()
'
' Macro2 Macro
' 宏在 2015-5-28 由 User 录制
'
End Sub
Sub BatchChangeColor()
Dim wNum As Long, wDoc As Document
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Word 文档", "*.doc;*.doc*"
If .Show <> -1 Then Exit Sub
Application.ScreenUpdating = False
For wNum = 1 To .SelectedItems.Count
Set wDoc = Documents.Open(.SelectedItems(wNum), Visible:=False)
With wDoc.Range
End With
wDoc.Close True
Next
Application.ScreenUpdating = True
MsgBox "共完成 " & wNum - 1 & " 个文档！"
End With
End Sub

Sub Macro3()
'
' Macro3 Macro
' 宏在 2015-5-28 由 User 录制
'
End Sub
Sub BatchChangeColor()
Dim wNum As Long, wDoc As Document
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Word 文档", "*.doc;*.doc*"
If .Show <> -1 Then Exit Sub
Application.ScreenUpdating = False
For wNum = 1 To .SelectedItems.Count
Set wDoc = Documents.Open(.SelectedItems(wNum), Visible:=False)
With wDoc.Range.Find
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Replacement.Font.Color = wdColorBlue
  .Execute "^13\<目录\>*^13\<篇名\>*^13", , , True, , , , , , , wdReplaceAll
End With
End With
wDoc.Close True
Next
Application.ScreenUpdating = True
MsgBox "共完成 " & wNum - 1 & " 个文档！"
End With
End Sub

413191246se · 发表于 2015-5-29 11:15

楼主，你好！我并未给你代码，认错人了吧？但我建议你在本论坛搜索一下VBA微软官方帮助，我曾经上传过的。如果找到，你好好学习一下，有助于你进一步学习VBA。

13907933959 · 发表于 2015-5-29 16:48

本帖最后由 13907933959 于 2015-5-29 17:05 编辑

kqbt 发表于 2015-5-28 07:51

前辈好！我录的宏是保存在通用摸板上，你今天给我的代码怎么样才能用，我真是个外行，下面笫一个是我录的。你给的2个我不知怎么用，还劳你教一下详细步骤。谢谢！

13907933959 · 发表于 2015-5-29 16:55

413191246se 发表于 2015-5-29 11:15
楼主，你好！我并未给你代码，认错人了吧？但我建议你在本论坛搜索一下VBA微软官方帮助，我曾经上传过的。 ...

你好！不好意思、是回复有错了，我把你当kpdt前辈了，不过前辈你有不有什么好方法教一下小弟，将感激不尽！谢谢！

13907933959 · 发表于 2015-5-29 17:10

kqbt 发表于 2015-5-28 07:51

官方微博免费工具去报名

高级搜索
ExcelHome技术论坛»论坛›Office 2010/2007/2003Family›Word›Word录制宏后，让宏对字体的颜色更改为蓝色、无法保存
数据收集和协作，只需一张超级表格魔方网表,Excel终结者,永久免费 Excel服务器学习和下载-做管理系统 Excel Home精品图文教程库
Excel不给力？何不试试FoxTable！诚征Excel高手，共掘企业管理商机 Excel追价宝-用Excel追踪心仪商品价格免费下载Excel行业应用视频
300集易学宝-Office 2010微视频教程【最新神器】邀请码限量发行免费阅读《Excel函数其实很简单》财务会计玩转Excel - 招生进行中
在EH论坛的最佳学习方法
你的Excel 2010实战技巧学习锦囊欲罢不能, 过目难忘的 Office 新界面免费的Excel考勤计算系统
  12 / 2 页
返回列表发新帖回复
楼主: 13907933959
打印上一主题下一主题 [求助] Word录制宏后，让宏对字体的颜色更改为蓝色、无法保存 [复制链接]
413191246se

45
主题
1663
帖子
70
鲜花
EH高级
Rank: 4Rank: 4Rank: 4Rank: 4
积分1714技术1
发消息
TA的精华主题
TA的得分主题
11楼
发表于 2015-5-28 08:55 | 只看该作者
★用Excel做企业管理系统，Excel服务器学习和下载★

楼主，据我转换8000多个Word文档为TXT文档的经历，一次转换或打开文档的数目不宜太多，否则，Word 有崩溃的危险！最好把700个文档分成 3 个文件夹来分别打开保存（此前压缩备份一下）或设置才好。
  管理
回复评分举报
12345
413191246se

45
主题
1663
帖子
70
鲜花
EH高级
Rank: 4Rank: 4Rank: 4Rank: 4
积分1714技术1
发消息
TA的精华主题
TA的得分主题
12楼
发表于 2015-5-28 08:58 | 只看该作者
★财务、会计、人力资源、行政、生管、销售、市场：Excel 行业应用系列视频课程精彩放送中★

楼主，你是不是把宏保存在第一个文档中了？那样不行，你得保存在通用模板 Normal.dot 中，然后，才能对所有打开的文档使用宏（你关闭所有Word窗口后，重新打开 Word，录制一个新宏Macro1，然后，工具菜单——宏——宏——Macro1——编辑，在它的下面录制一个或拷贝一个蓝色宏，保存在 Normal.dot中）。
  管理
回复评分举报
13907933959

6
主题
44
帖子
0
鲜花
EH初级
Rank: 2Rank: 2
积分44技术0
13楼
  楼主| 发表于 2015-5-28 20:33 | 只看该作者 |自己
★ 想轻松管理数据？想快速设计管理软件？想老板对你刮目相看？哪还不快用FoxTable? ★
413191246se 发表于 2015-5-28 08:58
楼主，你是不是把宏保存在第一个文档中了？那样不行，你得保存在通用模板 Normal.dot 中，然后，才能对 ...

前辈好！你今天给我的代码怎么样才能用，我真是个外行，下面笫一个是我录的。你给的2个我不知怎么用，还劳你教一下详细步骤。谢谢！
Sub Macro1()
'
' Macro1 Macro
' 宏在 2015-5-28 由 User 录制
'
Selection.TypeParagraph
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
      .Text = "^p  "
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
      .Text = "^p "
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
With Selection.ParagraphFormat
      .LeftIndent = CentimetersToPoints(-2.79)
      .RightIndent = CentimetersToPoints(-0.92)
      .SpaceBefore = 0
      .SpaceBeforeAuto = False
      .SpaceAfter = 15.6
      .SpaceAfterAuto = False
      .LineSpacingRule = wdLineSpace1pt5
      .Alignment = wdAlignParagraphJustify
      .WidowControl = False
      .KeepWithNext = False
      .KeepTogether = False
      .PageBreakBefore = False
      .NoLineNumber = False
      .Hyphenation = True
      .FirstLineIndent = CentimetersToPoints(0.29)
      .OutlineLevel = wdOutlineLevelBodyText
      .CharacterUnitLeftIndent = 0
      .CharacterUnitRightIndent = -5.24
      .CharacterUnitFirstLineIndent = 1.65
      .LineUnitBefore = 0
      .LineUnitAfter = 0
      .AutoAdjustRightIndent = True
      .DisableLineHeightGrid = False
      .FarEastLineBreakControl = True
      .WordWrap = True
      .HangingPunctuation = True
      .HalfWidthPunctuationOnTopOfLine = False
      .AddSpaceBetweenFarEastAndAlpha = True
      .AddSpaceBetweenFarEastAndDigit = True
      .BaseLineAlignment = wdBaselineAlignAuto
End With
With Selection.Font
      .NameFarEast = "宋体"
      .NameAscii = "宋体"
      .NameOther = "宋体"
      .Name = "宋体"
      .Size = 15
      .Bold = True
      .Italic = False
      .Underline = wdUnderlineNone
      .UnderlineColor = wdColorAutomatic
      .StrikeThrough = False
      .DoubleStrikeThrough = False
      .Outline = False
      .Emboss = False
      .Shadow = False
      .Hidden = False
      .SmallCaps = False
      .AllCaps = False
      .Color = wdColorBlack
      .Engrave = False
      .Superscript = False
      .Subscript = False
      .Spacing = 0
      .Scaling = 100
      .Position = 0
      .Kerning = 1
      .Animation = wdAnimationNone
      .DisableCharacterSpaceGrid = False
      .EmphasisMark = wdEmphasisMarkNone
End With
Selection.HomeKey Unit:=wdStory
Selection.Delete Unit:=wdCharacter, Count:=1
With Selection.ParagraphFormat
      .LeftIndent = CentimetersToPoints(-2.79)
      .RightIndent = CentimetersToPoints(-0.92)
      .SpaceBefore = 0
      .SpaceBeforeAuto = False
      .SpaceAfter = 15.6
      .SpaceAfterAuto = False
      .LineSpacingRule = wdLineSpace1pt5
      .Alignment = wdAlignParagraphCenter
      .WidowControl = False
      .KeepWithNext = False
      .KeepTogether = False
      .PageBreakBefore = False
      .NoLineNumber = False
      .Hyphenation = True
      .FirstLineIndent = CentimetersToPoints(0)
      .OutlineLevel = wdOutlineLevelBodyText
      .CharacterUnitLeftIndent = 0
      .CharacterUnitRightIndent = -5.24
      .CharacterUnitFirstLineIndent = 0
      .LineUnitBefore = 0
      .LineUnitAfter = 0
      .AutoAdjustRightIndent = True
      .DisableLineHeightGrid = False
      .FarEastLineBreakControl = True
      .WordWrap = True
      .HangingPunctuation = True
      .HalfWidthPunctuationOnTopOfLine = False
      .AddSpaceBetweenFarEastAndAlpha = True
      .AddSpaceBetweenFarEastAndDigit = True
      .BaseLineAlignment = wdBaselineAlignAuto
End With
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
With Selection.Font
      .NameFarEast = "宋体"
      .NameAscii = "宋体"
      .NameOther = "宋体"
      .Name = "宋体"
      .Size = 18
      .Bold = True
      .Italic = False
      .Underline = wdUnderlineNone
      .UnderlineColor = wdColorAutomatic
      .StrikeThrough = False
      .DoubleStrikeThrough = False
      .Outline = False
      .Emboss = False
      .Shadow = False
      .Hidden = False
      .SmallCaps = False
      .AllCaps = False
      .Color = wdColorRed
      .Engrave = False
      .Superscript = False
      .Subscript = False
      .Spacing = 0
      .Scaling = 100
      .Position = 0
      .Kerning = 1
      .Animation = wdAnimationNone
      .DisableCharacterSpaceGrid = False
      .EmphasisMark = wdEmphasisMarkNone
End With
Selection.HomeKey Unit:=wdLine
With ActiveDocument.Styles(wdStyleNormal).Font
      If .NameFarEast = .NameAscii Then
         .NameAscii = ""
      End If
      .NameFarEast = ""
End With
With ActiveDocument.PageSetup
      .LineNumbering.Active = False
      .Orientation = wdOrientPortrait
      .TopMargin = CentimetersToPoints(2.54)
      .BottomMargin = CentimetersToPoints(2.54)
      .LeftMargin = CentimetersToPoints(3.09)
      .RightMargin = CentimetersToPoints(2.26)
      .Gutter = CentimetersToPoints(0)
      .HeaderDistance = CentimetersToPoints(1.5)
      .FooterDistance = CentimetersToPoints(1.75)
      .PageWidth = CentimetersToPoints(21)
      .PageHeight = CentimetersToPoints(29.7)
      .FirstPageTray = wdPrinterDefaultBin
      .OtherPagesTray = wdPrinterDefaultBin
      .SectionStart = wdSectionNewPage
      .OddAndEvenPagesHeaderFooter = False
      .DifferentFirstPageHeaderFooter = False
      .VerticalAlignment = wdAlignVerticalTop
      .SuppressEndnotes = False
      .MirrorMargins = False
      .TwoPagesOnOne = False
      .BookFoldPrinting = False
      .BookFoldRevPrinting = False
      .BookFoldPrintingSheets = 1
      .GutterPos = wdGutterPosLeft
      .LayoutMode = wdLayoutModeLineGrid
End With
End Sub

413191246se · 发表于 2015-5-29 23:00

楼主，打开Word2003，点击：工具菜单/宏/宏……，找到比如第一个宏Macro吧，点“编辑”按钮，然后再按Ctrl+End将光标打到代码区最下面，注意在End Sub行下面，粘贴上别人给的宏代码。然后，关闭此VBE编程环境，再点击：工具菜单——自定义——类别：宏——把Macro1这个宏用鼠标左键拖着不要松手，一直拖动到工具栏上，让它成为一个按钮，然后，关闭对话框，以后就可以点此按钮，方便地使用刚才别人给的宏了！

13907933959 · 发表于 2015-5-30 11:14

kqbt 发表于 2015-5-28 07:51

前辈好！由于昨天停电，回复晚了请见谅！你给的代码我用了，出现一个警示框，框内内容为：“由于宏安全设置，无法找到宏或宏被禁用”，我把“宏安全”调到“低”也一样，不知是什么原因，有可能还是我没有把代码植入好，还请你看一下那里不对，讶谢谢！
Sub Macro3()
'
' Macro3 Macro
' 宏在 2015-5-28 由 User 录制
'
Sub BatchChangeColor()
  Dim wNum As Long, wDoc As Document
  With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Word ??", "*.doc;*.doc*"
If .Show <> -1 Then Exit Sub
Application.ScreenUpdating = False
For wNum = 1 To .SelectedItems.Count
   Set wDoc = Documents.Open(.SelectedItems(wNum), Visible:=False)
   With wDoc.Range.Find
      With ActiveDocument.Range.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Replacement.Font.Color = wdColorBlue
      .Execute "^13\<??\>*^13\<??\>*^13", , , True, , , , , , , wdReplaceAll
      End With
   End With
   wDoc.Close True
Next
Application.ScreenUpdating = True
MsgBox "??? " & wNum - 1 & " ???!"
  End With
End Sub

413191246se · 发表于 2015-5-31 00:19

楼主，你在 C 盘搜索 Normal.dot 文件（如果是 Word2003的话），并勾选“高级选项”，找到几个删除几个，然后重新打开 Word 2003，再录制一个新宏：Macro1，再点击：工具菜单/宏/宏……/编辑，在 Macro1 宏最后一行 End Sub下面一行粘贴上别人的代码。。。

		自动登录	找回密码
密码			免费注册