String text in Word html. Passing info between Word and Excel

Printable View

Show 40 post(s) from this thread on one page

09-15-2021, 02:19 PM
DocAElstein

2 Attachment(s)

https://www.excelfox.com/forum/showthread.php/2348-String-text-in-Word-html-Passing-info-between-Word-and-Excel?p=15643&viewfull=1#post15643

Word File Save As ___.htm

At this stage, I would like to check what happens in terms of produced files and folders for some different files

The OP’s file
_ as he gave it, named 2. KEEP DUPLICATE RECORDS.docx
_ name changed to 2_ KEEP DUPLICATE RECORDS.docx
_ name changed to the Office 97 – 2003 format 2_ KEEP DUPLICATE RECORDS.doc
_ the file with all images removed
_ the file with everything removed

_ a new virgin file

I will do all that programmatically, for convenience and consistency since I might repeat the experiment in different Excel versions. ( So far most of my work is in Office 2007 )

As a prelude to that, to help get some syntaxes, I will do some of that manually first, whilst running a macro recorder

This is approximately what the macro recorder gave me. I have simplified it a bit and added some 'comments

Code:

Sub Makro7() ' ' Makro7 Makro https://excelfox.com/forum/showthread.php/2348-Just-Testing-Passing-info-between-Word-and-Excel?p=15643&viewfull=1#post15643 ' ' OPs original file ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\" Documents.Open Filename:="""2. KEEP DUPLICATE RECORDS.docx""", ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", DocumentDirection:=wdLeftToRight ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\Original OP File\" ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file ' OPs file with dot in name changed to underscore RecentFiles(3).Open ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\Ops File with dot in name changed to underscore\" ActiveDocument.SaveAs Filename:="2_ KEEP DUPLICATE RECORDS.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2_ KEEP DUPLICATE RECORDS.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file ' File in Office 97 - 2003 format RecentFiles(3).Open ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\Ops file in 97 -2003 format\" ActiveDocument.SaveAs Filename:="2_ KEEP DUPLICATE RECORDS.doc", FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2_ KEEP DUPLICATE RECORDS.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file ' Ops file no images RecentFiles(3).Open Selection.MoveDown Unit:=wdLine, Count:=6 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.MoveDown Unit:=wdLine, Count:=2 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.MoveDown Unit:=wdLine, Count:=4 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.MoveDown Unit:=wdLine, Count:=4 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.MoveDown Unit:=wdLine, Count:=4 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.MoveDown Unit:=wdLine, Count:=2 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\Ops File no images\" ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS no images.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS no images.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file ' Empty OP file RecentFiles(3).Open Selection.WholeStory Selection.TypeBackspace ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\OPs file empty\" ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS empty.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS empty.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS empty.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file ' Virgin file Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0 ' make file ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\Virgin empty file\" ActiveDocument.SaveAs Filename:="Dok2.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="Dok2.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file End Sub

Here is the files produced

' OPs original file

https://i.postimg.cc/Sj6zhRXK/OPs-original-file.jpg

' OPs file with dot in name changed to underscore
https://i.postimg.cc/GTxBJg0D/OPs-fi...underscore.jpg

' File in Office 97 - 2003 format
https://i.postimg.cc/62gsbBKJ/File-i...003-format.jpg

' Ops file no images
https://i.postimg.cc/ph85yXqq/Ops-fi...es-removed.jpg

' Empty OP file
https://i.postimg.cc/0KsMSR4x/Ops-file-emptied.jpg

' Virgin file
https://i.postimg.cc/sMDWKzgg/Virgin-File.jpg

We seem to have some inconstancy with the files and folders produced by the original OP macro, ( https://excelfox.com/forum/showthrea...ll=1#post15623 ) , so in the next post I had better check that first..
The inconstancy seems to be that a .htm file was not produced – instead some strange file was there , one with no extension shown, and the new file folder produced did not have the full name 2. KEEP DUPLICATE RECORDS-Files , instead it came out as 2-Files
Attachment 3625 Attachment 3626
09-15-2021, 02:19 PM
DocAElstein

2 Attachment(s)

https://www.excelfox.com/forum/showthread.php/2348-String-text-in-Word-html-Passing-info-between-Word-and-Excel?p=21212&viewfull=1#post21212

Word File Save As ___.htm

At this stage, I would like to check what happens in terms of produced files and folders for some different files

The OP’s file
_ as he gave it, named 2. KEEP DUPLICATE RECORDS.docx
_ name changed to 2_ KEEP DUPLICATE RECORDS.docx
_ name changed to the Office 97 – 2003 format 2_ KEEP DUPLICATE RECORDS.doc
_ the file with all images removed
_ the file with everything removed

_ a new virgin file

I will do all that programmatically, for convenience and consistency since I might repeat the experiment in different Excel versions. ( So far most of my work is in Office 2007 )

As a prelude to that, to help get some syntaxes, I will do some of that manually first, whilst running a macro recorder

This is approximately what the macro recorder gave me. I have simplified it a bit and added some 'comments

Code:

Sub Makro7() ' ' Makro7 Makro https://excelfox.com/forum/showthread.php/2348-Just-Testing-Passing-info-between-Word-and-Excel?p=15643&viewfull=1#post15643 ' ' OPs original file ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\" Documents.Open Filename:="""2. KEEP DUPLICATE RECORDS.docx""", ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", DocumentDirection:=wdLeftToRight ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\Original OP File\" ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file ' OPs file with dot in name changed to underscore RecentFiles(3).Open ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\Ops File with dot in name changed to underscore\" ActiveDocument.SaveAs Filename:="2_ KEEP DUPLICATE RECORDS.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2_ KEEP DUPLICATE RECORDS.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file ' File in Office 97 - 2003 format RecentFiles(3).Open ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\Ops file in 97 -2003 format\" ActiveDocument.SaveAs Filename:="2_ KEEP DUPLICATE RECORDS.doc", FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2_ KEEP DUPLICATE RECORDS.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file ' Ops file no images RecentFiles(3).Open Selection.MoveDown Unit:=wdLine, Count:=6 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.MoveDown Unit:=wdLine, Count:=2 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.MoveDown Unit:=wdLine, Count:=4 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.MoveDown Unit:=wdLine, Count:=4 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.MoveDown Unit:=wdLine, Count:=4 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.MoveDown Unit:=wdLine, Count:=2 Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\Ops File no images\" ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS no images.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS no images.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file ' Empty OP file RecentFiles(3).Open Selection.WholeStory Selection.TypeBackspace ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\OPs file empty\" ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS empty.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS empty.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="2. KEEP DUPLICATE RECORDS empty.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file ' Virgin file Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0 ' make file ChangeFileOpenDirectory "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\Virgin empty file\" ActiveDocument.SaveAs Filename:="Dok2.docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.SaveAs Filename:="Dok2.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.View.Type = wdWebView ActiveDocument.Close ' close the .htm file End Sub

Here is the files produced

' OPs original file

https://i.postimg.cc/Sj6zhRXK/OPs-original-file.jpg

' OPs file with dot in name changed to underscore
https://i.postimg.cc/GTxBJg0D/OPs-fi...underscore.jpg

' File in Office 97 - 2003 format
https://i.postimg.cc/62gsbBKJ/File-i...003-format.jpg

' Ops file no images
https://i.postimg.cc/ph85yXqq/Ops-fi...es-removed.jpg

' Empty OP file
https://i.postimg.cc/0KsMSR4x/Ops-file-emptied.jpg

' Virgin file
https://i.postimg.cc/sMDWKzgg/Virgin-File.jpg

We seem to have some inconstancy with the files and folders produced by the original OP macro, ( https://excelfox.com/forum/showthrea...ll=1#post15623 ) , so in the next post I had better check that first..
The inconstancy seems to be that a .htm file was not produced – instead some strange file was there , one with no extension shown, and the new file folder produced did not have the full name 2. KEEP DUPLICATE RECORDS-Files , instead it came out as 2-Files
Attachment 3625 Attachment 3626
09-15-2021, 03:40 PM
DocAElstein

https://www.excelfox.com/forum/showthread.php/2348-String-text-in-Word-html-Passing-info-between-Word-and-Excel?p=15644&viewfull=1#post15644

We seem to have some inconstancy with the files and folders produced by the original OP macro, ( https://excelfox.com/forum/showthrea...ll=1#post15623 ) , and those in the last post, so I will look into that here.
The inconstancy seems to be that a .htm file was not produced by the original OP macro– instead some strange file was there , one with no extension shown, and the new file folder produced did not have the full name 2. KEEP DUPLICATE RECORDS-Files , instead it came out as 2-Files
Attachment 3625 Attachment 3626

I had a little play around, and it looks I have tracked down the problem.
To demo:-
The following macro doers three Save As .htm code lines. The first does something similar to the original OP’s
The second has replaced the first _ . _ in the file name with a _ _ _
The final code line does the code line what the macro recorder gave.

Looking at the three results, it is obvious what’s probably going on: The missing .htm in the OP’s code line is causing the problem. Although we are saving as FileFormat:=wdFormatHTML , it gets no extension on the file name.
Without knowing exactly how Microsoft organised the working things, I cannot say exactly what is going on, but then file shown with no extension is clearly the htm file – we can prove this by opening with word, and it appears exactly the same as any of the 2. KEEP DUPLICATE RECORDS.htm files that we have been producing. The little discrepancy fact that the folder containing the images gets a name like 2-xxxx instead of like 2-2. KEEP DUPLICATE RECORDS xxxx , is probably because the workings are somehow mistaking the first _ . _ as the extension _ . _.
That discrepancy does not appear when we replace the _ . _ with some other character, as in the second Save As .htm code line
In fact, we also get a normal .htm extension as well. So this suggests that the workings are somehow confusing that first _ . _ as meaning that the extension is _ KEEP DUPLICATE RECORDS

So the conclusion is:
Most important you should add the .htm extension on the given file name.
It is probably good practice to not have an extra _ . _ in any file name

Results:
ActiveDocument.SaveAs FileName:=strPath & "Temp1" & "" & "2. KEEP DUPLICATE RECORDS", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:= True
https://i.postimg.cc/dkKVKs3f/Temp-1.jpg

ActiveDocument.SaveAs FileName:=strPath & "Temp2" & "" & "2_ KEEP DUPLICATE RECORDS", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False
https://i.postimg.cc/qtKvYhJn/Temp-2.jpg

ActiveDocument.SaveAs FileName:=TempFolder & "" & "2. KEEP DUPLICATE RECORDS.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False ', EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
https://i.postimg.cc/gxQ0NqWm/Temp-3.jpg

Code:

Sub OPsFileMakesStrangeFiles() ' https://excelfox.com/forum/showthread.php/2348-Just-Testing-Passing-info-between-Word-and-Excel?p=15644&viewfull=1#post15644 Dim strPath As String: Let strPath = "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\" Documents.Open Filename:="F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\2. KEEP DUPLICATE RECORDS.docx" ' This wont error if document file is already open If Dir(strPath & "Temp1", vbDirectory) = "" Then MkDir strPath & "Temp1" ActiveDocument.SaveAs Filename:=strPath & "Temp1" & "\" & "2. KEEP DUPLICATE RECORDS", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=True ActiveDocument.Close Documents.Open Filename:="F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\2. KEEP DUPLICATE RECORDS.docx" ' This wont error if document file is already open If Dir(strPath & "Temp2", vbDirectory) = "" Then MkDir strPath & "Temp2" ActiveDocument.SaveAs Filename:=strPath & "Temp2" & "\" & "2_ KEEP DUPLICATE RECORDS", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False ActiveDocument.Close Documents.Open Filename:="F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\2. KEEP DUPLICATE RECORDS.docx" ' This wont error if document file is already open If Dir(strPath & "Temp3", vbDirectory) = "" Then MkDir strPath & "Temp3" ActiveDocument.SaveAs Filename:=TempFolder & "\" & "2. KEEP DUPLICATE RECORDS.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False ', EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.Close End Sub
09-15-2021, 03:40 PM
DocAElstein

https://www.excelfox.com/forum/showthread.php/2348-String-text-in-Word-html-Passing-info-between-Word-and-Excel?p=21213&viewfull=1#post21213

We seem to have some inconstancy with the files and folders produced by the original OP macro, ( https://excelfox.com/forum/showthrea...ll=1#post15623 ) , and those in the last post, so I will look into that here.
The inconstancy seems to be that a .htm file was not produced by the original OP macro– instead some strange file was there , one with no extension shown, and the new file folder produced did not have the full name 2. KEEP DUPLICATE RECORDS-Files , instead it came out as 2-Files
Attachment 3625 Attachment 3626

I had a little play around, and it looks I have tracked down the problem.
To demo:-
The following macro doers three Save As .htm code lines. The first does something similar to the original OP’s
The second has replaced the first _ . _ in the file name with a _ _ _
The final code line does the code line what the macro recorder gave.

Looking at the three results, it is obvious what’s probably going on: The missing .htm in the OP’s code line is causing the problem. Although we are saving as FileFormat:=wdFormatHTML , it gets no extension on the file name.
Without knowing exactly how Microsoft organised the working things, I cannot say exactly what is going on, but then file shown with no extension is clearly the htm file – we can prove this by opening with word, and it appears exactly the same as any of the 2. KEEP DUPLICATE RECORDS.htm files that we have been producing. The little discrepancy fact that the folder containing the images gets a name like 2-xxxx instead of like 2-2. KEEP DUPLICATE RECORDS xxxx , is probably because the workings are somehow mistaking the first _ . _ as the extension _ . _.
That discrepancy does not appear when we replace the _ . _ with some other character, as in the second Save As .htm code line
In fact, we also get a normal .htm extension as well. So this suggests that the workings are somehow confusing that first _ . _ as meaning that the extension is _ KEEP DUPLICATE RECORDS

So the conclusion is:
Most important you should add the .htm extension on the given file name.
It is probably good practice to not have an extra _ . _ in any file name

Results:
ActiveDocument.SaveAs FileName:=strPath & "Temp1" & "" & "2. KEEP DUPLICATE RECORDS", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:= True
https://i.postimg.cc/dkKVKs3f/Temp-1.jpg

ActiveDocument.SaveAs FileName:=strPath & "Temp2" & "" & "2_ KEEP DUPLICATE RECORDS", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False
https://i.postimg.cc/qtKvYhJn/Temp-2.jpg

ActiveDocument.SaveAs FileName:=TempFolder & "" & "2. KEEP DUPLICATE RECORDS.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False ', EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
https://i.postimg.cc/gxQ0NqWm/Temp-3.jpg

Code:

Sub OPsFileMakesStrangeFiles() ' https://excelfox.com/forum/showthread.php/2348-Just-Testing-Passing-info-between-Word-and-Excel?p=15644&viewfull=1#post15644 Dim strPath As String: Let strPath = "F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\" Documents.Open Filename:="F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\2. KEEP DUPLICATE RECORDS.docx" ' This wont error if document file is already open If Dir(strPath & "Temp1", vbDirectory) = "" Then MkDir strPath & "Temp1" ActiveDocument.SaveAs Filename:=strPath & "Temp1" & "\" & "2. KEEP DUPLICATE RECORDS", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=True ActiveDocument.Close Documents.Open Filename:="F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\2. KEEP DUPLICATE RECORDS.docx" ' This wont error if document file is already open If Dir(strPath & "Temp2", vbDirectory) = "" Then MkDir strPath & "Temp2" ActiveDocument.SaveAs Filename:=strPath & "Temp2" & "\" & "2_ KEEP DUPLICATE RECORDS", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False ActiveDocument.Close Documents.Open Filename:="F:\Excel0202015Jan2016\ExcelFox\Word\prkhan56\2. KEEP DUPLICATE RECORDS.docx" ' This wont error if document file is already open If Dir(strPath & "Temp3", vbDirectory) = "" Then MkDir strPath & "Temp3" ActiveDocument.SaveAs Filename:=TempFolder & "\" & "2. KEEP DUPLICATE RECORDS.htm", FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False ', EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ActiveDocument.Close End Sub
09-16-2021, 09:05 PM
DocAElstein

https://www.excelfox.com/forum/showthread.php/2348-String-text-in-Word-html-Passing-info-between-Word-and-Excel?p=15645&viewfull=1#post15645

https://i.postimg.cc/L61Y4HcP/Aufzeichnen2.jpg

https://i.postimg.cc/CK7CSF30/Aufzeichnen3.jpg

https://i.postimg.cc/WbKXH6rv/Aufzeichnen4.jpg upload pictures

https://i.postimg.cc/WbKXH6rv/Aufzeichnen4.jpg

test

Hi
Mein Deutsch nicht so gut ist, da ich Engländer bin, aber ich werde es versuchen...
Dies hängt mit einigen anderen ungelösten Dingen zusammen ( https://www.dsl-forum.de/threads/251...line-verbunden
https://telekomhilft.telekom.de/t5/T...s/td-p/5342695 )
Seit etwa einem Monat funktioniert meine Internetverbindung nicht mehr. Anfangs dachte man, es könnte ein Problem mit meinem alten Speedport W504V-Router sein.
Ich war daran interessiert, weiter zu experimentieren, um diesen Verdacht zu bestätigen.

Die Ergebnisse sind etwas seltsam:

Ich habe noch ein paar andere Speedport W504Vs bekommen, die normal funktionierten, vor sie nicht mehr benutz, bzw. nicht mehr gebraucht war, und auch ein neues originalverpacktes, das nie benutzt wurde.
Sie weisen alle das gleiche Problem auf wie ursprünglich bei meinem alten Speedport W504V: Sie verbinden sich alle erfolgreich, gehen online, aber das Internet funktioniert nicht und sie antworten weder auf 192.168.2.1 noch auf https://speedport.ip in der Adressleiste
Hier sind typische Ergebnisse einer erfolgreichen Verbindung für eine direkte LAN-Kabelverbindung:
https://i.postimg.cc/8CKFTQzM/Speedp...-LAN-Kable.jpg
und hier sind typische Ergebnisse für eine erfolgreiche WLAN-Verbindung
https://i.postimg.cc/fRsSKfPt/First-...-Connected.jpg
https://i.postimg.cc/FRYYRWYq/First-...ssel-Geben.jpg
https://i.postimg.cc/TYgWg4tv/First-...-Connected.jpg
https://i.postimg.cc/VNLryLmz/First-...ed-working.jpg
Aber danach bekommt man kein funktionierendes Internet, und beim IP 192.168.2.1 oder https://speedport.ip in die Adresszeile eingebe, kommt nur "Fehler: Netzwerk-Zeitüberschreitung - Der Server unter speedport.ip braucht zu lange, um eine Antwort zu senden." Egal mit welchem Browser oder Computer

Das Überprüfen von Dingen wie ipconfig usw. bestätigt alle Gateway 192.168.2.1, wie es für den Speedport erwartet wird

Der ganz neue Speedport reagierte bei der ersten Verbindung etwas anders, wie es sich gehört: Ein neuer Speedport bewirkt ein anfängliches Öffnen eines Browser-Tabs direkt beim anfänglichen Einrichtungsvorgang:
https://i.postimg.cc/CMJGdtrP/New-Sp...connection.jpg
https://i.postimg.cc/Xq2dhGyS/New-Sp...re-warning.jpg
https://i.postimg.cc/7hPSmMhn/New-Sp...figuration.jpg

Aber das scheitert beim ersten Schritt: Ich tippe hier das richtige Passwort ein, aber ich bekomme eine Fehlermeldung und komme nicht weiter.
https://i.postimg.cc/FRVjynrK/New-Sp...t-Password.jpg

Was das Ganze noch seltsamer macht, ist, dass ich einige alte Speedport W723s habe und sie alle normal funktionieren, mir ein funktionierendes Internet geben und auch wie erwartet reagieren, wenn sie 192.168.2.1 oder https://speedport.ip in die Adressleiste eingeben

Andere Router, die ich habe, funktionieren auch normal.

Ich habe meine Experimente mit vielen verschiedenen Computern mit unterschiedlichen Betriebssystemen wiederholt und die Ergebnisse sind immer gleich.

Es ist nicht möglich, dass alle meine Speedport W504v kaputt sind. Ich gehe davon aus, dass sie alle so funktionieren, wie sie ursprünglich entwickelt wurden.
Es scheint, dass etwas Seltsames passiert ist, so dass kein Speedport W504V mehr funktioniert???

Habe die Telekom eine grundlegende Änderung vorgenommen, wonach ein Speedport W504V nun nie mehr funktioniert???

Alan
Direct link for forum
[url=https://postimages.org/][img]https://i.postimg.cc/QC7swWy4/Here-Excel-forum-colors-ohne-rand.jpg[/img][/url]

[url=https://postimages.org/][img]https://i.postimg.cc/7PJxfpZ3/Here-Excel-fox-colors-ohne-rand.jpg[/img][/url]

now change link to post imagers to the link you want it to got to

https://i.postimg.cc/QC7swWy4/Here-E...-ohne-rand.jpg or https://i.postimg.cc/7PJxfpZ3/Here-E...-ohne-rand.jpg

Hello Chris, ( and Stuart )
In Excel things occasionally go out of whack in my VB Editor and I am buggered if I can ever find a way to get them back normally using any conventional method. Usually the docking of windows getting corrupted has been to blame.
So far the sledgehammer approach explained https://i.postimg.cc/QC7swWy4/Here-E...-ohne-rand.jpg has always put the VB Editor back to normal for me.
( In case that old post link does not work, or they insist on you logging in and you don’t want to, I just put a copy of that post https://i.postimg.cc/7PJxfpZ3/Here-E...-ohne-rand.jpg for you )

( you might need to look at a slightly different path in the registry. Someone else said they found it here: Computer\HKEY_CURRENT_USER\Software\Microsoft\VBA\ 7.1\Common

Alan
09-16-2021, 09:05 PM
DocAElstein

https://www.excelfox.com/forum/showthread.php/2348-String-text-in-Word-html-Passing-info-between-Word-and-Excel?p=21214&viewfull=1#post21214

https://i.postimg.cc/L61Y4HcP/Aufzeichnen2.jpg

https://i.postimg.cc/CK7CSF30/Aufzeichnen3.jpg

https://i.postimg.cc/WbKXH6rv/Aufzeichnen4.jpg upload pictures

https://i.postimg.cc/WbKXH6rv/Aufzeichnen4.jpg

test

Hi
Mein Deutsch nicht so gut ist, da ich Engländer bin, aber ich werde es versuchen...
Dies hängt mit einigen anderen ungelösten Dingen zusammen ( https://www.dsl-forum.de/threads/251...line-verbunden
https://telekomhilft.telekom.de/t5/T...s/td-p/5342695 )
Seit etwa einem Monat funktioniert meine Internetverbindung nicht mehr. Anfangs dachte man, es könnte ein Problem mit meinem alten Speedport W504V-Router sein.
Ich war daran interessiert, weiter zu experimentieren, um diesen Verdacht zu bestätigen.

Die Ergebnisse sind etwas seltsam:

Ich habe noch ein paar andere Speedport W504Vs bekommen, die normal funktionierten, vor sie nicht mehr benutz, bzw. nicht mehr gebraucht war, und auch ein neues originalverpacktes, das nie benutzt wurde.
Sie weisen alle das gleiche Problem auf wie ursprünglich bei meinem alten Speedport W504V: Sie verbinden sich alle erfolgreich, gehen online, aber das Internet funktioniert nicht und sie antworten weder auf 192.168.2.1 noch auf https://speedport.ip in der Adressleiste
Hier sind typische Ergebnisse einer erfolgreichen Verbindung für eine direkte LAN-Kabelverbindung:
https://i.postimg.cc/8CKFTQzM/Speedp...-LAN-Kable.jpg
und hier sind typische Ergebnisse für eine erfolgreiche WLAN-Verbindung
https://i.postimg.cc/fRsSKfPt/First-...-Connected.jpg
https://i.postimg.cc/FRYYRWYq/First-...ssel-Geben.jpg
https://i.postimg.cc/TYgWg4tv/First-...-Connected.jpg
https://i.postimg.cc/VNLryLmz/First-...ed-working.jpg
Aber danach bekommt man kein funktionierendes Internet, und beim IP 192.168.2.1 oder https://speedport.ip in die Adresszeile eingebe, kommt nur "Fehler: Netzwerk-Zeitüberschreitung - Der Server unter speedport.ip braucht zu lange, um eine Antwort zu senden." Egal mit welchem Browser oder Computer

Das Überprüfen von Dingen wie ipconfig usw. bestätigt alle Gateway 192.168.2.1, wie es für den Speedport erwartet wird

Der ganz neue Speedport reagierte bei der ersten Verbindung etwas anders, wie es sich gehört: Ein neuer Speedport bewirkt ein anfängliches Öffnen eines Browser-Tabs direkt beim anfänglichen Einrichtungsvorgang:
https://i.postimg.cc/CMJGdtrP/New-Sp...connection.jpg
https://i.postimg.cc/Xq2dhGyS/New-Sp...re-warning.jpg
https://i.postimg.cc/7hPSmMhn/New-Sp...figuration.jpg

Aber das scheitert beim ersten Schritt: Ich tippe hier das richtige Passwort ein, aber ich bekomme eine Fehlermeldung und komme nicht weiter.
https://i.postimg.cc/FRVjynrK/New-Sp...t-Password.jpg

Was das Ganze noch seltsamer macht, ist, dass ich einige alte Speedport W723s habe und sie alle normal funktionieren, mir ein funktionierendes Internet geben und auch wie erwartet reagieren, wenn sie 192.168.2.1 oder https://speedport.ip in die Adressleiste eingeben

Andere Router, die ich habe, funktionieren auch normal.

Ich habe meine Experimente mit vielen verschiedenen Computern mit unterschiedlichen Betriebssystemen wiederholt und die Ergebnisse sind immer gleich.

Es ist nicht möglich, dass alle meine Speedport W504v kaputt sind. Ich gehe davon aus, dass sie alle so funktionieren, wie sie ursprünglich entwickelt wurden.
Es scheint, dass etwas Seltsames passiert ist, so dass kein Speedport W504V mehr funktioniert???

Habe die Telekom eine grundlegende Änderung vorgenommen, wonach ein Speedport W504V nun nie mehr funktioniert???

Alan
Direct link for forum
[url=https://postimages.org/][img]https://i.postimg.cc/QC7swWy4/Here-Excel-forum-colors-ohne-rand.jpg[/img][/url]

[url=https://postimages.org/][img]https://i.postimg.cc/7PJxfpZ3/Here-Excel-fox-colors-ohne-rand.jpg[/img][/url]

now change link to post imagers to the link you want it to got to

https://i.postimg.cc/QC7swWy4/Here-E...-ohne-rand.jpg or https://i.postimg.cc/7PJxfpZ3/Here-E...-ohne-rand.jpg

Hello Chris, ( and Stuart )
In Excel things occasionally go out of whack in my VB Editor and I am buggered if I can ever find a way to get them back normally using any conventional method. Usually the docking of windows getting corrupted has been to blame.
So far the sledgehammer approach explained https://i.postimg.cc/QC7swWy4/Here-E...-ohne-rand.jpg has always put the VB Editor back to normal for me.
( In case that old post link does not work, or they insist on you logging in and you don’t want to, I just put a copy of that post https://i.postimg.cc/7PJxfpZ3/Here-E...-ohne-rand.jpg for you )

( you might need to look at a slightly different path in the registry. Someone else said they found it here: Computer\HKEY_CURRENT_USER\Software\Microsoft\VBA\ 7.1\Common

Alan
09-16-2021, 09:05 PM
DocAElstein

https://www.excelfox.com/forum/showthread.php/2348-String-text-in-Word-html-Passing-info-between-Word-and-Excel?p=15646&viewfull=1#post15646

https://i.postimg.cc/8k0mY0bK/Aufzeichnen.jpg

_.______________
Here

Here

ExcelFox

ExcelFox

Here

Here

Code:

https://www.excelforum.com/excel-programming-vba-macros/343845-docking-project-explorer-vertically.html#post4545938

https://i.postimg.cc/9Rf6XHnm/Here-link-Bild.jpg

https://i.postimg.cc/9Rf6XHnm/Here-link-Bild.jpg[/img]

_.____________________

_.______________
vorschor bild for forum
https://i.postimg.cc/9Rf6XHnm/Here-link-Bild.jpg

_.__________________________-
direct link for forum complete
https://i.postimg.cc/j56tXs67/Here-link-Bild.jpg or https://i.postimg.cc/WzngMQb7/Here-E...rum-colors.jpg 0r https://i.postimg.cc/Y2f6Kmfm/Here-Excel-fox-colors.jpg
Now change link to postimages.org to the link you want it to go to
https://i.postimg.cc/j56tXs67/Here-link-Bild.jpg or https://i.postimg.cc/WzngMQb7/Here-E...rum-colors.jpg or https://i.postimg.cc/Y2f6Kmfm/Here-Excel-fox-colors.jpg
09-16-2021, 09:05 PM
DocAElstein

https://www.excelfox.com/forum/showthread.php/2348-String-text-in-Word-html-Passing-info-between-Word-and-Excel?p=21215&viewfull=1#post21215

https://i.postimg.cc/8k0mY0bK/Aufzeichnen.jpg

_.______________
Here

Here

ExcelFox

ExcelFox

Here

Here

Code:

https://www.excelforum.com/excel-programming-vba-macros/343845-docking-project-explorer-vertically.html#post4545938

https://i.postimg.cc/9Rf6XHnm/Here-link-Bild.jpg

https://i.postimg.cc/9Rf6XHnm/Here-link-Bild.jpg[/img]

_.____________________

_.______________
vorschor bild for forum
https://i.postimg.cc/9Rf6XHnm/Here-link-Bild.jpg

_.__________________________-
direct link for forum complete
https://i.postimg.cc/j56tXs67/Here-link-Bild.jpg or https://i.postimg.cc/WzngMQb7/Here-E...rum-colors.jpg 0r https://i.postimg.cc/Y2f6Kmfm/Here-Excel-fox-colors.jpg
Now change link to postimages.org to the link you want it to go to
https://i.postimg.cc/j56tXs67/Here-link-Bild.jpg or https://i.postimg.cc/WzngMQb7/Here-E...rum-colors.jpg or https://i.postimg.cc/Y2f6Kmfm/Here-Excel-fox-colors.jpg
09-29-2021, 11:32 AM
DocAElstein

https://www.excelfox.com/forum/showthread.php/2348-String-text-in-Word-html-Passing-info-between-Word-and-Excel?p=21218&viewfull=1#post21218

https://www.youtube.com/watch?v=yVgLmj0aojI
https://www.youtube.com/watch?v=yVgLmj0aojI&lc=UgwWg8x2WxLSxxGsUP14AaABAg. 9k3ShckGnhv9k89LsaigoO
https://www.youtube.com/watch?v=yVgLmj0aojI&lc=UgxxxIaK1pY8nNvx6JF4AaABAg. 9k-vfnj3ivI9k8B2r_uRa2
https://www.youtube.com/watch?v=yVgLmj0aojI&lc=UgxKFXBNd6Pwvcp4Bsd4AaABAg
https://www.youtube.com/watch?v=yVgLmj0aojI&lc=Ugw9X6QS09LuZdZpBHJ4AaABAg
10-20-2021, 12:18 AM
DocAElstein

https://www.excelfox.com/forum/showthread.php/2348-String-text-in-Word-html-Passing-info-between-Word-and-Excel?p=21217&viewfull=1#post21217

Show 40 post(s) from this thread on one page