Replace all Tabs within all txt files
0
I have a folder with multiple text files and I need to replace all of the tabs within each file with a Space.
What is the easiest way to do this with VBA?
Thanks in advance
Geoff
vba replace
asked Nov 25 '18 at 18:19
Geoff CoddGeoff Codd
1
add a comment |
0
I have a folder with multiple text files and I need to replace all of the tabs within each file with a Space.
What is the easiest way to do this with VBA?
Thanks in advance
Geoff
vba replace
asked Nov 25 '18 at 18:19
Geoff CoddGeoff Codd
1
The easiest way to not do this in VBA is use this: archive.codeplex.com/?p=findandreplace
– Nick.McDermaid
Nov 25 '18 at 23:37
add a comment |
0
0
0
I have a folder with multiple text files and I need to replace all of the tabs within each file with a Space.
What is the easiest way to do this with VBA?
Thanks in advance
Geoff
vba replace
asked Nov 25 '18 at 18:19
Geoff CoddGeoff Codd
1
I have a folder with multiple text files and I need to replace all of the tabs within each file with a Space.
What is the easiest way to do this with VBA?
Thanks in advance
Geoff
vba replace
vba replace
asked Nov 25 '18 at 18:19
Geoff CoddGeoff Codd
1
asked Nov 25 '18 at 18:19
Geoff CoddGeoff Codd
1
asked Nov 25 '18 at 18:19
Geoff CoddGeoff Codd
1
asked Nov 25 '18 at 18:19
Geoff CoddGeoff Codd
1
asked Nov 25 '18 at 18:19
Geoff CoddGeoff Codd
1
1
The easiest way to not do this in VBA is use this: archive.codeplex.com/?p=findandreplace
– Nick.McDermaid
Nov 25 '18 at 23:37
add a comment |
The easiest way to not do this in VBA is use this: archive.codeplex.com/?p=findandreplace
– Nick.McDermaid
Nov 25 '18 at 23:37
The easiest way to not do this in VBA is use this: archive.codeplex.com/?p=findandreplace
– Nick.McDermaid
Nov 25 '18 at 23:37
The easiest way to not do this in VBA is use this: archive.codeplex.com/?p=findandreplace
– Nick.McDermaid
Nov 25 '18 at 23:37
add a comment |
1 Answer
1
active
oldest
votes
0
Sub TabsToSpace()
Dim f As String, pth As String
pth = "your_directory_path"
f = Dir(pth & "*.txt")
While f <> ""
Documents.Open FileName:=pth & f
With Selection.Find
.Text = "^t"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
ActiveDocument.Save
ActiveDocument.Close
f = Dir
Wend
End Sub
answered Nov 25 '18 at 22:22
Michal RosaMichal Rosa
1,3361815
Thanks for your reply, I get an object required error, do I need a reference or, do I need to incorporate this into some other code? Thanks
– Geoff Codd
Nov 27 '18 at 11:03
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
});
}
});
draft saved
draft discarded
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%2f53470497%2freplace-all-tabs-within-all-txt-files%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
0
Sub TabsToSpace()
Dim f As String, pth As String
pth = "your_directory_path"
f = Dir(pth & "*.txt")
While f <> ""
Documents.Open FileName:=pth & f
With Selection.Find
.Text = "^t"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
ActiveDocument.Save
ActiveDocument.Close
f = Dir
Wend
End Sub
answered Nov 25 '18 at 22:22
Michal RosaMichal Rosa
1,3361815
Thanks for your reply, I get an object required error, do I need a reference or, do I need to incorporate this into some other code? Thanks
– Geoff Codd
Nov 27 '18 at 11:03
add a comment |
0
Sub TabsToSpace()
Dim f As String, pth As String
pth = "your_directory_path"
f = Dir(pth & "*.txt")
While f <> ""
Documents.Open FileName:=pth & f
With Selection.Find
.Text = "^t"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
ActiveDocument.Save
ActiveDocument.Close
f = Dir
Wend
End Sub
answered Nov 25 '18 at 22:22
Michal RosaMichal Rosa
1,3361815
Thanks for your reply, I get an object required error, do I need a reference or, do I need to incorporate this into some other code? Thanks
– Geoff Codd
Nov 27 '18 at 11:03
add a comment |
0
0
0
Sub TabsToSpace()
Dim f As String, pth As String
pth = "your_directory_path"
f = Dir(pth & "*.txt")
While f <> ""
Documents.Open FileName:=pth & f
With Selection.Find
.Text = "^t"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
ActiveDocument.Save
ActiveDocument.Close
f = Dir
Wend
End Sub
answered Nov 25 '18 at 22:22
Michal RosaMichal Rosa
1,3361815
Sub TabsToSpace()
Dim f As String, pth As String
pth = "your_directory_path"
f = Dir(pth & "*.txt")
While f <> ""
Documents.Open FileName:=pth & f
With Selection.Find
.Text = "^t"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
ActiveDocument.Save
ActiveDocument.Close
f = Dir
Wend
End Sub
answered Nov 25 '18 at 22:22
Michal RosaMichal Rosa
1,3361815
answered Nov 25 '18 at 22:22
Michal RosaMichal Rosa
1,3361815
answered Nov 25 '18 at 22:22
Michal RosaMichal Rosa
1,3361815
answered Nov 25 '18 at 22:22
Michal RosaMichal Rosa
1,3361815
1,3361815
Thanks for your reply, I get an object required error, do I need a reference or, do I need to incorporate this into some other code? Thanks
– Geoff Codd
Nov 27 '18 at 11:03
add a comment |
Thanks for your reply, I get an object required error, do I need a reference or, do I need to incorporate this into some other code? Thanks
– Geoff Codd
Nov 27 '18 at 11:03
Thanks for your reply, I get an object required error, do I need a reference or, do I need to incorporate this into some other code? Thanks
– Geoff Codd
Nov 27 '18 at 11:03
Thanks for your reply, I get an object required error, do I need a reference or, do I need to incorporate this into some other code? Thanks
– Geoff Codd
Nov 27 '18 at 11:03
add a comment |
draft saved
draft discarded
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.
draft saved
draft discarded
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%2f53470497%2freplace-all-tabs-within-all-txt-files%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
The easiest way to not do this in VBA is use this: archive.codeplex.com/?p=findandreplace
– Nick.McDermaid
Nov 25 '18 at 23:37