Hvordan eksporteres kommentarer fra Excel til Word?
For Excel-brugere er det en almindelig opgave at indsætte kommentarer i cellerne. Nogle gange skal du kopiere og indsætte disse kommentarer i et Word-dokument til et eller andet formål. Selvfølgelig kan du kopiere og indsætte kommentaren i Word en efter en, men dette er et kedeligt og tidskrævende job. Er der nogen måde at eksportere alle kommentarerne fra Excel til Word på én gang?
Eksporter kommentarer fra det aktuelle regneark til Word med VBA-kode
Eksporter kommentarer fra det aktuelle regneark til Word med VBA-kode
Desværre leverer Excel ikke funktionen til at kopiere og indsætte alle kommentarer til Word på én gang. Med den følgende VBA-kode kan du dog hurtigt eksportere alle kommentarer i det aktive regneark til Word-dokumentet.
1. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Eksporter kommentarer fra det aktuelle regneark til Word
Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Err.Clear
Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub
3. Tryk derefter på F5 nøgle til at køre denne kode, og alle kommentarerne i det aktive regneark er eksporteret til et nyt Word-dokument med dets celleadresse. Se skærmbillede:
Relaterede artikler:
Hvordan indsættes hurtigt en kommentar til flere celler i Excel?
Hvordan ændres formen på kommentarfeltet i Excel?
Hvordan ændres alle kommentarformater i celler i Excel?
Hvordan ændres alle kommentarers forfatternavn i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!