Dim Lab As String, startPt As Long, endPt As Long, myrang As Range 'On Error Resume Next '发生错误时让程序继续执行下一句代码 ' Application.ScreenUpdating = False '关闭屏幕更新,2013在此处关闭更新会导致输入框灰色不可选,故修正在调出对话框之后
startPt = Selection.Start 'startPt标注起始点
'将if条件隐藏隐藏即可实现----手动替换题注空格 If Application.Dialogs(357).Show = -1 Then '插入“题注”对话框秀出来,如果按确定结束时执行以下程序,避免按取消后的空格,357也可换成wdDialogInsertCaption
End Sub Sub 批量修改表格() Dim tempTable As Table Application.ScreenUpdating = False If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护,此时不能选中多个表格!" Exit Sub End If ActiveDocument.DeleteAllEditableRanges wdEditorEveryone For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges wdEditorEveryone ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Application.ScreenUpdating = True End Sub Sub FormatAllTables() For i = 1 To ActiveDocument.Tables.Count ' ActiveDocument.Tables(i).Style = "my" With ActiveDocument.Tables(i).Range.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpace1pt5 .Alignment = wdAlignParagraphJustify .WidowControl = False .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .AutoAdjustRightIndent = True .DisableLineHeightGrid = False .FarEastLineBreakControl = True .WordWrap = True .HangingPunctuation = True .HalfWidthPunctuationOnTopOfLine = False .AddSpaceBetweenFarEastAndAlpha = True .AddSpaceBetweenFarEastAndDigit = True .BaseLineAlignment = wdBaselineAlignAuto End With ' 设置表中的字体及大小 ActiveDocument.Tables(i).Select With Selection .Font.Size = 10 .Font.Name = "宋体" .InsertCaption Label:="表格", TitleAutoText:="InsertCaption1", _ Title:="", Position:=wdCaptionPositionAbove, ExcludeLabel:=0 End With ActiveDocument.Tables(i).Cell(1, 1).Select With Selection .SelectRow .Font.Bold = True .Shading.BackgroundPatternColor = -603923969 .ParagraphFormat.Alignment = wdAlignParagraphCenter End With Next End Sub Sub 表格题注() ' ' If ActiveDocument.Tables.Count >= 1 Then Set act_Doc = ActiveDocument For Each otable In act_Doc.Tables CaptionLabels.Add Name:="表星星星" With otable.Range.InsertCaption(Label:="表星星星", Position:=wdCaptionPositionAbove) 'Position:=wdCaptionPositionBelow End With Next End If End Sub
Sub 字体调整() ' ' 字体调整 宏 ' ' Selection.Font.Name = "仿宋_GB2312" Selection.Font.Size = 14 Selection.Font.Color = -587137025 End Sub Sub 删除换行及空格() ' ' 删除换行及空格 宏 ' 用于调整从PDF文件中复制出的文字格式 ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " " .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^p" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Sub 删除空白() ' ' 删除空白 宏 ' ' ' Selection.WholeStory ' Application.Run MacroName:="Normal.NewMacros.删除换行及空格" Application.Run MacroName:="Normal.NewMacros.首行缩进" Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^p" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Sub 英文改times字体() ' ' 英文改times字体 宏 ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[0-9a-zA-Z]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
记得刚开始接触Linux的时候是大学二年级,使用Linux的时间也有五年多了,至于为何会接触到此系统呢,归于一个带我飞的大学同学左蓝。在这一年多的时间里,使用的最多的 Linux 系统是基于 debian 发行版系列的Ubuntu,对于它的简介呢,那就维基百科ubuntu。我旨在记录并分享我在ubuntu的深渊使用过并觉得推荐的应用或工具,要是你有更好的推荐希望留言或简信,Thanks♪(・ω・)ノ
git clone https://github.com/rofl0r/proxychains-ng.git cd proxychains-ng sudo ./configure –prefix=/usr –sysconfdir=/etc sudo make && sudo make install && sudo make install-config cd .. && rm -rf proxychains-ng
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ WARNING: REMOTE HOST IDENTIFICATION HAS CHANGED! @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ IT IS POSSIBLE THAT SOMEONE IS DOING SOMETHING NASTY! Someone could be eavesdropping on you right now (man-in-the-middle attack)! It is also possible that a host key has just been changed.
这个错误我没有列全,因为涉及到地址等信息,如果出现以上错误,在 Mac 本地删除 /Users/你的 mac 用户名/.ssh/known_hosts中的所有文件即可。 Finder 中按 shift + cmd + G 或者直接 点击菜单上的 前往 - 前往本地文件夹