Opgelost Isoleren pagina 3
- Onderwerp starter Obrecht
- Startdatum
Dit topic is als opgelost gemarkeerd
- Status
edmoor
Inventaris
- Lid geworden
- 8 sep 2000
- Berichten
- 41.770
- Besturingssysteem
- Windows 98SE, XP, 7, 10, 11-24H2
- Office versie
- Office 2021
Zoiets?
Code:
Sub SavePage3()
Selection.HomeKey Unit:=wdStory
With Application.Browser
.Target = wdBrowsePage
.Next
.Next
End With
ActiveDocument.Bookmarks("\page").Range.Copy
Set doc = Documents.Add
Selection.Paste
doc.SaveAs FileName:=Environ("Userprofile") & "\Desktop\Pagina3.docx", FileFormat:=wdFormatDocumentDefault
doc.Close SaveChanges:=False
End Sub
Laatst bewerkt:
AHulpje
Ik had niet verwacht dat ChatGPT zo ver zou komen.
Jij bent verder gekomen dan ik was. met inlezen in Excel.
Zeker een optie die ik verder ga bekijken.
Want ja, het moet uiteindelijk in Excel komen.
Het probleem is , en dat bij jou ook zichtbare
de rare karakters, gedraaide pagina's, etc., de boel vervormen.
Ook bij jou zie je dat het ineens fout gaat op rij 26, dat is een stukje van rij 19. etc.
Het aantal getallen in een Rij kunnen nog groter zijn en worden de problemen ook groter.
Daarom ben ik het maar in stukken gaan hakken.
Ik had niet verwacht dat ChatGPT zo ver zou komen.
Jij bent verder gekomen dan ik was. met inlezen in Excel.
Zeker een optie die ik verder ga bekijken.
Want ja, het moet uiteindelijk in Excel komen.
Het probleem is , en dat bij jou ook zichtbare
de rare karakters, gedraaide pagina's, etc., de boel vervormen.
Ook bij jou zie je dat het ineens fout gaat op rij 26, dat is een stukje van rij 19. etc.
Het aantal getallen in een Rij kunnen nog groter zijn en worden de problemen ook groter.
Daarom ben ik het maar in stukken gaan hakken.
snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 20.289
Mijn idee:
uitgangspunt: er staat al een Excelbestand open:
uitgangspunt: er staat al een Excelbestand open:
Code:
Sub M_snb()
ThisDocument.Sections(3).Range.Copy
With GetObject(, "Excel.Application")
.workbooks(2).sheets(1).Paste .workbooks(2).sheets(1).Cells(1)
.workbooks(2).sheets(1).Columns(1).texttocolumns , 2
End With
End Sub- Status
