Hur man skriver makron för dokumentrensning i Word 2016

Innan den sista lagringen, eller varje gång du arbetar med ett stort dokument i Word 2016, överväg att göra lite dokumentrensning. Det är en process som innebär att man söker efter oseriösa karaktärer och annan problematisk text.

En rutin för dokumentrensning innebär att man letar efter mellanslag i slutet av stycken, dubbla mellanslag, dubbla tabbar och dubbla Enter-tangenter (tomma stycken). Det här är alla föremål som ska undvikas, men de hamnar ändå i långa dokument.

Processen att eliminera dessa oönskade element innebär att du använder dialogrutan Sök och ersätt. Du måste använda specialknappen för att mata in specialtecken, som mellanslag, Tab och Enter.

Makrot som skapades för att utföra dokumentrensningssysslan registrerade tangenttryckningarna som användes för att söka och ersätta de olika tecknen. Sedan användes Visual Basic Editor för att ta bort en del av den redundanta koden. Här är resultatet:

Sub document_cleanup()

'

' document_cleanup Makro

' Ta bort efterföljande blanksteg och dubbla blanksteg, tabbar och Enter-tangenter

'

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

' Ta bort mellanslag från ett stycke

med Selection.Find

.Text = "^w^v"

.Replacement.Text = "^v"

.Forward = Sant

Sluta med

Selection.Find.Execute Replace:=wdReplaceAll

' Ta bort dubbla blanksteg

Med Selection.Find

>.Text = " "

.Replacement.Text = " "

Slutar med

Selection.Find.Execute Replace:=wdReplaceAll

' Ta bort dubbla flikar

Med Selection.Find

.Text = "^t^t"

.Replacement.Text = " ^t"

Avsluta med

Selection.Find.Execute Replace:=wdReplaceAll

' Ta bort dubbla Enter-tangenter (tomma stycken)

Med Selection.Find

.Text = "^v^v"

.Replacement.Text = "^v"

Sluta med

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Den första sök-och-ersätt-operationen tar bort efterföljande utrymmen. Söktexten är ^w^v, som letar efter eventuella blanksteg (^w) före Enter-tangenten (^v). Dessa blanksteg – mellanslag, tabb och så vidare – ersätts med Enter-tangenten, vilket tar bort de efterföljande blanksteg.

Den andra sök-och-ersätt tar bort dubbla mellanslag. tryck på mellanslagstangenten två gånger för söktexten och tryckte på mellanslagstangenten en gång för ersättningstexten.

Den tredje sök-och-ersätt tar bort dubbla flikar. ^t representerar tabbtecken i dialogrutan Sök och ersätt.

Den sista sök-och-ersätt tar bort tomma stycken. ^v-tecknen representerar Enter-tangenten, så att ersätta ^v^v med ^v tar bort alla tomma stycken.

Detta makro fungerar okej, men det kan vara bättre. Till exempel hanterar den inte trippelmellanslag eller trippelflikar. Du måste köra makrot en andra gång för det. Om du tillhandahåller programmeringstalangen kan makrots kod lösa dessa problem.