Fix VBA Word Macro Code. The code for standard format should also include comment balloons on the side for when there is an edit being made.
£10-20 GBP
Pagado a la entrega
Sub StandardFormat1()
'StandardFormat Macro
MsgBox "Replicated Word Tracked changes. When Track Changes is highlighted, new text will be red and deletions will have a red strikethrough. When Track Changes is not highlighted, nothing will be tracked"
[login to view URL] = Not [login to view URL]
' [login to view URL] = wdPaneRevisionsHoriz
' [login to view URL] = wdBalloonRevisions
With Options
.InsertedTextMark = wdInsertedTextMarkColorOnly
.InsertedTextColor = wdByAuthor
.DeletedTextMark = wdDeletedTextMarkStrikeThrough
.DeletedTextColor = wdByAuthor
.RevisedPropertiesMark = wdRevisedPropertiesMarkColorOnly
.RevisedPropertiesColor = wdByAuthor
.RevisedLinesMark = wdRevisedLinesMarkNone
.CommentsColor = wdByAuthor
.RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationPreserve
.MoveFromTextMark = wdMoveFromTextMarkDoubleStrikeThrough
.MoveFromTextColor = wdGreen
.MoveToTextMark = wdMoveToTextMarkDoubleUnderline
.MoveToTextColor = wdGreen
.InsertedCellColor = wdCellColorLightBlue
.MergedCellColor = wdCellColorLightYellow
.DeletedCellColor = wdCellColorPink
.SplitCellColor = wdCellColorLightOrange
End With
' [login to view URL] = wdMixedRevisions
[login to view URL] = wdRevisionsMarkupAll
[login to view URL] = wdBalloonRevisions
With ActiveDocument
.TrackMoves = True
.TrackFormatting = True
' .TrackRevisions = True
End With
[login to view URL] = wdBalloonRevisions
End Sub
Sub NewestTrackChanges()
'
' NewestTrackChanges Macro
'
'
MsgBox "Track changes and deletions are accepted."
[login to view URL] = Not [login to view URL]
[login to view URL] = wdPaneRevisionsHoriz
With Options
.InsertedTextMark = wdInsertedTextMarkColorOnly
.InsertedTextColor = wdByAuthor
.DeletedTextMark = wdDeletedTextMarkHidden
.DeletedTextColor = wdByAuthor
.RevisedPropertiesMark = wdRevisedPropertiesMarkColorOnly
.RevisedPropertiesColor = wdByAuthor
.RevisedLinesMark = wdRevisedLinesMarkNone
.CommentsColor = wdByAuthor
.RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationPreserve
End With
[login to view URL] = wdMixedRevisions
With Options
.MoveFromTextMark = wdMoveFromTextMarkDoubleStrikeThrough
.MoveFromTextColor = wdGreen
.MoveToTextMark = wdMoveToTextMarkDoubleUnderline
.MoveToTextColor = wdGreen
.InsertedCellColor = wdCellColorLightBlue
.MergedCellColor = wdCellColorLightYellow
.DeletedCellColor = wdCellColorPink
.SplitCellColor = wdCellColorLightOrange
End With
With ActiveDocument
.TrackMoves = False
.TrackFormatting = False
End With
Call AcceptOnlyDeletionsInDoc
End Sub
Sub AcceptOnlyDeletionsInDoc()
Dim objRevision As Revision
Dim objDoc As Document
[login to view URL] = False
Set objDoc = ActiveDocument
For Each objRevision In [login to view URL]
With objRevision
' MsgBox [login to view URL]
If .Type = wdRevisionProperty Then
.Accept
End If
If .Type = wdRevisionDelete Then
.Accept
End If
End With
Next objRevision
[login to view URL] = True
Set objDoc = Nothing
End Sub
Nº del proyecto: #22159408
Sobre el proyecto
5 freelancers están ofertando un promedio de £22 por este trabajo
Hi, I am well versed with MS Word object model and have used it extensively for automation of MS Word templates and documents. I am keen to work on the assignment. Thanks
Hi there I have 5+ experience in "Excel, Software Architecture, VB.NET, Visual Basic, Visual Basic for Apps". I have completed 200+ projects with 5 star rating. I can do tasks related to: Data Entry Excel Transcription Más
I'm Tamjid . I'm dealing with data entry. I try to meet the needs of most clients and I can. Because it has my specialties: Converting PDF to Word & Excel. PDF Catalog data Copy into Excel Sheet. Collecting Data Más