Hello PowerShell community,
I will appreciate it if somebody gives some advice on this task: I have two macros for Word files. One macro removes Content Control. The other one formats the content. Is there a way to run these two macros on all *.docx files located in the subfolders using PowerShell script? It can run on PC, and I also have OneDrive for Business and Office for Business so it can run in the cloud as well if it is easier to implement. I have added two macros below. I can also pay for it, if it is a complex task.
Kind regards
Vadym
Macro remove Content Control:
Sub Finish_DeleteCCs()
Dim oRng As Range
Dim CC As ContentControl
Dim LC As Integer
'Remove all content controls
Set oRng = ActiveDocument.Content
For LC = oRng.ContentControls.Count To 1 Step -1
Set CC = oRng.ContentControls(LC)
CC.LockContentControl = False
CC.LockContents = False
If CC.ShowingPlaceholderText = True Then
CC.Range.Delete
End If
CC.Delete
Next
End Sub
Macro format document:
Sub MacroFormat()
’
’ MacroFormat Macro
’
’
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = “Number”
.Replacement.Text = “^p”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.SelectRow
Selection.Cut
Selection.HomeKey Unit:=wdRow
Selection.HomeKey Unit:=wdColumn
Selection.SelectColumn
Selection.Cut
Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
NestedTables:=True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = “^l”
.Replacement.Text = “^p”
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 6
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(1.08)
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = InchesToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
.CollapsedByDefault = False
.ReadingOrder = wdReadingOrderLtr
.AutoAdjustRightIndent = True
.DisableLineHeightGrid = False
.FarEastLineBreakControl = True
.WordWrap = True
.HangingPunctuation = True
.HalfWidthPunctuationOnTopOfLine = False
.AddSpaceBetweenFarEastAndAlpha = True
.AddSpaceBetweenFarEastAndDigit = True
.BaseLineAlignment = wdBaselineAlignAuto
End With
Selection.ParagraphFormat.LineSpacing = LinesToPoints(1.5)
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 6
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpace1pt5
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = InchesToPoints(0.3)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
.CollapsedByDefault = False
.ReadingOrder = wdReadingOrderLtr
.AutoAdjustRightIndent = True
.DisableLineHeightGrid = False
.FarEastLineBreakControl = True
.WordWrap = True
.HangingPunctuation = True
.HalfWidthPunctuationOnTopOfLine = False
.AddSpaceBetweenFarEastAndAlpha = True
.AddSpaceBetweenFarEastAndDigit = True
.BaseLineAlignment = wdBaselineAlignAuto
End With
Selection.Font.Name = “Arial”
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdStory
Selection.MoveDown Unit:=wdScreen, Count:=1
Selection.TypeParagraph
Application.Templates( _
“C:\Users\User\AppData\Roaming\Microsoft\Document Building Blocks\1033\16\Building Blocks.dotx” _
).BuildingBlockEntries(“Newsletter”).insert Where:=Selection.Range, _
RichText:=True
Selection.HomeKey Unit:=wdStory
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=1
Application.Templates( _
“C:\Users\User\AppData\Roaming\Microsoft\Document Building Blocks\1033\16\Building Blocks.dotx” _
).BuildingBlockEntries(“#polishlessons”).insert Where:=Selection.Range, _
RichText:=True
Selection.TypeParagraph
End Sub