Käynnissä

Configure tracking code for Word and produce addin that can distributed to multiple users

Hi,

I have a piece of tracking code that extends Microsoft Word's standard use that I would like to put into an addin, Microsoft Studio would be great, to distribute to other users.

There is one error that sometimes comes up where if there have been any revisions to the document, I would like to just press a button linked to the code and it accepts it. The problem lies below. I'm also attaching the whole code below.

If .Type = wdRevisionProperty Then

.Accept

Sub NewestTrackChanges()

'

' NewestTrackChanges Macro

'

'

[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 = True

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 = wdRevisionDelete Then

.Accept

End If

If .Type = wdRevisionProperty Then

.Accept

End If

End With

Next objRevision

[login to view URL] = True

Set objDoc = Nothing

End Sub

Taidot: Visual Basic, Excel, Visual Basic for Apps, .NET, Microsoft

Näytä lisää: conversion tracking code, place google tracking code, add tracking code, google tracking code, place google conversion tracking code, examples add tracking code website, volusion tracking code, dont forget tracking code, message board tracking code, google tracking code php, cross domain javascript tracking code, hitbox flash tracking code, hbx flash tracking code, php tracking code myspace, courier tracking code vbnet, affiliate future tracking code, simple code word, google adwords conversion tracking code aspnet, gps real time tracking code examples, multiple object tracking code

Tietoa työnantajasta:
( 0 arvostelua ) London, United Kingdom

Projektin tunnus: #20758464

Myönnetty käyttäjälle:

xinglong717

Excel Macro expert!!! I read your description carefully and am very interesting in your project. I can finish your job in 1 hour. If you hire me,i will do my best for your job and you can get the best results. Looking Lisää

£20 GBP 1 päivässä
(13 Arvostelua)
4.4

8 freelanceria on tarjonnut keskimäärin %project_bid_stats_avg_sub_26% %project_currencyDetails_sign_sub_27% tähän työhön

abulkalam999111

Hello! At 1st take my sincere respect. I am gone through your details carefully. I have the enough qualifications to do your project. If you have any question than message me. Thanks Abul Kalam

£10 GBP 1 päivässä
(1 arvostelu)
1.4
redmapple3

hi dear. your job is interesting for me. please contact me then we can discuss more detail over chat. thanks. best regards.

£15 GBP 7 päivässä
(1 arvostelu)
1.4
Shivam9098

Nice to meet u

£18 GBP 1 päivässä
(0 arvostelua)
0.0
enghamza12

****** ma shaa Allah ****** I'm are professionals in ✔️MATHEMATICS, ✔️MATLAB, ✔️SOLIDWORKS, ✔️ANSYS FLUENT, ✔️PHYSICS, ✔️COMSOL ✔️PDF to Doc or all format and versa I am a boss. ⭐⭐⭐ Major skills and Qualifications ⭐⭐ Lisää

£15 GBP 1 päivässä
(0 arvostelua)
0.0
£18 GBP 1 päivässä
(0 arvostelua)
0.0
£18 GBP 1 päivässä
(0 arvostelua)
0.0
techlinesols6

Dear Prospect Hiring Manager. Thank you for giving me a chance to bid on your project. i am a serious bidder here and i have already worked on a similar project before and can deliver as u have mentioned "I can do th Lisää

£25 GBP 7 päivässä
(2 arvostelua)
0.0