How to delete text inserted after a bookmark so i can insert new text
I have set up a few bookmarks and when a button is pressed runs a macro to insert dates at the bookmarks, This works great. if i press the button again new dates are inserted before the existing dates.
I want to know what code to use to remove the old dates and add new dates.
I did find some code that lists all my bookmarks.
Dim d As Document
'Set d = Documents.Add("G:My DriveMossCRMWork in progressaction plan
Wordchange.docm")
Set d = ActiveDocument
Dim b As Bookmark
Dim dt As Date
'dt = DateAdd("d", 21, DateTime.Now)
dt = DateAdd("d", 90, Date)
Set b = d.Bookmarks("weeksadd3m")
b.Range.Text = Format(dt, "dd/mm/yyyy")
I would like to clear text after bookmark so fresh dates can be inserted.
Thanks to all that will consider this.
moss
vba ms-word
edited 17 hours ago
Cindy Meister
14.4k102134
asked 18 hours ago
Moss LovellMoss Lovell
134
add a comment |
I have set up a few bookmarks and when a button is pressed runs a macro to insert dates at the bookmarks, This works great. if i press the button again new dates are inserted before the existing dates.
I want to know what code to use to remove the old dates and add new dates.
I did find some code that lists all my bookmarks.
Dim d As Document
'Set d = Documents.Add("G:My DriveMossCRMWork in progressaction plan
Wordchange.docm")
Set d = ActiveDocument
Dim b As Bookmark
Dim dt As Date
'dt = DateAdd("d", 21, DateTime.Now)
dt = DateAdd("d", 90, Date)
Set b = d.Bookmarks("weeksadd3m")
b.Range.Text = Format(dt, "dd/mm/yyyy")
I would like to clear text after bookmark so fresh dates can be inserted.
Thanks to all that will consider this.
moss
vba ms-word
edited 17 hours ago
Cindy Meister
14.4k102134
asked 18 hours ago
Moss LovellMoss Lovell
134
add a comment |
I have set up a few bookmarks and when a button is pressed runs a macro to insert dates at the bookmarks, This works great. if i press the button again new dates are inserted before the existing dates.
I want to know what code to use to remove the old dates and add new dates.
I did find some code that lists all my bookmarks.
Dim d As Document
'Set d = Documents.Add("G:My DriveMossCRMWork in progressaction plan
Wordchange.docm")
Set d = ActiveDocument
Dim b As Bookmark
Dim dt As Date
'dt = DateAdd("d", 21, DateTime.Now)
dt = DateAdd("d", 90, Date)
Set b = d.Bookmarks("weeksadd3m")
b.Range.Text = Format(dt, "dd/mm/yyyy")
I would like to clear text after bookmark so fresh dates can be inserted.
Thanks to all that will consider this.
moss
vba ms-word
edited 17 hours ago
Cindy Meister
14.4k102134
asked 18 hours ago
Moss LovellMoss Lovell
134
I have set up a few bookmarks and when a button is pressed runs a macro to insert dates at the bookmarks, This works great. if i press the button again new dates are inserted before the existing dates.
I want to know what code to use to remove the old dates and add new dates.
I did find some code that lists all my bookmarks.
Dim d As Document
'Set d = Documents.Add("G:My DriveMossCRMWork in progressaction plan
Wordchange.docm")
Set d = ActiveDocument
Dim b As Bookmark
Dim dt As Date
'dt = DateAdd("d", 21, DateTime.Now)
dt = DateAdd("d", 90, Date)
Set b = d.Bookmarks("weeksadd3m")
b.Range.Text = Format(dt, "dd/mm/yyyy")
I would like to clear text after bookmark so fresh dates can be inserted.
Thanks to all that will consider this.
moss
vba ms-word
vba ms-word
edited 17 hours ago
Cindy Meister
14.4k102134
asked 18 hours ago
Moss LovellMoss Lovell
134
edited 17 hours ago
Cindy Meister
14.4k102134
asked 18 hours ago
Moss LovellMoss Lovell
134
edited 17 hours ago
Cindy Meister
14.4k102134
edited 17 hours ago
Cindy Meister
14.4k102134
edited 17 hours ago
Cindy Meister
14.4k102134
14.4k102134
asked 18 hours ago
Moss LovellMoss Lovell
134
asked 18 hours ago
Moss LovellMoss Lovell
134
asked 18 hours ago
Moss LovellMoss Lovell
134
134
add a comment |
add a comment |
1 Answer
1
active
oldest
votes
The bookmark must be set to cover the range of its new content. Try code like this:-
Private Sub SetBookMark()
Dim Doc As Document
Dim Rng As Range
Dim Mark As String
Dim Dt As Date
'Set Doc = Documents.Add("G:My DriveMossCRMWork in progress" & _
"action planWordchange.docm")
Set Doc = ActiveDocument
Mark = "weeksadd3m"
Dt = DateAdd("m", 3, Date)
With Doc.Bookmarks
If .Exists(Mark) Then
Set Rng = .Item(Mark).Range
Rng.Text = Format(Dt, "dd/mm/yyyy")
.Add Mark, Rng
End If
End With
End Sub
answered 18 hours ago
VariatusVariatus
5,0361423
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f54250423%2fhow-to-delete-text-inserted-after-a-bookmark-so-i-can-insert-new-text%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
The bookmark must be set to cover the range of its new content. Try code like this:-
Private Sub SetBookMark()
Dim Doc As Document
Dim Rng As Range
Dim Mark As String
Dim Dt As Date
'Set Doc = Documents.Add("G:My DriveMossCRMWork in progress" & _
"action planWordchange.docm")
Set Doc = ActiveDocument
Mark = "weeksadd3m"
Dt = DateAdd("m", 3, Date)
With Doc.Bookmarks
If .Exists(Mark) Then
Set Rng = .Item(Mark).Range
Rng.Text = Format(Dt, "dd/mm/yyyy")
.Add Mark, Rng
End If
End With
End Sub
answered 18 hours ago
VariatusVariatus
5,0361423
add a comment |
The bookmark must be set to cover the range of its new content. Try code like this:-
Private Sub SetBookMark()
Dim Doc As Document
Dim Rng As Range
Dim Mark As String
Dim Dt As Date
'Set Doc = Documents.Add("G:My DriveMossCRMWork in progress" & _
"action planWordchange.docm")
Set Doc = ActiveDocument
Mark = "weeksadd3m"
Dt = DateAdd("m", 3, Date)
With Doc.Bookmarks
If .Exists(Mark) Then
Set Rng = .Item(Mark).Range
Rng.Text = Format(Dt, "dd/mm/yyyy")
.Add Mark, Rng
End If
End With
End Sub
answered 18 hours ago
VariatusVariatus
5,0361423
add a comment |
The bookmark must be set to cover the range of its new content. Try code like this:-
Private Sub SetBookMark()
Dim Doc As Document
Dim Rng As Range
Dim Mark As String
Dim Dt As Date
'Set Doc = Documents.Add("G:My DriveMossCRMWork in progress" & _
"action planWordchange.docm")
Set Doc = ActiveDocument
Mark = "weeksadd3m"
Dt = DateAdd("m", 3, Date)
With Doc.Bookmarks
If .Exists(Mark) Then
Set Rng = .Item(Mark).Range
Rng.Text = Format(Dt, "dd/mm/yyyy")
.Add Mark, Rng
End If
End With
End Sub
answered 18 hours ago
VariatusVariatus
5,0361423
The bookmark must be set to cover the range of its new content. Try code like this:-
Private Sub SetBookMark()
Dim Doc As Document
Dim Rng As Range
Dim Mark As String
Dim Dt As Date
'Set Doc = Documents.Add("G:My DriveMossCRMWork in progress" & _
"action planWordchange.docm")
Set Doc = ActiveDocument
Mark = "weeksadd3m"
Dt = DateAdd("m", 3, Date)
With Doc.Bookmarks
If .Exists(Mark) Then
Set Rng = .Item(Mark).Range
Rng.Text = Format(Dt, "dd/mm/yyyy")
.Add Mark, Rng
End If
End With
End Sub
answered 18 hours ago
VariatusVariatus
5,0361423
answered 18 hours ago
VariatusVariatus
5,0361423
answered 18 hours ago
VariatusVariatus
5,0361423
answered 18 hours ago
VariatusVariatus
5,0361423
5,0361423
add a comment |
add a comment |
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f54250423%2fhow-to-delete-text-inserted-after-a-bookmark-so-i-can-insert-new-text%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
