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.

Cerrado Publicado hace 4 años Pagado a la entrega
Cerrado 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

Visual Basic Excel Visual Basic para aplicaciones VB.NET Arquitectura de software

Nº del proyecto: #22159408

Sobre el proyecto

5 propuestas Proyecto remoto Activo hace 4 años

5 freelancers están ofertando un promedio de £22 por este trabajo

finecodervw

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

£30 GBP en 3 días
(179 comentarios)
6.4
faizaanmaroof

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

£20 GBP en 6 días
(1 comentario)
2.2
tamjidahmed440

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

£15 GBP en 7 días
(0 comentarios)
0.0